diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2005-09-26 07:21:09 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-27 06:40:09 +0000 |
| commit | e6e1dedc0b5a43bf6374577d3922567fe6fcc66c (patch) | |
| tree | 7e564284019ea727e94433877b6df9485143f041 /lib | |
| parent | d97a315ce54ded56d1245dac0f8144c4bfcbd99b (diff) | |
| download | perl-e6e1dedc0b5a43bf6374577d3922567fe6fcc66c.tar.gz | |
Warnings in tests @25605 due to cmp_ok behavior change.
Message-ID: <20050926212109.GA11036@windhund.schwern.org>
p4raw-id: //depot/perl@25610
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/AutoSplit.t | 4 | ||||
| -rw-r--r-- | lib/Pod/t/InputObjects.t | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t index f767a00364..36d33681d5 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 d086086477..0beeb4e5d4 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()' ); |