diff options
author | Father Chrysostomos <sprout@cpan.org> | 2016-08-26 06:20:05 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2016-08-26 08:24:33 -0700 |
commit | 7e9e80a75f011c68de21e7e03a01a526d933919b (patch) | |
tree | ede7e7ce2a279713a710126bff5856f8aa04f8ea /dist/Filter-Simple | |
parent | 65169990ec2fa183dd798b11e833db0f15b2dc24 (diff) | |
download | perl-7e9e80a75f011c68de21e7e03a01a526d933919b.tar.gz |
[perl #107726] Test for Filter::Simple and ‘no’
use MyFilter;
no MyFilter;
does not work. A fix is forthcoming.
Diffstat (limited to 'dist/Filter-Simple')
-rw-r--r-- | dist/Filter-Simple/t/no.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/dist/Filter-Simple/t/no.t b/dist/Filter-Simple/t/no.t new file mode 100644 index 0000000000..8980eaea9c --- /dev/null +++ b/dist/Filter-Simple/t/no.t @@ -0,0 +1,13 @@ +BEGIN { + unshift @INC, 't/lib/'; +} + +print "1..2\n"; + +use Filter::Simple::FilterTest qr/ok/ => "not ok", pass => "fail"; +no Filter::Simple::FilterTest; + +sub pass { print "ok ", $_[0], "\n" } + +print "ok 1\n"; +("pa"."ss")->(2); |