[Module-build-checkins] Module-Build/t pod_parser.t,1.2,1.3

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

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

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

Index: pod_parser.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/pod_parser.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- pod_parser.t	9 Oct 2004 15:39:01 -0000	1.2
+++ pod_parser.t	28 Jun 2005 03:55:19 -0000	1.3
@@ -1,10 +1,22 @@
+#!/usr/bin/perl -w
 
+use lib 't/lib';
 use strict;
-use Test;
-plan tests => 4;
 
-use Module::Build::PodParser;
-ok(1);
+use Test::More tests => 4;
+
+
+use File::Spec ();
+my $common_pl = File::Spec->catfile( 't', 'common.pl' );
+require $common_pl;
+
+
+use Cwd ();
+my $cwd = Cwd::cwd;
+
+#########################
+
+use_ok 'Module::Build::PodParser';
 
 {
   package IO::StringBased;
@@ -38,7 +50,7 @@
 
 
 my $pp = Module::Build::PodParser->new(fh => \*FH);
-ok $pp;
+ok $pp, 'object created';
 
-ok $pp->get_author->[0], 'C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh...@ex...<gt>> in 2004.';
-ok $pp->get_abstract, 'Perl extension for blah blah blah';
+is $pp->get_author->[0], 'C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh...@ex...<gt>> in 2004.', 'author';
+is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract';