Revert most of the conversion to Test::Fatal so we can redo it

[gitmo/Moose.git] / t / 070_native_traits / 070_trait_string.t

diff --git a/t/070_native_traits/070_trait_string.t b/t/070_native_traits/070_trait_string.t
index e6ab822..c6b9c63 100644 (file)
--- a/t/070_native_traits/070_trait_string.t
+++ b/t/070_native_traits/070_trait_string.t
@@ -9,7 +9,7 @@ use Moose ();
 use Moose::Util::TypeConstraints;
 use NoInlineAttribute;
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 use Test::Moose;
 
 {
@@ -92,28 +92,28 @@ sub run_tests {
         $obj->_string('a');
         is( $obj->length, 1, 'length returns 1 for new string' );
 
-        like exception { $obj->length(42) },
+        throws_ok { $obj->length(42) }
         qr/Cannot call length with any arguments/,
             'length throws an error when an argument is passed';
 
         is( $obj->inc, 'b', 'inc returns new value' );
         is( $obj->_string, 'b', 'a becomes b after inc' );
 
-        like exception { $obj->inc(42) },
+        throws_ok { $obj->inc(42) }
         qr/Cannot call inc with any arguments/,
             'inc throws an error when an argument is passed';
 
         is( $obj->append('foo'), 'bfoo', 'append returns new value' );
         is( $obj->_string, 'bfoo', 'appended to the string' );
 
-        like exception { $obj->append( 'foo', 2 ) },
+        throws_ok { $obj->append( 'foo', 2 ) }
         qr/Cannot call append with more than 1 argument/,
             'append throws an error when two arguments are passed';
 
         $obj->append_curried;
         is( $obj->_string, 'bfoo!', 'append_curried appended to the string' );
 
-        like exception { $obj->append_curried('foo') },
+        throws_ok { $obj->append_curried('foo') }
         qr/Cannot call append with more than 1 argument/,
             'append_curried throws an error when two arguments are passed';
 
@@ -127,14 +127,14 @@ sub run_tests {
             'chomp is a no-op when string has no line ending'
         );
 
-        like exception { $obj->chomp(42) },
+        throws_ok { $obj->chomp(42) }
         qr/Cannot call chomp with any arguments/,
             'chomp throws an error when an argument is passed';
 
         is( $obj->chop, 'l', 'chop returns character removed' );
         is( $obj->_string, 'has n', 'chopped string' );
 
-        like exception { $obj->chop(42) },
+        throws_ok { $obj->chop(42) }
         qr/Cannot call chop with any arguments/,
             'chop throws an error when an argument is passed';
 
@@ -173,11 +173,11 @@ sub run_tests {
         is( $obj->_string, 'af',
             'replace accepts an empty string as first argument' );
 
-        like exception { $obj->replace( {}, 'x' ) },
+        throws_ok { $obj->replace( {}, 'x' ) }
         qr/The first argument passed to replace must be a string or regexp reference/,
             'replace throws an error when the first argument is not a string or regexp';
 
-        like exception { $obj->replace( qr/x/, {} ) },
+        throws_ok { $obj->replace( qr/x/, {} ) }
         qr/The second argument passed to replace must be a string or code reference/,
             'replace throws an error when the first argument is not a string or regexp';
 
@@ -207,11 +207,11 @@ sub run_tests {
             'match with empty string as argument returns true'
         );
 
-        like exception { $obj->match },
+        throws_ok { $obj->match }
         qr/Cannot call match without at least 1 argument/,
             'match throws an error when no arguments are passed';
 
-        like exception { $obj->match( {} ) },
+        throws_ok { $obj->match( {} ) }
         qr/The argument passed to match must be a string or regexp reference/,
             'match throws an error when an invalid argument is passed';
 
@@ -224,7 +224,7 @@ sub run_tests {
         $obj->clear;
         is( $obj->_string, q{}, 'clear' );
 
-        like exception { $obj->clear(42) },
+        throws_ok { $obj->clear(42) }
         qr/Cannot call clear with any arguments/,
             'clear throws an error when an argument is passed';
 
@@ -258,23 +258,23 @@ sub run_tests {
             'substr as setter with three arguments, replacment is empty string'
         );
 
-        like exception { $obj->substr },
+        throws_ok { $obj->substr }
         qr/Cannot call substr without at least 1 argument/,
             'substr throws an error when no argumemts are passed';
 
-        like exception { $obj->substr( 1, 2, 3, 4 ) },
+        throws_ok { $obj->substr( 1, 2, 3, 4 ) }
         qr/Cannot call substr with more than 3 arguments/,
             'substr throws an error when four argumemts are passed';
 
-        like exception { $obj->substr( {} ) },
+        throws_ok { $obj->substr( {} ) }
         qr/The first argument passed to substr must be an integer/,
             'substr throws an error when first argument is not an integer';
 
-        like exception { $obj->substr( 1, {} ) },
+        throws_ok { $obj->substr( 1, {} ) }
         qr/The second argument passed to substr must be an integer/,
             'substr throws an error when second argument is not an integer';
 
-        like exception { $obj->substr( 1, 2, {} ) },
+        throws_ok { $obj->substr( 1, 2, {} ) }
         qr/The third argument passed to substr must be a string/,
             'substr throws an error when third argument is not a string';