use Test::Simple tests => 27;
use strict;
use Text::Delimited;
ok(1);
my $t = new Text::Delimited;
ok(defined $t);
### Change the delimiter
ok('|' eq $t->delimiter('|'));
### Open the file
ok($t->Open('t/test.txt'));
### Check the header row
my @head = $t->fields;
ok(join(',',@head) eq 'col1,col2,col3');
### Read the first line
my $row = $t->read;
ok(ref $row);
### Check the first line contents
ok(join(',', map {$row->{$_}} @head) eq 'foo,bar,baz');
### Read from various columns and check
for my $word ( qw/foo bar baz/ ) {
my @letters = split '', $word;
for my $num ( 1 .. 3 ) {
$row = $t->read;
ok(ref $row);
ok($row->{'col'.$num} eq shift @letters);
}
}
### Check empty read
$row = $t->read;
ok(not ref $row);
### close the file
ok($t->close);