6 use Test::More tests => 8;
7 use Moose::AttributeHelpers;
20 flip_switch => 'toggle',
28 ok $room->is_lit, 'set is_lit to 1 using ->illuminate';
29 ok !$room->is_dark, 'check if is_dark does the right thing';
32 ok !$room->is_lit, 'set is_lit to 0 using ->darken';
33 ok $room->is_dark, 'check if is_dark does the right thing';
36 ok $room->is_lit, 'toggle is_lit back to 1 using ->flip_switch';
37 ok !$room->is_dark, 'check if is_dark does the right thing';
40 ok !$room->is_lit, 'toggle is_lit back to 0 again using ->flip_switch';
41 ok $room->is_dark, 'check if is_dark does the right thing';