This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Check more than just the first word of the "Inconsistent C3" error message.
authorNicholas Clark <nick@ccl4.org>
Sat, 13 Aug 2011 12:05:40 +0000 (14:05 +0200)
committerNicholas Clark <nick@ccl4.org>
Sat, 13 Aug 2011 12:05:40 +0000 (14:05 +0200)
t/mro/inconsistent_c3.t

index 68d3795..ae01e9f 100644 (file)
@@ -46,4 +46,5 @@ except TypeError:
 }
 
 eval { mro::get_linear_isa('Z', 'c3') };
-like($@, qr/^Inconsistent /, '... got the right error with an inconsistent hierarchy');
+like($@, qr/^Inconsistent hierarchy during C3 merge of class 'Z'/,
+     '... got the right error with an inconsistent hierarchy');