view release on metacpan or  search on metacpan

t/match.t  view on Meta::CPAN

#!/home/ivan/bin/perl

use strict;
use warnings;
use Test::More;
use Chemistry::File::FormulaPattern;
use Chemistry::File::Formula;

my @lines = <DATA>;

plan tests => 2*@lines;

for my $line (@lines) {
    chomp $line;
    my ($patt_str, $formula_str, $expected_match) = split " ", $line;
    my $patt = Chemistry::Pattern->parse($patt_str, 
        format => 'formula_pattern');
    my $mol =  Chemistry::Mol->parse($formula_str, format=>'formula');

    my $got_match = $patt->match($mol);
    is($got_match, $expected_match, "$line");
    $got_match = $patt->match($mol);
    is($got_match, 0, "$line");
}

__DATA__
CH4         CH4     1
CH4         CH3     0
C*          CH4     1
CH3-4       CH3     1
CH3-4       CH4     1
CH3-4       CH2     0
CH3-        CH4     1
CH3-        CH2     0