Test the workaround more extensively

[perl/modules/indirect.git] / t / lib / indirect / TestRequired2.pm

diff --git a/t/lib/indirect/TestRequired2.pm b/t/lib/indirect/TestRequired2.pm
new file mode 100644 (file)
index 0000000..b353cbc
--- /dev/null
+++ b/t/lib/indirect/TestRequired2.pm
@@ -0,0 +1,16 @@
+package indirect::TestRequired2;
+
+no indirect;
+
+BEGIN { delete $INC{'indirect/TestRequired1.pm'} }
+
+use lib 't/lib';
+use indirect::TestRequired1;
+
+eval {
+ my $y = new Baz;
+};
+
+eval 'my $z = new Blech';
+
+1;