summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t38
1 files changed, 38 insertions, 0 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t
new file mode 100644
index 0000000000..aaf48f0076
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t
@@ -0,0 +1,38 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use constant NUM_TESTS => 3;
+
+require Locale::TextDomain;
+
+BEGIN {
+ plan tests => NUM_TESTS;
+}
+
+my $keywords = Locale::TextDomain->keywords;
+ok length $keywords;
+my $flags = Locale::TextDomain->flags;
+ok length $flags;
+my $options = Locale::TextDomain->options;
+ok length $options == (length $keywords) + (length $flags) + 1;
+
+__END__
+
+Local Variables:
+mode: perl
+perl-indent-level: 4
+perl-continued-statement-offset: 4
+perl-continued-brace-offset: 0
+perl-brace-offset: -4
+perl-brace-imaginary-offset: 0
+perl-label-offset: -4
+cperl-indent-level: 4
+cperl-continued-statement-offset: 2
+tab-width: 4
+End: