avoid needing . in @INC in dev mode

[gitmo/Algorithm-C3.git] / t / 001_merge.t

diff --git a/t/001_merge.t b/t/001_merge.t
index e18f85d..68a8537 100644 (file)
--- a/t/001_merge.t
+++ b/t/001_merge.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 BEGIN {
     use_ok('Algorithm::C3');          
@@ -47,7 +47,8 @@ BEGIN {
     package My::G;
     our @ISA = ('My::E');    
     package My::H;       
-    our @ISA = ('My::G', 'My::F');         
+    our @ISA = ('My::G', 'My::F');
+    sub method_exists_only_in_H { @ISA }
 }
 
 {
@@ -67,4 +68,10 @@ eval {
 };
 ok($@, '... this died as we expected');
 
-
+eval {
+    Algorithm::C3::merge(
+        'My::H',
+        'method_exists_only_in_H'
+    );
+};
+ok($@, '... this died as we expected');