#!/usr/local/bin/perl

use lib ('../');
use strict;
use Regex::Fuzzy;


my $version = Regex::Fuzzy::Version();
print "testing Regex::Fuzzy v${version}\n";

my $string = shift;
my $match = shift;

my $debug = 1;
my $result = Regex::Fuzzy::Compare(string=>$string,regex=>$match,debug=>$debug);
print "result: $result\n";
