5 unshift @INC, '../lib' if -d '../lib';
6 require Config; import Config;
13 $foo = '<>' . ('<x><>' x 20) ;
14 print ($_ eq $foo ? "ok 1\n" : "not ok 1\n#'$_'\n#'$foo'\n");
21 s/\Ga(?{push @res, $_, $`})/xx/g;
22 print "not " unless "$_ @res" eq 'axxxx aaa a aaa aa';
28 s/\Ga(?{push @res, $_, $`})/x/g;
29 print "not " unless "$_ @res" eq 'axx aaa a aaa aa';
35 s/\Ga(?{push @res, $_, $`})/xx/;
36 print "not " unless "$_ @res" eq 'axxa aaa a';
42 s/\Ga(?{push @res, $_, $`})/x/;
43 print "not " unless "$_ @res" eq 'axa aaa a';
49 $a =~ s/\Ga(?{push @res, $_, $`})/xx/g;
50 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxxx aaa a aaa aa';
56 $a =~ s/\Ga(?{push @res, $_, $`})/x/g;
57 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axx aaa a aaa aa';
63 $a =~ s/\Ga(?{push @res, $_, $`})/xx/;
64 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxa aaa a';
70 $a =~ s/\Ga(?{push @res, $_, $`})/x/;
71 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axa aaa a';
80 $a =~ s/\Ga(?{push @res, $_, $`})/x2/ge;
81 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxxx aaa a aaa aa';
87 $a =~ s/\Ga(?{push @res, $_, $`})/x1/ge;
88 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axx aaa a aaa aa';
94 $a =~ s/\Ga(?{push @res, $_, $`})/x2/e;
95 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxa aaa a';
101 $a =~ s/\Ga(?{push @res, $_, $`})/x1/e;
102 print "#'$a' '@res'\nnot " unless "$a @res" eq 'axa aaa a';