Raw, uncorrected synch of Pod-Simple-3.45

[perl5.git] / cpan / Pod-Simple / t / accept05.t

diff --git a/cpan/Pod-Simple/t/accept05.t b/cpan/Pod-Simple/t/accept05.t
index bcac1ac..ca14504 100644 (file)
--- a/cpan/Pod-Simple/t/accept05.t
+++ b/cpan/Pod-Simple/t/accept05.t
@@ -1,20 +1,10 @@
 # Testing extend and accept_codes
-BEGIN {
-    if($ENV{PERL_CORE}) {
-        chdir 't';
-        @INC = '../lib';
-    }
-}
-
 use strict;
 use warnings;
-use Test;
-BEGIN { plan tests => 24 };
+use Test::More tests => 22;
 
 #use Pod::Simple::Debug (2);
 
-ok 1;
-
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
@@ -22,9 +12,8 @@ print "# Pod::Simple version $Pod::Simple::VERSION\n";
 BEGIN {
   require FindBin;
   unshift @INC, $FindBin::Bin . '/lib';
-  require helpers;
-  helpers->import;
 }
+use helpers;
 
 my $x = 'Pod::Simple::XMLOutStream';
 sub accept_Q    { $_[0]->accept_codes('Q') }
@@ -41,16 +30,16 @@ sub accept_zing_superduperprok {
 
 
 print "# Some sanity tests...\n";
-ok( $x->_out( "=pod\n\nI like pie.\n"),
+is( $x->_out( "=pod\n\nI like pie.\n"),
   '<Document><Para>I like pie.</Para></Document>'
 );
-ok( $x->_out( "=extend N C Y,W\n\nI like pie.\n"),
+is( $x->_out( "=extend N C Y,W\n\nI like pie.\n"),
   '<Document><Para>I like pie.</Para></Document>'
 );
-ok( $x->_out( "=extend N C,F Y,W\n\nI like pie.\n"),
+is( $x->_out( "=extend N C,F Y,W\n\nI like pie.\n"),
   '<Document><Para>I like pie.</Para></Document>'
 );
-ok( $x->_out( "=extend N C,F,I Y,W\n\nI like pie.\n"),
+is( $x->_out( "=extend N C,F,I Y,W\n\nI like pie.\n"),
   '<Document><Para>I like pie.</Para></Document>'
 );
 
@@ -62,13 +51,13 @@ print "## OK, actually trying to use an extended code...\n";
 
 print "# extending but not accepted (so hitting fallback)\n";
 
-ok( $x->_out( "=extend N B Y,W\n\nI N<like> pie.\n"),
+is( $x->_out( "=extend N B Y,W\n\nI N<like> pie.\n"),
   '<Document><Para>I <B>like</B> pie.</Para></Document>'
 );
-ok( $x->_out( "=extend N B,I Y,W\n\nI N<like> pie.\n"),
+is( $x->_out( "=extend N B,I Y,W\n\nI N<like> pie.\n"),
   '<Document><Para>I <B><I>like</I></B> pie.</Para></Document>'
 );
-ok( $x->_out( "=extend N C,B,I Y,W\n\nI N<like> pie.\n"),
+is( $x->_out( "=extend N C,B,I Y,W\n\nI N<like> pie.\n"),
   '<Document><Para>I <C><B><I>like</I></B></C> pie.</Para></Document>'
 );
 
@@ -76,13 +65,13 @@ ok( $x->_out( "=extend N C,B,I Y,W\n\nI N<like> pie.\n"),
 
 print "# extending to one-letter accepted (not hitting fallback)\n";
 
-ok( $x->_out( \&accept_Q, "=extend N B Y,Q,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_Q, "=extend N B Y,Q,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <Q>like</Q> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_Q, "=extend N B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_Q, "=extend N B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <Q>like</Q> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_Q, "=extend N C,B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_Q, "=extend N C,B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <Q>like</Q> pie.</Para></Document>'
 );
 
@@ -90,13 +79,13 @@ ok( $x->_out( \&accept_Q, "=extend N C,B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
 
 print "# extending to many-letter accepted (not hitting fallback)\n";
 
-ok( $x->_out( \&accept_prok, "=extend N B Y,prok,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_prok, "=extend N B Y,prok,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <prok>like</prok> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_prok, "=extend N B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_prok, "=extend N B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <prok>like</prok> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_prok, "=extend N C,B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_prok, "=extend N C,B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <prok>like</prok> pie.</Para></Document>'
 );
 
@@ -104,13 +93,13 @@ ok( $x->_out( \&accept_prok, "=extend N C,B,I Y,prok,A,bzroch\n\nI N<like> pie.\
 
 print "# extending to :-containing, many-letter accepted (not hitting fallback)\n";
 
-ok( $x->_out( \&accept_zing_prok, "=extend N B Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_prok, "=extend N B Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_zing_prok, "=extend N B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_prok, "=extend N B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_zing_prok, "=extend N C,B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_prok, "=extend N C,B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>'
 );
 
@@ -119,13 +108,13 @@ ok( $x->_out( \&accept_zing_prok, "=extend N C,B,I Y,zing:prok,A,bzroch\n\nI N<l
 
 print "# extending to _:-0-9-containing, many-letter accepted (not hitting fallback)\n";
 
-ok( $x->_out( \&accept_zing_superprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_superprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_zing_superprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_superprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_zing_superprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_superprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
 );
 
@@ -133,19 +122,12 @@ ok( $x->_out( \&accept_zing_superprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroc
 
 print "#\n# Testing acceptance order\n";
 
-ok( $x->_out( \&accept_zing_superduperprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_superduperprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_zing_superduperprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_superduperprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
 );
-ok( $x->_out( \&accept_zing_superduperprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
+is( $x->_out( \&accept_zing_superduperprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
   '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
 );
-
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-