On
Fri, 25 May 2007 06:12:19 -0700
There was this post by Adrian Howard containing this example of the
TestSuite:
{ package BlahTest;
use base qw( Test::Unit::TestCase );
sub test_blah {
my ( $self ) = @_;
my $x = [ {'hello'=> 1 }, 1 ];
my $y = [ {'hello'=> 1 }, 2 ];
$self->assert_deep_equals( $x, $y );
}
}
{ package AllTests;
use base qw(Test::Unit::TestSuite);
sub name { 'Testing assert_deep_equals' }
sub include_tests { 'BlahTest' };
}
use Test::Unit::TestRunner;
Test::Unit::TestRunner->new->start( 'AllTests' );
Unfortunately, when I run this, I get another output than you describe,
namely:
.F
Time: 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU)
!!!FAILURES!!!
Test Results:
Run: 1 Failures: 1 Errors: 0
There was 1 failure:
1) warning(Test::Unit::TestSuite::_warning)
Test::Unit::ExceptionFailure:
Class AllTests is not a Test::Unit::TestCase
How do I run this TestSuite?
Thank you
Bernhard
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Perlunit-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perlunit-users
