AI-ExpertSystem-Simple
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 18;
################################################################################
# Load the class
################################################################################
use_ok('AI::ExpertSystem::Simple::Goal');
################################################################################
# Create a AI::ExpertSystem::Simple::Goal incorrectly
################################################################################
t/Knowledge.t view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 44;
################################################################################
# Load the class
################################################################################
use_ok('AI::ExpertSystem::Simple::Knowledge');
################################################################################
# Create a Rule incorrectly
################################################################################
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 37;
use_ok('AI::ExpertSystem::Simple::Rule');
################################################################################
# Create a new rule
################################################################################
my $x;
eval { $x = AI::ExpertSystem::Simple::Rule->new(); };
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 28;
use_ok('AI::ExpertSystem::Simple');
################################################################################
# Create a new expert system
################################################################################
my $x;
eval { $x = AI::ExpertSystem::Simple->new(1); };
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.684 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )