module-build-checkins

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6041/t

Modified Files:
	parents.t 
Log Message:
use Test::More

Index: parents.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/parents.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- parents.t	15 Dec 2004 21:32:48 -0000	1.1
+++ parents.t	28 Jun 2005 03:51:40 -0000	1.2
@@ -1,6 +1,13 @@
+#!/usr/bin/perl -w
+
+use lib 't/lib';
 use strict;
-use Test;
-BEGIN { plan tests => 27 }
+
+use Test::More tests => 27;
+
+
+#########################
+
 use Module::Build;
 ok(1);
 
@@ -29,29 +36,29 @@
 ok @parents >= 2;
 # They should all inherit from Module::Build::Base;
 ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-ok $parents[0], 'Module::Build';
-ok $parents[-1], 'Module::Build::Base';
+is $parents[0], 'Module::Build';
+is $parents[-1], 'Module::Build::Base';
 
 ok @parents = MySub2->mb_parents;
 ok @parents >= 3;
 ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-ok $parents[0], 'MySub1';
-ok $parents[1], 'Module::Build';
-ok $parents[-1], 'Module::Build::Base';
+is $parents[0], 'MySub1';
+is $parents[1], 'Module::Build';
+is $parents[-1], 'Module::Build::Base';
 
 ok @parents = MySub3->mb_parents;
 ok @parents >= 4;
 ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-ok $parents[0], 'MySub2';
-ok $parents[1], 'MySub1';
-ok $parents[2], 'Module::Build';
-ok $parents[-1], 'Module::Build::Base';
+is $parents[0], 'MySub2';
+is $parents[1], 'MySub1';
+is $parents[2], 'Module::Build';
+is $parents[-1], 'Module::Build::Base';
 
 ok @parents = MyBulk->mb_parents;
 ok @parents >= 5;
 ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-ok $parents[0], 'MySub2';
-ok $parents[1], 'MySub1';
-ok $parents[2], 'Module::Build';
-ok $parents[-2], 'Module::Build::Base';
-ok $parents[-1], 'MyTest';
+is $parents[0], 'MySub2';
+is $parents[1], 'MySub1';
+is $parents[2], 'Module::Build';
+is $parents[-2], 'Module::Build::Base';
+is $parents[-1], 'MyTest';