#!/home/ivan/bin/perl
use Chemistry::File::SMILES;
use Test::More;
my $file = shift || "test_smiles.txt";
open F, "$file" or die "couldn't open $file\n";
my @smiles = <F>;
plan tests => scalar @smiles;
for my $smiles (@smiles) {
chomp $smiles;
my $mol = Chemistry::Mol->parse($smiles, format => 'smiles');
my $out = $mol->print(format => 'smiles', aromatic => 1);
is($out, $smiles, "$smiles");
}