parcing out extended invert

Tlousky · Jun 10, 2010 · 61db021 · 61db021
1 parent 65379ca
commit 61db021
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 16 deletions.
diff --git a/t/extend_invert.t b/t/extend_invert.t
@@ -0,0 +1,24 @@
+#!perl
+
+# checking that invertion works the way we think it should
+
+use strict;
+use warnings;
+use Test::More tests => 3;
+use Test::Exception;
+use Net::IPAddress::Minimal 'invert_ip';
+
+{
+    no warnings qw/redefine once/;
+
+    *Net::IPAddress::Minimal::test_string_structure = sub {
+        cmp_ok( scalar @_, '==', 1, 'no. of param test_string_structure()' );
+        is( $_[0], 'test', 'correct param for test_string_structure()' );
+        return 'waka waka';
+    };
+}
+
+throws_ok { invert_ip('test') }
+    qr{^Could not convert IP string / number due to unknown error},
+    'invert_ip() can really die';
+
diff --git a/t/invert.t b/t/invert.t
@@ -4,9 +4,8 @@
 
 use strict;
 use warnings;
-use Test::More tests => 9;
+use Test::More tests => 6;
 use Net::IPAddress::Minimal 'invert_ip';
-use Test::Exception;
 
 my $ip_a   = '7.91.205.21';
 my $ip_num = 123456789;
@@ -40,17 +39,3 @@ is(
     'got empty string from invert_ip()',
 );
 
-{
-    no warnings qw/redefine once/;
-
-    *Net::IPAddress::Minimal::test_string_structure = sub {
-        cmp_ok( scalar @_, '==', 1, 'no. of param test_string_structure()' );
-        is( $_[0], 'test', 'correct param for test_string_structure()' );
-        return 'waka waka';
-    };
-}
-
-throws_ok { invert_ip('test') }
-    qr{^Could not convert IP string / number due to unknown error},
-    'invert_ip() can really die';
-