#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Exception;

my $pkg;
BEGIN {
    $pkg = 'Catmandu::Fix::sort_field';
    use_ok $pkg;
}

is_deeply
    $pkg->new('tags')->fix({tags => ["foo", "bar","bar"] }),
    {tags => ["bar","bar","foo"] },
    "sort alphanum";

is_deeply
    $pkg->new('tags',uniq=>1)->fix({tags => ["foo", "bar","bar"] }),
    {tags => ["bar","foo"] },
    "sort unique";

is_deeply
    $pkg->new('tags')->fix({tags => [undef,undef,"b","b","c","a"]}),
    { tags => ["a","b","b","c",undef,undef]},
    "sort with undefined values";

is_deeply
    $pkg->new('tags',undef_position=>"last")->fix({tags => ["b",undef,undef,"b","c","a"]}),
    { tags => ["a","b","b","c",undef,undef]},
    "sort with undefined values, undef last";

is_deeply
    $pkg->new('tags',undef_position=>"first")->fix({tags => [undef,"b","b","c",undef,"a"]}),
    { tags => [undef,undef,"a","b","b","c"]},
    "sort with undefined values, undef first";

is_deeply
    $pkg->new('tags',undef_position=>"delete")->fix({tags => [undef,undef,"b","b","c","a"]}),
    { tags => ["a","b","b","c"]},
    "sort with undefined values, remove undef";

is_deeply
    $pkg->new('tags',uniq=>1)->fix({tags => [undef,undef,"b","b","c","a"]}),
    { tags => ["a","b","c",undef]},
    "sort uniq with undefined values";

is_deeply
    $pkg->new('tags',uniq=>1,undef_position=>"last")->fix({tags => ["b",undef,undef,"b","c","a"]}),
    { tags => ["a","b","c",undef]},
    "sort uniq with undefined values, undef last";

is_deeply
    $pkg->new('tags',uniq=>1,undef_position=>"first")->fix({tags => [undef,"b","b","c",undef,"a"]}),
    { tags => [undef,"a","b","c"]},
    "sort uniq with undefined values, undef first";

is_deeply
    $pkg->new('tags',uniq=>1,undef_position=>"delete")->fix({tags => [undef,undef,"b","b","c","a"]}),
    { tags => ["a","b","c"]},
    "sort uniq with undefined values, remove undef";

is_deeply
    $pkg->new('tags',uniq=>1,reverse=>1)->fix({tags => ["foo", "bar","bar"] }),
    {tags => ["foo","bar"] },
    "sort unique reverse";

is_deeply
    $pkg->new('nums',numeric=>1)->fix({ nums => [ 100, 1 , 10] }),
    {nums => [ 1, 10, 100]},
    "sort numeric";

done_testing 13;