use strict;
use warnings;
use Test::More;
use Games::Sudoku::Component::Result;
my ($r, $r2, $r3);
my @tests = (
sub {
$r = Games::Sudoku::Component::Result->new;
ok(ref $r eq 'Games::Sudoku::Component::Result');
},
sub {
ok($r->result == 0);
},
sub {
ok(!$r);
},
sub {
ok($r == 0);
},
sub {
ok($r->reason eq '');
},
sub {
$r2 = Games::Sudoku::Component::Result->new(1);
ok(ref $r2 eq 'Games::Sudoku::Component::Result');
},
sub {
ok($r2->result == 1);
},
sub {
ok($r2);
},
sub {
ok($r2 == 1);
},
sub {
ok($r2 eq '1');
},
sub {
$r3 = Games::Sudoku::Component::Result->new(
result => 2,
reason => 'test'
);
ok(ref $r3 eq 'Games::Sudoku::Component::Result');
},
sub {
ok($r3->result == 2);
},
sub {
ok($r3);
},
sub {
ok($r3 == 2);
},
sub {
ok($r3 eq '2');
},
sub {
ok($r3->reason eq 'test');
},
);
eval "use Test::Exception";
unless ($@) {
push @tests, (
);
}
plan tests => scalar @tests;
foreach my $test (@tests) { $test->(); }