5 $runtests=shift(@ARGV);
6 if ( -f "t/testfunc.pl" ) {
7 require "t/testfunc.pl";
10 } elsif ( -f "testfunc.pl" ) {
11 require "testfunc.pl";
15 die "ERROR: cannot find testfunc.pl\n";
21 %type = ( "LOCALE_SCRIPT_ALPHA" => LOCALE_SCRIPT_ALPHA,
22 "LOCALE_SCRIPT_NUMERIC" => LOCALE_SCRIPT_NUMERIC,
27 $test[1] = $type{$test[1]}
28 if (@test == 2 && $test[1] && exists $type{$test[1]});
29 return code2script(@test);
40 115 LOCALE_SCRIPT_NUMERIC ~ Phoenician
44 print "code2script...\n";
45 test_Func(\&test,$tests,$runtests);
50 # indent-tabs-mode: nil
51 # cperl-indent-level: 3
52 # cperl-continued-statement-offset: 2
53 # cperl-continued-brace-offset: 0
54 # cperl-brace-offset: 0
55 # cperl-brace-imaginary-offset: 0
56 # cperl-label-offset: -2