Algorithm-SAT-Backtracking
view release on metacpan or search on metacpan
t/01_backtrack.t view on Meta::CPAN
# Testing Update
subtest "update()" => sub {
my $t_model
= { pink => 1, red => 0, purple => 0, green => 0, yellow => 1 };
my $new_model = $agent->update( $t_model, 'foobar', 1 );
is( $t_model->{foobar}, undef, "old model doesn't have 'foobar'" );
$new_model->{test} = 0;
is( $t_model->{test}, undef, "old model it's not affected by new one" );
is( $new_model->{foobar}, 1, "new model was updated" );
};
# Testing solve
subtest "solve()" => sub {
my $variables = [ 'blue', 'green', 'yellow', 'pink', 'purple' ];
my $clauses = [
[ 'blue', 'green', '-yellow' ],
[ '-blue', '-green', 'yellow' ],
[ 'pink', 'purple', 'green', 'blue', '-yellow' ]
];
( run in 0.385 second using v1.01-cache-2.11-cpan-05444aca049 )