From 9cc8c0a89e3984a04758240a76940bb70f49f256 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 19 Dec 2011 14:06:16 -0600 Subject: remove test numbers --- t/base2.t | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 t/base2.t (limited to 't/base2.t') 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; -- cgit v1.2.3-54-g00ecf