Commit | Line | Data |
---|---|---|
378cc40b LW |
1 | #!./perl |
2 | ||
79072805 | 3 | # $RCSfile: study.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:30 $ |
378cc40b LW |
4 | |
5 | print "1..24\n"; | |
6 | ||
7 | $x = "abc\ndef\n"; | |
8 | study($x); | |
9 | ||
10 | if ($x =~ /^abc/) {print "ok 1\n";} else {print "not ok 1\n";} | |
11 | if ($x !~ /^def/) {print "ok 2\n";} else {print "not ok 2\n";} | |
12 | ||
13 | $* = 1; | |
14 | if ($x =~ /^def/) {print "ok 3\n";} else {print "not ok 3\n";} | |
15 | $* = 0; | |
16 | ||
17 | $_ = '123'; | |
18 | study; | |
19 | if (/^([0-9][0-9]*)/) {print "ok 4\n";} else {print "not ok 4\n";} | |
20 | ||
21 | if ($x =~ /^xxx/) {print "not ok 5\n";} else {print "ok 5\n";} | |
22 | if ($x !~ /^abc/) {print "not ok 6\n";} else {print "ok 6\n";} | |
23 | ||
24 | if ($x =~ /def/) {print "ok 7\n";} else {print "not ok 7\n";} | |
25 | if ($x !~ /def/) {print "not ok 8\n";} else {print "ok 8\n";} | |
26 | ||
27 | study($x); | |
28 | if ($x !~ /.def/) {print "ok 9\n";} else {print "not ok 9\n";} | |
29 | if ($x =~ /.def/) {print "not ok 10\n";} else {print "ok 10\n";} | |
30 | ||
31 | if ($x =~ /\ndef/) {print "ok 11\n";} else {print "not ok 11\n";} | |
32 | if ($x !~ /\ndef/) {print "not ok 12\n";} else {print "ok 12\n";} | |
33 | ||
34 | $_ = 'aaabbbccc'; | |
35 | study; | |
36 | if (/(a*b*)(c*)/ && $1 eq 'aaabbb' && $2 eq 'ccc') { | |
37 | print "ok 13\n"; | |
38 | } else { | |
39 | print "not ok 13\n"; | |
40 | } | |
41 | if (/(a+b+c+)/ && $1 eq 'aaabbbccc') { | |
42 | print "ok 14\n"; | |
43 | } else { | |
44 | print "not ok 14\n"; | |
45 | } | |
46 | ||
47 | if (/a+b?c+/) {print "not ok 15\n";} else {print "ok 15\n";} | |
48 | ||
49 | $_ = 'aaabccc'; | |
50 | study; | |
51 | if (/a+b?c+/) {print "ok 16\n";} else {print "not ok 16\n";} | |
52 | if (/a*b+c*/) {print "ok 17\n";} else {print "not ok 17\n";} | |
53 | ||
54 | $_ = 'aaaccc'; | |
55 | study; | |
56 | if (/a*b?c*/) {print "ok 18\n";} else {print "not ok 18\n";} | |
57 | if (/a*b+c*/) {print "not ok 19\n";} else {print "ok 19\n";} | |
58 | ||
59 | $_ = 'abcdef'; | |
60 | study; | |
61 | if (/bcd|xyz/) {print "ok 20\n";} else {print "not ok 20\n";} | |
62 | if (/xyz|bcd/) {print "ok 21\n";} else {print "not ok 21\n";} | |
63 | ||
64 | if (m|bc/*d|) {print "ok 22\n";} else {print "not ok 22\n";} | |
65 | ||
66 | if (/^$_$/) {print "ok 23\n";} else {print "not ok 23\n";} | |
67 | ||
68 | $* = 1; # test 3 only tested the optimized version--this one is for real | |
69 | if ("ab\ncd\n" =~ /^cd/) {print "ok 24\n";} else {print "not ok 24\n";} |