#!/usr/bin/perl
my
$class
=
'Chemistry::Elements'
;
my
$sub
=
'_get_Z_by_symbol'
;
use_ok(
$class
);
ok(
defined
&{
"${class}::$sub"
},
"$sub defined"
);
is( _get_Z_by_symbol(
'Po'
), 84,
"Got right Z for Po"
);
is( _get_Z_by_symbol(
'Pb'
), 82,
"Got right Z for Pb"
);
is( _get_Z_by_symbol(
'Ne'
), 10,
"Got right Z for Ne"
);
is( _get_Z_by_symbol(
'La'
), 57,
"Got right Z for La"
);
is( _get_Z_by_symbol(
'H'
), 1,
"Got right Z for H"
);
ok( ! _get_Z_by_symbol(
''
),
"empty string isn't a symbol"
);
ok( ! _get_Z_by_symbol(
undef
),
"undef isn't a symbol"
);
ok( ! _get_Z_by_symbol(
'Foo'
),
"Foo isn't a symbol"
);
ok( ! _get_Z_by_symbol(
'86'
),
"86 isn't a symbol"
);