From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 26 Sep 2005 14:21:09 +0000 (-0700)
Subject: Warnings in tests @25605 due to cmp_ok behavior change.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5600ef16f38e8e0480b522a986156b017203c369;p=p5sagit%2Fp5-mst-13.2.git

Warnings in tests @25605 due to cmp_ok behavior change.
Message-ID: <20050926212109.GA11036@windhund.schwern.org>

p4raw-id: //depot/perl@25610
---

diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t
index f767a00..36d3368 100644
--- a/lib/AutoSplit.t
+++ b/lib/AutoSplit.t
@@ -99,6 +99,8 @@ foreach (@tests) {
   foreach ($args{Name}, $args{Require}, $args{Extra}) {
     chomp $_ if defined $_;
   }
+  $args{Get} ||= '';
+
   my @extra_args = !defined $args{Extra} ? () : split /,/, $args{Extra};
   my ($output, $body);
   if ($args{File}) {
@@ -120,7 +122,7 @@ foreach (@tests) {
   }
 
   # test n+1
-  cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}");
+  is($output, $args{Get}, "Output from autosplit()ing $args{Name}");
 
   if ($args{Files}) {
     $args{Files} =~ s!/!:!gs if $^O eq 'MacOS';
diff --git a/lib/Pod/t/InputObjects.t b/lib/Pod/t/InputObjects.t
index d086086..0beeb4e 100644
--- a/lib/Pod/t/InputObjects.t
+++ b/lib/Pod/t/InputObjects.t
@@ -37,7 +37,7 @@ use_ok( 'Pod::InputObjects' );
     is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
     is( $p_p1->cmd_name( 'head1' ), 'head1', 
         'Pod::Paragraph->cmd_name( head1 )' );
-    cmp_ok( $p_p2->cmd_name(), 'eq', '',
+    ok( !$p_p2->cmd_name(),
         'Pod::Paragraph->cmd_name() revisited' );
 
     is( $p_p1->text(), 'NAME', 'Pod::Paragraph->text()' );