diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-02-04 11:32:55 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-02-04 11:32:55 +0000 |
| commit | 332878e1ede268223970e2ddec708901541910d4 (patch) | |
| tree | 15bc0860374dc34d581d3fd2c54b493dbcf4e4fb /ext/B/t/concise.t | |
| parent | b2d32ffb25539e36e18d4e4d11483f75d2b53b18 (diff) | |
| download | perl-332878e1ede268223970e2ddec708901541910d4.tar.gz | |
In B's tests, fix calls to like() which weren't being passed a regexp.
Now that the tests actually *test*, this reveals that one of the tests wasn't
actually correct. Fix that, and in the process make the particular error
message clearer and more consistent.
Diffstat (limited to 'ext/B/t/concise.t')
| -rw-r--r-- | ext/B/t/concise.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 075e1da149..faff8a36de 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -92,7 +92,7 @@ SKIP: { my @stylespec; $@=''; eval { add_style ('junk_B' => @stylespec) }; -like ($@, 'expecting 3 style-format args', +like ($@, qr/expecting 3 style-format args/, "add_style rejects insufficient args"); @stylespec = (0,0,0); # right length, invalid values |