my ($last_test,$loaded);
######################### We start with some black magic to print on failure.
use lib '../blib/lib','../blib/arch';
BEGIN { $last_test = 2; $| = 1; print "1..$last_test\n"; }
END { print "not ok 1 Can't load Algorithm::Cluster\n" unless $loaded; }
use Algorithm::Cluster;
$loaded = 1;
print "ok 1\n";
######################### End of black magic.
sub test; # Predeclare the test function (defined below)
my $tcounter = 1;
my $want = '';
#------------------------------------------------------
# Tests
#
my $xx = Algorithm::Cluster::hello();
$want = "Hello world!!\n"; test q( $xx );
#------------------------------------------------------
# Test function
#
sub test {
$tcounter++;
my $string = shift;
my $ret = eval $string;
$ret = 'undef' if not defined $ret;
if("$ret" =~ /^$want$/sm) {
print "ok $tcounter\n";
} else {
print "not ok $tcounter\n",
" -- '$string' returned '$ret'\n",
" -- expected =~ /$want/\n"
}
}