use strict;
use warnings;
use Test::More tests => 10;
use File::Temp 'tempfile';
use Fcntl ':seek';
## create a temp CSV file
my ($tmp_fh, $tmp_file) = tempfile( UNLINK => 1 );
print $tmp_fh <<EOCSV;
foo,bar,baz
potato,monkey,rutabaga
fred,barney,wilma
EOCSV
close $tmp_fh;
## load module
use_ok('Tie::Handle::CSV');
## NO-HEADER
my $csv_fh;
ok( $csv_fh = Tie::Handle::CSV->new($tmp_file, header => 0, open_mode => '+<'), 'new - good - no header' );
ok( seek($csv_fh, 0, SEEK_END), 'seek 0, SEEK_END');
is( scalar <$csv_fh>, undef, 'readline - undef');
ok( seek($csv_fh, 0, SEEK_SET), 'seek 0, SEEK_SET');
is( ( scalar <$csv_fh> )->[0], 'foo', 'readline - bar');
ok( seek($csv_fh, 0, SEEK_END), 'seek 0, SEEK_END');
is( scalar <$csv_fh>, undef, 'readline - undef');
ok( print $csv_fh 1, 'print' );
ok( close($csv_fh), 'new - close' );