add subs.t

shelling · Apr 6, 2009 · 50ae36d · 50ae36d
1 parent db79fbf
commit 50ae36d
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/t/simple.t b/t/simple.t
@@ -1,4 +1,5 @@
 use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 BEGIN { use_ok("Class::Implant") };
+require_ok("Class::Implant");
diff --git a/t/subs.t b/t/subs.t
@@ -0,0 +1,12 @@
+use Test::More qw(no_plan);
+
+package Foo;
+sub hello {"hello"}
+sub world {"world"}
+
+package Bar;
+use Class::Implant;
+implant qw(Foo);
+
+package main;
+can_ok(Bar,qw(hello world))