"Fossies" - the Fresh Open Source Software Archive

Member "texinfo-6.5/tp/maintain/lib/libintl-perl/tests/00gettext.t" (22 Apr 2014, 772 Bytes) of package /linux/misc/texinfo-6.5.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 # -*- perl -*-
    2 # Test if module loads ok.
    3 
    4 # Before `make install' is performed this script should be runnable with
    5 # `make test'. After `make install' it should work as `perl test.pl'
    6 
    7 ######################### We start with some black magic to print on failure.
    8 
    9 # Change 1..1 below to 1..last_test_to_print .
   10 # (It may become useful if the test is moved to ./t subdirectory.)
   11 
   12 BEGIN { $| = 1; print "1..1\n"; }
   13 END {print "not ok 1\n" unless $loaded;}
   14 use Locale::Messages;
   15 $loaded = 1;
   16 print "ok 1\n";
   17 
   18 ######################### End of black magic.
   19 
   20 __END__
   21 
   22 Local Variables:
   23 mode: perl
   24 perl-indent-level: 4
   25 perl-continued-statement-offset: 4
   26 perl-continued-brace-offset: 0
   27 perl-brace-offset: -4
   28 perl-brace-imaginary-offset: 0
   29 perl-label-offset: -4
   30 tab-width: 4
   31 End:
   32