This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Further ANSI changes now builds and passes (most) tests
[perl5.git] / t / lib / english.t
1 #!./perl
2
3 print "1..16\n";
4
5 BEGIN { @INC = '../lib' }
6 use English;
7 use Config;
8 my $threads = $Config{'ccflags'} =~ /-DUSE_THREADS\b/;
9
10 print $PID == $$ ? "ok 1\n" : "not ok 1\n";
11
12 $_ = 1;
13 print $ARG == $_ ? "ok 2\n" : "not ok 2\n";
14
15 sub foo {
16     print $ARG[0] == $_[0] || $threads ? "ok 3\n" : "not ok 3\n";
17 }
18 &foo(1);
19
20 $ARG = "ok 4\nok 5\nok 6\n";
21 /ok 5\n/;
22 print $PREMATCH, $MATCH, $POSTMATCH;
23
24 $OFS = " ";
25 $ORS = "\n";
26 print 'ok',7;
27 undef $OUTPUT_FIELD_SEPARATOR;
28
29 $LIST_SEPARATOR = "\n";
30 @foo = ("ok 8", "ok 9");
31 print "@foo";
32 undef $OUTPUT_RECORD_SEPARATOR;
33
34 eval 'NO SUCH FUNCTION';
35 print "ok 10\n" if $EVAL_ERROR =~ /method/;
36
37 print $UID == $< ? "ok 11\n" : "not ok 11\n";
38 print $GID == $( ? "ok 12\n" : "not ok 12\n";
39 print $EUID == $> ? "ok 13\n" : "not ok 13\n";
40 print $EGID == $) ? "ok 14\n" : "not ok 14\n";
41
42 print $PROGRAM_NAME == $0 ? "ok 15\n" : "not ok 15\n";
43 print $BASETIME == $^T ? "ok 16\n" : "not ok 16\n";