From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 17 Feb 2004 04:40:00 +0000 (+0000)
Subject:  * Added test cases
X-Git-Url: https://git.donarmstrong.com/?p=class_modular.git%2F.git;a=commitdiff_plain;h=69611cae0db771ef3f3c3c0660fbc685801cec47

 * Added test cases

git-svn-id: file:///srv/don_svn/class_modular/trunk@17 96c6a18b-02ce-0310-9fca-9eb62c757ba6
---

diff --git a/t/01_module.t b/t/01_module.t
new file mode 100644
index 0000000..e2711c5
--- /dev/null
+++ b/t/01_module.t
@@ -0,0 +1,59 @@
+# This file is part of Class::Modular and is released under the terms
+# of the GPL version 2, or any later version at your option. See the
+# file README and COPYING for more information.
+# Copyright 2004 by Don Armstrong <don@donarmstrong.com>.
+# $Id: $
+
+
+use Test::Simple tests => 7;
+
+use UNIVERSAL;
+
+my $destroy_hit = 0;
+
+{
+     # Fool require.
+     $INC{'Foo.pm'} = '1';
+     package Foo;
+
+     use base qw(Class::Modular);
+     use constant METHODS => 'blah';
+
+     sub blah {
+	  return 1;
+     }
+
+     sub _destroy{
+	  $destroy_hit = 1;
+     }
+}
+
+
+my $foo = new Foo(qw(bar baz));
+
+# 1: test new
+ok(defined $foo and ref($foo) eq 'Foo' and UNIVERSAL::isa($foo,'Class::Modular'), 'new() works');
+
+$foo->load('Foo');
+# 2: test load()
+ok(exists $foo->{_subclasses}{Foo}, 'load() works');
+# 3: test AUTOLOAD
+ok($foo->blah, 'AUTOLOAD works');
+
+# Check override
+#$foo->override('blah',sub{return 2});
+#ok($foo->blah == 2, 'override() works');
+
+# Check can
+# 5: Check can
+ok($foo->can('blah'),'can() works');
+
+# Check clone
+ok(defined $foo->clone, 'clone() works');
+
+# Check handledby
+ok($foo->handledby('blah') eq 'Foo', 'handledby() works');
+
+# Check DESTROY
+undef $foo;
+ok($destroy_hit,'DESTROY called _destroy');