todo test for the role composition issue

[gitmo/Moose.git] / t / 070_native_traits / 020_trait_bool.t

diff --git a/t/070_native_traits/020_trait_bool.t b/t/070_native_traits/020_trait_bool.t
index 7587d57..2541c68 100644 (file)
--- a/t/070_native_traits/020_trait_bool.t
+++ b/t/070_native_traits/020_trait_bool.t
@@ -3,9 +3,13 @@
 use strict;
 use warnings;
 
+use lib 't/lib';
+
 use Moose ();
+use Moose::Util::TypeConstraints;
+use NoInlineAttribute;
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 use Test::Moose;
 
 {
@@ -26,9 +30,13 @@ use Test::Moose;
             superclasses => ['Moose::Object'],
         );
 
+        my @traits = 'Bool';
+        push @traits, 'NoInlineAttribute'
+            if delete $attr{no_inline};
+
         $class->add_attribute(
             is_lit => (
-                traits  => ['Bool'],
+                traits  => \@traits,
                 is      => 'rw',
                 isa     => 'Bool',
                 default => 0,
@@ -45,6 +53,17 @@ use Test::Moose;
 {
     run_tests(build_class);
     run_tests( build_class( lazy => 1 ) );
+    run_tests( build_class( trigger => sub { } ) );
+    run_tests( build_class( no_inline => 1 ) );
+
+    # Will force the inlining code to check the entire hashref when it is modified.
+    subtype 'MyBool', as 'Bool', where { 1 };
+
+    run_tests( build_class( isa => 'MyBool' ) );
+
+    coerce 'MyBool', from 'Bool', via { $_ };
+
+    run_tests( build_class( isa => 'MyBool', coerce => 1 ) );
 }
 
 sub run_tests {
@@ -55,29 +74,23 @@ sub run_tests {
     with_immutable {
         my $obj = $class->new;
 
-        $obj->illuminate;
+        ok( $obj->illuminate, 'set returns true' );
         ok( $obj->is_lit,   'set is_lit to 1 using ->illuminate' );
         ok( !$obj->is_dark, 'check if is_dark does the right thing' );
 
-        throws_ok { $obj->illuminate(1) }
-        qr/Cannot call set with any arguments/,
-            'set throws an error when an argument is passed';
+        like( exception { $obj->illuminate(1) }, qr/Cannot call set with any arguments/, 'set throws an error when an argument is passed' );
 
-        $obj->darken;
+        ok( !$obj->darken, 'unset returns false' );
         ok( !$obj->is_lit, 'set is_lit to 0 using ->darken' );
         ok( $obj->is_dark, 'check if is_dark does the right thing' );
 
-        throws_ok { $obj->darken(1) }
-        qr/Cannot call unset with any arguments/,
-            'unset throws an error when an argument is passed';
+        like( exception { $obj->darken(1) }, qr/Cannot call unset with any arguments/, 'unset throws an error when an argument is passed' );
 
-        $obj->flip_switch;
+        ok( $obj->flip_switch, 'toggle returns new value' );
         ok( $obj->is_lit,   'toggle is_lit back to 1 using ->flip_switch' );
         ok( !$obj->is_dark, 'check if is_dark does the right thing' );
 
-        throws_ok { $obj->flip_switch(1) }
-        qr/Cannot call toggle with any arguments/,
-            'toggle throws an error when an argument is passed';
+        like( exception { $obj->flip_switch(1) }, qr/Cannot call toggle with any arguments/, 'toggle throws an error when an argument is passed' );
 
         $obj->flip_switch;
         ok( !$obj->is_lit,