From 332878e1ede268223970e2ddec708901541910d4 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 4 Feb 2011 11:32:55 +0000 Subject: 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. --- ext/B/t/concise.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ext/B/t/concise.t') 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 -- cgit v1.2.1