The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Chemistry::File::SMILES;

BEGIN {
    if (eval 'use Test::Exception; 1') {
        #plan tests => 9;
        plan 'no_plan';
    } else {
        plan skip_all => "You don't have Test::Exception installed";
    }
}

# make sure that we throw some expected exceptions

###### MOL ######

throws_ok { Chemistry::Mol->parse('CC=(O)', format => 'smiles') } 
    qr/SMILES ERROR/, "bond before branch";

throws_ok { Chemistry::Mol->parse('CxC(=O)', format => 'smiles') } 
    qr/SMILES ERROR/, "invalid symbol";