blob: d0e893187b0ca567f65f41c9bc1187d7f350208e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
END {print "not ok 1\n" unless $loaded;}
use HTML::CalendarMonthSimple;
$loaded = 1;
print "ok 1\n";
######################### End of black magic.
# test instantiation of a new calendar object
my $cal = new HTML::CalendarMonthSimple();
if ($cal) { print "ok 2\n"; } else { die "not ok 2\n"; }
|
