#!/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 = 'V--1.@--G.R^^a';
my $match = 'viagra';

my $debug = 1;
my $result = Regex::Fuzzy::Compare(string=>$string,regex=>$match,debug=>$debug);
die "something's broken\n" unless($result == 2);