summaryrefslogtreecommitdiffstats
path: root/t/base2.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-12-19 14:06:16 -0600
committerJesse Luehrs <doy@tozt.net>2011-12-19 14:06:16 -0600
commit9cc8c0a89e3984a04758240a76940bb70f49f256 (patch)
tree4298a84ceb953be8fd71b3b1c3c7b5e2d75051f3 /t/base2.t
parentb76fddd60aa8331c90c5b3cbe16f3c7685c5f4da (diff)
downloadcircular-require-9cc8c0a89e3984a04758240a76940bb70f49f256.tar.gz
circular-require-9cc8c0a89e3984a04758240a76940bb70f49f256.zip
remove test numbers
Diffstat (limited to 't/base2.t')
-rw-r--r--t/base2.t18
1 files changed, 18 insertions, 0 deletions
diff --git a/t/base2.t b/t/base2.t
new file mode 100644
index 0000000..cb85df3
--- /dev/null
+++ b/t/base2.t
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use lib 't/base2';
+use Test::More;
+use Test::Exception;
+
+# Test passes if you comment this out
+no circular::require;
+
+use_ok('Foo');
+lives_ok { is( Foo->bar, "bar", "Polymorphism" ) }
+ "bar() method available on Foo";
+
+throws_ok { base->import( 'BadWolf' ) }
+ qr|Base class package "BadWolf" is empty|, "use base 'Some Bad File' should throw an exception";
+
+done_testing;