AI-PBDD
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl PBDD.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use strict;
use warnings;
use Test::More tests => 39;
BEGIN { use_ok('AI::PBDD') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
sub DumpBDD {
my ($bdd,$names) = @_;
my ($idx, $then, $else);
if (AI::PBDD::internal_isconst($bdd) && AI::PBDD::internal_constvalue($bdd)) {
return 'T';
}
if (AI::PBDD::internal_isconst($bdd) && !AI::PBDD::internal_constvalue($bdd)) {
return 'F';
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.571 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )