Test method calls

diff --git a/MANIFEST b/MANIFEST
index 6444bebe0a8ba62ce2e25db9452f56eb87202d76..f0144270be1638d3de53c410452db87efc949341 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -11,6 +11,7 @@ t/05-args.t
 t/10-base.t
 t/11-pkg.t
 t/12-proto.t
+t/13-meth.t
 t/91-pod.t
 t/92-pod-coverage.t
 t/95-portability-files.t

diff --git a/t/13-meth.t b/t/13-meth.t
new file mode 100644 (file)
index 0000000..db8ee14
--- /dev/null
+++ b/t/13-meth.t
@@ -0,0 +1,33 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2 * 4;
+
+my %res;
+
+eval q[
+ package subs::auto::Test;
+ use subs::auto;
+ $res{"${_}2"} = __PACKAGE__->can($_) ? 1 : 0 for qw/foo bar baz qux/;
+ return;
+ BEGIN { $res{foo} = __PACKAGE__->can('foo') ? 1 : 0; }
+ sub bar;
+ BEGIN { $res{bar} = __PACKAGE__->can('bar') ? 1 : 0; }
+ baz 1;
+ BEGIN { $res{baz} = __PACKAGE__->can('baz') ? 1 : 0; }
+ BEGIN { $res{qux} = __PACKAGE__->can('qux') ? 1 : 0; }
+ qux 3, 4;
+];
+die $@ if $@;
+
+is $res{foo}, 0, 'foo at compile time';
+is $res{bar}, 1, 'bar at compile time';
+is $res{baz}, 0, 'baz at compile time';
+is $res{qux}, 0, 'qux at compile time';
+
+is $res{foo2}, 0, 'foo at run time';
+is $res{bar2}, 1, 'bar at run time';
+is $res{baz2}, 0, 'baz at run time';
+is $res{qux2}, 0, 'qux at run time';