#!/usr/bin/perl -w
use strict;
use Test::More;
use Text::ParseWords ();
use Text::vFile::asData ();


if (eval "require Test::Differences") {
    no warnings 'redefine';
    *is_deeply = \&Test::Differences::eq_or_diff;
}

sub same {
    is_deeply( [[ Text::vFile::asData::parse_line( @_ ) ]],
               [[ Text::ParseWords::parse_line( @_ ) ]],
               "same( " .( join ", ", map { "'$_'" } @_ ) ." )");
}

for my $string ( 'foo', 'foo:', 'foo:bar', 'foo:bar:' ) {
    for my $keep (0, 1) {
        same( ':', $keep, $string );
    }
}

done_testing();