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 | 5600ef16f38e8e0480b522a986156b017203c369 (patch) | |
| tree | 7e564284019ea727e94433877b6df9485143f041 /lib/AutoSplit.t | |
| parent | 8e180e821340074db62baf476e6c5d624c9aee27 (diff) | |
| download | perl-5600ef16f38e8e0480b522a986156b017203c369.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/AutoSplit.t')
| -rw-r--r-- | lib/AutoSplit.t | 4 |
1 files changed, 3 insertions, 1 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'; |