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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/perl
use Test::More 'no_plan';
my $class = 'Chemistry::Elements';
my $sub = 'get_symbol';
use_ok( $class, $sub );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Object interface with something that works
{
my $element = $class->new( 'Erbium' );
isa_ok( $element, $class );
is( $element->Z, 68 );
is( $element->name, 'Erbium' );
is( $element->symbol, 'Er' );
}
{
my $element = $class->new( 'Er' );
isa_ok( $element, $class );
is( $element->Z, 68 );
is( $element->name, 'Erbium' );
is( $element->symbol, 'Er' );
}
{
my $element = $class->new( 68 );
isa_ok( $element, $class );
is( $element->Z, 68 );
is( $element->name, 'Erbium' );
is( $element->symbol, 'Er' );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Object interface with something that doesn't work
{
my $element = $class->new( 'Administrativium' );
ok( ! defined $element, "Can't make a fake element" );
}
{
my $element = $class->new( );
ok( ! defined $element, "Can't make a fake element" );
}
{
my $element = $class->new( undef );
ok( ! defined $element, "Can't make a fake element" );
}
{
my $element = $class->new( '' );
ok( ! defined $element, "Can't make a fake element" );
}
{
my $element = $class->new( 0 );
ok( ! defined $element, "Can't make a fake element" );
}
{
my $element = $class->new( -1 );
ok( ! defined $element, "Can't make a fake element" );
}
|
