diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-05-27 08:46:35 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-26 15:13:53 +0000 |
| commit | 5b5a256ab100c58f58aab1b20dc1f7777b745fd1 (patch) | |
| tree | 4602e65df8002f8cb6617f8b7bd08100e62636ef /lib/bytes.t | |
| parent | 7423f6db106ad471398838e82e73b22d8c1e166e (diff) | |
| download | perl-5b5a256ab100c58f58aab1b20dc1f7777b745fd1.tar.gz | |
bytes.pm doesn't check undefined subroutine calling
Message-Id: <20050526234321.92F1.BQW10602@nifty.com>
p4raw-id: //depot/perl@24585
Diffstat (limited to 'lib/bytes.t')
| -rw-r--r-- | lib/bytes.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/bytes.t b/lib/bytes.t index 6b66a554b2..ea1b9f629b 100644 --- a/lib/bytes.t +++ b/lib/bytes.t @@ -4,7 +4,7 @@ BEGIN { require './test.pl'; } -plan tests => 19; +plan tests => 20; my $a = chr(0x100); @@ -46,3 +46,9 @@ my $c = chr(0x100); is(bytes::index($c, "\x80"), 1, "bytes::index under use bytes looks at bytes"); is(bytes::rindex($c, "\xc4"), 0, "bytes::rindex under use bytes looks at bytes"); } + +{ + fresh_perl_like ('use bytes; bytes::moo()', + qr/Undefined subroutine bytes::moo/, {stderr=>1}, + "Check Carp is loaded for AUTOLOADing errors") +} |