diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-18 04:58:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-18 04:58:26 +0000 |
| commit | aeaf5620e0d123aeb6a6ba30ef2e89c6f5fc26d0 (patch) | |
| tree | 739547d8807b5f6c947cfb768f331918a64de700 /t/op | |
| parent | 9442cb0ec25041ea5b061c40868e0a3c8bfbb2ab (diff) | |
| download | perl-aeaf5620e0d123aeb6a6ba30ef2e89c6f5fc26d0.tar.gz | |
stronger testcase for change#5126
p4raw-link: @5126 on //depot/perl: 9442cb0ec25041ea5b061c40868e0a3c8bfbb2ab
p4raw-id: //depot/perl@5127
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/pat.t | 49 |
1 files changed, 37 insertions, 12 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 9dc3ac7566..439796d239 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -906,50 +906,75 @@ print "ok $test\n"; $test++; @a = map chr,0..255; -print "not " if grep(/\S/,@a) != grep(/[^\s]/,@a); + +@b = grep(/\S/,@a); +@c = grep(/[^\s]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\S/,@a) != grep(/[\S]/,@a); +@b = grep(/\S/,@a); +@c = grep(/[\S]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\s/,@a) != grep(/[^\S]/,@a); +@b = grep(/\s/,@a); +@c = grep(/[^\S]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\s/,@a) != grep(/[\s]/,@a); +@b = grep(/\s/,@a); +@c = grep(/[\s]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\D/,@a) != grep(/[^\d]/,@a); +@b = grep(/\D/,@a); +@c = grep(/[^\d]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\D/,@a) != grep(/[\D]/,@a); +@b = grep(/\D/,@a); +@c = grep(/[\D]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\d/,@a) != grep(/[^\D]/,@a); +@b = grep(/\d/,@a); +@c = grep(/[^\D]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\d/,@a) != grep(/[\d]/,@a); +@b = grep(/\d/,@a); +@c = grep(/[\d]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\W/,@a) != grep(/[^\w]/,@a); +@b = grep(/\W/,@a); +@c = grep(/[^\w]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\W/,@a) != grep(/[\W]/,@a); +@b = grep(/\W/,@a); +@c = grep(/[\W]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\w/,@a) != grep(/[^\W]/,@a); +@b = grep(/\w/,@a); +@c = grep(/[^\W]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; -print "not " if grep(/\w/,@a) != grep(/[\w]/,@a); +@b = grep(/\w/,@a); +@c = grep(/[\w]/,@a); +print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; |