Got inlining for hashes working.

[gitmo/Moose.git] / t / 070_native_traits / 003_trait_hash.t

diff --git a/t/070_native_traits/003_trait_hash.t b/t/070_native_traits/003_trait_hash.t
index a4d4b38..1b621b5 100644 (file)
--- a/t/070_native_traits/003_trait_hash.t
+++ b/t/070_native_traits/003_trait_hash.t
@@ -55,12 +55,10 @@ is( $stuff->num_options, 0, '... we have no options' );
 is_deeply( $stuff->options, {}, '... no options yet' );
 ok( !$stuff->has_option('foo'), '... we have no foo option' );
 
-my $set_result;
 lives_ok {
-    $set_result = $stuff->set_option( foo => 'bar' );
+    $stuff->set_option( foo => 'bar' );
 }
 '... set the option okay';
-is($set_result, 'bar', '... returns value set');
 
 ok( $stuff->is_defined('foo'), '... foo is defined' );
 
@@ -70,10 +68,9 @@ ok( $stuff->has_option('foo'), '... we have a foo option' );
 is_deeply( $stuff->options, { foo => 'bar' }, '... got options now' );
 
 lives_ok {
-    $set_result = $stuff->set_option( bar => 'baz' );
+    $stuff->set_option( bar => 'baz' );
 }
 '... set the option okay';
-is($set_result, 'baz', '... returns value set');
 
 is( $stuff->num_options, 2, '... we have 2 option(s)' );
 is_deeply( $stuff->options, { foo => 'bar', bar => 'baz' },
@@ -87,12 +84,10 @@ is_deeply( [ $stuff->get_option(qw(foo bar)) ], [qw(bar baz)],
 is( scalar($stuff->get_option(qw( foo bar) )), "baz",
        '... got last option in scalar context');
 
-my @set_return;
 lives_ok {
-    @set_return = $stuff->set_option( oink => "blah", xxy => "flop" );
+    $stuff->set_option( oink => "blah", xxy => "flop" );
 }
 '... set the option okay';
-is_deeply(\@set_return, [ qw(blah flop) ], '... and returns values set');
 
 is( $stuff->num_options, 4, "4 options" );
 is_deeply( [ $stuff->get_option(qw(foo bar oink xxy)) ],