#!/usr/bin/perl -w
use strict;

use Test::More tests => 8;
use Data::FormValidator::Filters::Demoroniser   qw(demoroniser demoroniser_utf8);

my %examples = (
    '–“”'       => [ '-""', '–“”' ],
    'abc'       => [ 'abc', 'abc' ],
    ''          => [ '', '' ],
);

my $sub1 = demoroniser();
is(ref($sub1), 'CODE', 'demoroniser returns a code block');
my $sub2 = demoroniser_utf8();
is(ref($sub2), 'CODE', 'demoroniser_utf8 returns a code block');

for my $ex (keys %examples) {
    is($sub1->($ex), $examples{$ex}->[0],"_demoroniser returns valid ASCII string for '$ex'");
    is($sub2->($ex), $examples{$ex}->[1],"_demoroniser_utf8 returns valid UTF8 string for '$ex'");
}