#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use utf8;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::trim';
use_ok $pkg;
}
is_deeply
$pkg->new('name')->fix({name => "\tjoe "}),
{name => "joe"},
"trim horizontal whitespace";
is_deeply
$pkg->new('name', 'whitespace')->fix({name => "\cK / joe "}),
{name => "/ joe"},
"trim vertical whitespace";
is_deeply
$pkg->new('name', 'nonword')->fix({name => "/\tjoe . "}),
{name => "joe"},
"trim nonword characters";
is_deeply
$pkg->new('id', 'whitespace')->fix({id => " 0423985325 "}),
{id => "0423985325"},
"trim digit string";
is_deeply
$pkg->new('name', 'whitespace')->fix({name => " 宮川 "}),
{name => "宮川"},
"trim utf8 string";
is_deeply
$pkg->new('names.*.name')->fix({names => [{name => "\tjoe "}, {name => " rick "}]}),
{names => [{name => "joe"}, {name => "rick"}]},
"trim wildcard values";
is_deeply
$pkg->new('name', 'diacritics')->fix({name => "français"}),
{name => "francais"},
"trim utf8 string";
done_testing 8;