use strict;
use Test::More tests => 11;

use Text::LTSV;

{
    my $p = Text::LTSV->new;
    my $hash = $p->parse_line("hoge:foo\tbar:baz\ttime:20:30:58\n");
    is $hash->{hoge}, 'foo';
    is $hash->{bar},  'baz';
    is $hash->{time}, '20:30:58';
}

{
    my $p = Text::LTSV->new;
    my $hash1 = $p->parse_line("hoge:foo\tbar:baz\ttime:20:30:58\n");

    my $hash2 = Text::LTSV->parse_line("hoge:foo\tbar:baz\ttime:20:30:58\n");
    is_deeply $hash2, $hash1
}

{
    my $p = Text::LTSV->new;
    $p->want_fields('hoge', 'time');

    my $hash = $p->parse_line("hoge:foo\tbar:baz\ttime:20:30:58\n");
    is $hash->{hoge}, 'foo';
    ok not exists $hash->{bar};
    is $hash->{time}, '20:30:58';
}

{
    my $p = Text::LTSV->new;
    $p->ignore_fields('bar');

    my $hash = $p->parse_line("hoge:foo\tbar:baz\ttime:20:30:58\n");
    is $hash->{hoge}, 'foo';
    ok not exists $hash->{bar};
    is $hash->{time}, '20:30:58';
}

{
    my $p = Text::LTSV->new;
    $p->ordered(1);

    my $hash = $p->parse_line("hoge:foo\tbar:baz\ttime:20:30:58\n");
    is_deeply [qw/hoge bar time/], [ keys %$hash ];
}