41 lines
777 B
Perl
41 lines
777 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
###########################################################################
|
||
|
|
|
||
|
|
=head1 Example test script
|
||
|
|
|
||
|
|
This is a minimal test suite to demo LJ::Test::Unit.
|
||
|
|
|
||
|
|
=head1 CVS
|
||
|
|
|
||
|
|
$Id: example.test.pl 4627 2004-10-30 01:10:21Z deveiant $
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
###########################################################################
|
||
|
|
package moveuclusterd_tests;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use lib qw{lib};
|
||
|
|
|
||
|
|
use LJ::Test::Unit qw{+autorun};
|
||
|
|
use LJ::Test::Assertions qw{:all};
|
||
|
|
|
||
|
|
sub test_00_packages {
|
||
|
|
assert(1);
|
||
|
|
assert_undef(undef);
|
||
|
|
assert_defined(1);
|
||
|
|
assert_no_exception { my $foo = 1; };
|
||
|
|
}
|
||
|
|
|
||
|
|
sub test_01_fail {
|
||
|
|
fail("Intentional failure.");
|
||
|
|
}
|
||
|
|
|
||
|
|
sub test_02_fail2 {
|
||
|
|
assert_no_exception { blargllglg() } "Demo of failing assertion.";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub test_05_error {
|
||
|
|
plop();
|
||
|
|
}
|