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';
|
