Refactored native trait accessors so they are done entirely in roles.

[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 7307011..b749895 100644 (file)
--- a/t/070_native_traits/020_trait_bool.t
+++ b/t/070_native_traits/020_trait_bool.t
@@ -3,8 +3,11 @@
 use strict;
 use warnings;
 
+use lib 't/lib';
+
 use Moose ();
 use Moose::Util::TypeConstraints;
+use NoInlineAttribute;
 use Test::More;
 use Test::Exception;
 use Test::Moose;
@@ -27,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,
@@ -47,6 +54,7 @@ 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 };