From: chromatic <chromatic@wgz.org>
Date: Mon, 1 Dec 2003 09:20:21 +0000 (-0800)
Subject: [REPATCH lib/AutoLoader.t] Test can() with AutoLoader
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a498340c5e9c95b1999816d3f8194563b91f0950;p=p5sagit%2Fp5-mst-13.2.git

[REPATCH lib/AutoLoader.t] Test can() with AutoLoader
Message-Id: <1070299221.1275.19.camel@localhost>

p4raw-id: //depot/perl@21844
---

diff --git a/lib/AutoLoader.t b/lib/AutoLoader.t
index 408b281..9ed79e3 100755
--- a/lib/AutoLoader.t
+++ b/lib/AutoLoader.t
@@ -16,7 +16,7 @@ BEGIN
 	unshift @INC, $dir;
 }
 
-use Test::More tests => 14;
+use Test::More tests => 17;
 
 # First we must set up some autoloader files
 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
@@ -73,19 +73,28 @@ require AutoLoader;
 AutoLoader->import( 'AUTOLOAD' );
 
 sub new { bless {}, shift };
+sub foo;
+sub bar;
+sub bazmarkhianish; 
 
 package main;
 
 my $foo = new Foo;
 
+my $result = $foo->can( 'foo' );
+ok( $result,               'can() first time' );
 is( $foo->foo, 'foo', 'autoloaded first time' );
 is( $foo->foo, 'foo', 'regular call' );
+is( $result,   \&Foo::foo, 'can() returns ref to regular installed sub' );
 
 eval {
     $foo->will_fail;
 };
 like( $@, qr/^Can't locate/, 'undefined method' );
 
+$result = $foo->can( 'will_fail' );
+ok( ! $result,               'can() should fail on undefined methods' );
+
 # Used to be trouble with this
 eval {
     my $foo = new Foo;