1use strict; 2use warnings; 3use Test::More; 4use Chemistry::Mol; 5use Chemistry::File::Dumper; 6 7plan 'no_plan'; 8#plan tests => 21; 9 10Chemistry::Mol->register_descriptor( 11 number_of_atoms => sub { 12 my $mol = shift; 13 return scalar $mol->atoms; 14 } 15); 16 17my $mol = Chemistry::Mol->read("t/mol.pl"); 18my $n = $mol->descriptor('number_of_atoms'); 19is ($n, 8, 'number_of_atoms == 8'); 20