Change 33700 by [EMAIL PROTECTED] on 2008/04/16 15:15:20
Use like() rather than is() to get better failure diagnostics.
(One step beyond Jarkko's change 15735)
Affected files ...
... //depot/perl/t/op/method.t#27 edit
Differences ...
==== //depot/perl/t/op/method.t#27 (xtext) ====
Index: perl/t/op/method.t
--- perl/t/op/method.t#26~22091~ 2004-01-07 11:09:50.000000000 -0800
+++ perl/t/op/method.t 2008-04-16 08:15:20.000000000 -0700
@@ -183,23 +183,23 @@
# test error messages if method loading fails
-is(do { eval '$e = bless {}, "E::A"; E::A->foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::A" at/ ? 1
: [EMAIL PROTECTED], 1);
-is(do { eval '$e = bless {}, "E::B"; $e->foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::B" at/ ? 1
: [EMAIL PROTECTED], 1);
-is(do { eval 'E::C->foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::C"
(perhaps / ? 1 : [EMAIL PROTECTED], 1);
-
-is(do { eval 'UNIVERSAL->E::D::foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::D"
(perhaps / ? 1 : [EMAIL PROTECTED], 1);
-is(do { eval '$e = bless {}, "UNIVERSAL"; $e->E::E::foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::E"
(perhaps / ? 1 : [EMAIL PROTECTED], 1);
+eval '$e = bless {}, "E::A"; E::A->foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::A" at/);
+eval '$e = bless {}, "E::B"; $e->foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::B" at/);
+eval 'E::C->foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::C" (perhaps
/);
+
+eval 'UNIVERSAL->E::D::foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::D" (perhaps
/);
+eval '$e = bless {}, "UNIVERSAL"; $e->E::E::foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::E" (perhaps
/);
$e = bless {}, "E::F"; # force package to exist
-is(do { eval 'UNIVERSAL->E::F::foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::F" at/ ? 1
: [EMAIL PROTECTED], 1);
-is(do { eval '$e = bless {}, "UNIVERSAL"; $e->E::F::foo()';
- $@ =~ /^\QCan't locate object method "foo" via package "E::F" at/ ? 1
: [EMAIL PROTECTED], 1);
+eval 'UNIVERSAL->E::F::foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::F" at/);
+eval '$e = bless {}, "UNIVERSAL"; $e->E::F::foo()';
+like ($@, qr/^\QCan't locate object method "foo" via package "E::F" at/);
# TODO: we need some tests for the SUPER:: pseudoclass
End of Patch.
