#!/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();
}