use strict;
use warnings;
use Test::More;
use Chemistry::Mol;
use Chemistry::File::Dumper;

plan 'no_plan';
#plan tests => 21;

Chemistry::Mol->register_descriptor(
    number_of_atoms => sub {
        my $mol = shift;
        return scalar $mol->atoms;
    }
);

my $mol = Chemistry::Mol->read("t/mol.pl");
my $n = $mol->descriptor('number_of_atoms');
is ($n, 8, 'number_of_atoms == 8');