### ----------------------------------------------------
### -- Chemistry::Elements
### -- Licenses: Artistic-2.0
### -- Authors: brian d foy, Raku Community
### -- File: t/020.get_name_by_symbol.rakutest
### ----------------------------------------------------
use Test;
use Chemistry::Elements;

plan 7;

my $class = Chemistry::Elements;
my $method  = 'get_name_by_symbol';
can-ok $class, $method;

my $callable = $class.^find_method( $method );

is $class.get_Z_by_symbol("Br"), 35, "Br is 35";

is $class."$method"("Br", "en"), 'Bromine',
  'Br is Bromine';

is $class."$method"("Br", "de"), 'Brom',
  'Br ist Brom';

is $class.get_Z_by_symbol("Ne"), 10, "Ne is 10";

is $class.$callable("Ne", "en"), 'Neon',
  'Ne is Neon';

is $class.$callable("Ne", "de"), 'Neon',
  'Ne ist Neon';

# vim: expandtab shiftwidth=4


