1 files changed, 101 insertions, 0 deletions
diff --git a/t/native_traits/trait_bool.t b/t/native_traits/trait_bool.t
new file mode 100644
index 0000000..7a416da
--- /dev/null
+++ b/t/native_traits/trait_bool.t
@@ -0,0 +1,101 @@
+use strict;
+use warnings;
+
+use lib 't/lib';
+
+use Moose ();
+use Moose::Util::TypeConstraints;
+use NoInlineAttribute;
+use Test::More;
+use Test::Fatal;
+use Test::Moose;
+
+{
+    my %handles = (
+        illuminate  => 'set',
+        darken      => 'unset',
+        flip_switch => 'toggle',
+        is_dark     => 'not',
+    );
+
+    my $name = 'Foo1';
+
+    sub build_class {
+        my %attr = @_;
+
+        my $class = Moose::Meta::Class->create(
+            $name++,
+            superclasses => ['Moose::Object'],
+        );
+
+        my @traits = 'Bool';
+        push @traits, 'NoInlineAttribute'
+            if delete $attr{no_inline};
+
+        $class->add_attribute(
+            is_lit => (
+                traits  => \@traits,
+                is      => 'rw',
+                isa     => 'Bool',
+                default => 0,
+                handles => \%handles,
+                clearer => '_clear_is_list',
+                %attr,
+            ),
+        );
+
+        return ( $class->name, \%handles );
+    }
+}
+
+{
+    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 {
+    my ( $class, $handles ) = @_;
+
+    can_ok( $class, $_ ) for sort keys %{$handles};
+
+    with_immutable {
+        my $obj = $class->new;
+
+        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' );
+
+        like( exception { $obj->illuminate(1) }, qr/Cannot call set with any arguments/, 'set throws an error when an argument is passed' );
+
+        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' );
+
+        like( exception { $obj->darken(1) }, qr/Cannot call unset with any arguments/, 'unset throws an error when an argument is passed' );
+
+        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' );
+
+        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,
+            'toggle is_lit back to 0 again using ->flip_switch' );
+        ok( $obj->is_dark, 'check if is_dark does the right thing' );
+    }
+    $class;
+}
+
+done_testing;