41 lines
801 B
Perl
41 lines
801 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,v 1.1 2004/10/30 01:10:21 deveiant Exp $
|
||
|
|
|
||
|
|
=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();
|
||
|
|
}
|