diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-07-22 08:27:40 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-07-22 08:27:40 -0500 |
| commit | 964a4988d8d817b838ce779c43bc86d4e738c878 (patch) | |
| tree | 1d87a30b2ae461827fab62d832e495207874d085 /lib/Carp.t | |
| parent | ddb5125fc979ebb146d87e7eedd2e196706c06ea (diff) | |
| download | perl-964a4988d8d817b838ce779c43bc86d4e738c878.tar.gz | |
Looser filename matching for new Carp.t tests.
Diffstat (limited to 'lib/Carp.t')
| -rw-r--r-- | lib/Carp.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Carp.t b/lib/Carp.t index 1541341401..1c59987c49 100644 --- a/lib/Carp.t +++ b/lib/Carp.t @@ -305,7 +305,7 @@ for my $bodge_job (2, 1, 0) { like( $got, qr/${package}::long\($warning\) called at $previous_package line 7/, "Correct arguments for $package" ); } my $arg = $bodge_job ? $warning : 42; - like( $got, qr!A::long\($arg\) called at .*lib/Carp.t line \d+!, + like( $got, qr!A::long\($arg\) called at.+\b(?i:carp\.t) line \d+!, 'Correct arguments for A' ); } @@ -320,7 +320,7 @@ EOT my $got = A::long(42); -like( $got, qr!A::long\(\Q** Incomplete caller override detected; \E\@DB::args\Q were not set **\E\) called at .*lib/Carp.t line \d+!, +like( $got, qr!A::long\(\Q** Incomplete caller override detected; \E\@DB::args\Q were not set **\E\) called at.+\b(?i:carp\.t) line \d+!, 'Correct arguments for A' ); # New tests go here |