]> git.vpit.fr Git - perl/modules/subs-auto.git/blob - t/13-meth.t
Switch to qw<>
[perl/modules/subs-auto.git] / t / 13-meth.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 2 * 4;
7
8 my %res;
9
10 eval q[
11  package subs::auto::Test;
12  use subs::auto;
13  $res{"${_}2"} = __PACKAGE__->can($_) ? 1 : 0 for qw<foo bar baz qux>;
14  return;
15  BEGIN { $res{foo} = __PACKAGE__->can('foo') ? 1 : 0; }
16  sub bar;
17  BEGIN { $res{bar} = __PACKAGE__->can('bar') ? 1 : 0; }
18  baz 1;
19  BEGIN { $res{baz} = __PACKAGE__->can('baz') ? 1 : 0; }
20  BEGIN { $res{qux} = __PACKAGE__->can('qux') ? 1 : 0; }
21  qux 3, 4;
22 ];
23 die $@ if $@;
24
25 is $res{foo}, 0, 'foo at compile time';
26 is $res{bar}, 1, 'bar at compile time';
27 is $res{baz}, 0, 'baz at compile time';
28 is $res{qux}, 0, 'qux at compile time';
29
30 is $res{foo2}, 0, 'foo at run time';
31 is $res{bar2}, 1, 'bar at run time';
32 is $res{baz2}, 0, 'baz at run time';
33 is $res{qux2}, 0, 'qux at run time';