1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
use Test::More 'no_plan';
my $class = 'Chemistry::Elements';
use_ok( $class );
ok( defined &{"${class}::can"}, "$class defines its own can" );
my $object = $class->new( 'U' );
isa_ok( $object, $class );
# try something that should return true
ok( $object->can('Z'), 'Object can call the Z method' );
# try something that is a defined sub but should return false
ok( ! $object->can('get_Z'), 'Object can call the Z method' );
# try something that is not a defined sub (and should return false)
ok( ! $object->can('not_there'), 'Object can call the Z method' );
# try it as a class method, which should fail
ok( ! defined $class->can('Z'), "Can't call Z as a class method" );
ok( ! defined $class->can('name'), "Can't call Z as a class method" );
# try is as a class method, when it should work
ok( $class->can('isa'), "Can call isa as a class method" );
ok( $class->can('can'), "Can call can as a class method" );
|
