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