File: basic.t

package info (click to toggle)
libunicode-map-perl 0.110-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 996 kB
  • ctags: 107
  • sloc: perl: 1,164; makefile: 36
file content (12 lines) | stat: -rw-r--r-- 220 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
print "1..1\n";

use strict;
use Unicode::Map;

my $Map = new Unicode::Map ( "ISO-8859-1" );
my @errors = @{$Map->_system_test()};
if ( @errors ) {
   printf ( STDERR "(err @errors) " );
   print "not ";
}
print "ok 1";