use Test::More;
# These tests make sure that if the id of e.g. an atom changes, the containing
# object is notified
#plan 'no_plan';
plan tests => 5;
use Chemistry::File::Dumper;
my $mol = Chemistry::Mol->read("t/mol.pl");
isa_ok( $mol, 'Chemistry::Mol' );
is( $mol->atoms(1)->id, 'a1', 'id before' );
ok( $mol->atoms(1) == $mol->by_id('a1'), 'id matches before' );
$mol->atoms(1)->id('xyz123');
is( $mol->atoms(1)->id, 'xyz123', 'id after' );
ok( $mol->atoms(1) == $mol->by_id('xyz123'), 'id matches after' )
or diag sprintf "got %s, expected %s", $mol->atoms(1), $mol->by_id('xyz123');