[perl #107726] Test for Filter::Simple and ‘no’

use MyFilter; no MyFilter; does not work. A fix is forthcoming.
Perl · Aug 26, 2016 · 7e9e80a · 7e9e80a
1 parent 6516999
commit 7e9e80a
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/MANIFEST b/MANIFEST
@@ -3348,6 +3348,7 @@ dist/Filter-Simple/t/lib/Filter/Simple/ExportTest.pm		Helper file for Filter::Si
 dist/Filter-Simple/t/lib/Filter/Simple/FilterOnlyTest.pm	Helper file for Filter::Simple tests
 dist/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm		Helper file for Filter::Simple tests
 dist/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm		Helper file for Filter::Simple tests
+dist/Filter-Simple/t/no.t					See if Filter::Simple works
 dist/I18N-Collate/lib/I18N/Collate.pm		Routines to do strxfrm-based collation
 dist/I18N-Collate/t/I18N-Collate.t		See if I18N::Collate works
 dist/I18N-LangTags/ChangeLog			I18N::LangTags

diff --git a/dist/Filter-Simple/t/no.t 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);