view release on metacpan or  search on metacpan

t/08ng.t  view on Meta::CPAN

    my $l3 = join(" ", map { $_->value } ($m, $o, $n, $e, $y));

    is($l1, "9 5 6 7");
    is($l2, "1 0 8 5");
    is($l3, "1 0 6 5 2");

    # NoGood is registered
    ok($ngs->nb_no_goods > 0);
    my $nng = $ngs->nb_no_goods;

    use Data::Dumper;
    $ngs->filter_no_good(sub {
	return 1;
			 }); # use this NG
    is($ngs->nb_no_goods, $nng);

    $ngs->filter_no_good(sub {0}); # don't use this NG
    is($ngs->nb_no_goods, 0);
}

# direct call of NoGoodSet->new