12-decoder-idiot-csv.t

#! /usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Try::Tiny;
use Data::TableReader::Decoder::IdiotCSV;

plan skip_all => 'Need a CSV parser for this test'
	unless try { Data::TableReader::Decoder::IdiotCSV->default_csv_module };

my $input= <<'END';
"First Name","Last Name","Email"
"Joseph "Joe","Smith",""Smith, Joe" <jsmith@example.com>"
END
open my $input_fh, '<', \$input or die;
my $d= new_ok( 'Data::TableReader::Decoder::IdiotCSV',
	[ file_name => '', file_handle => $input_fh, _log => sub {} ],
	'IdiotCSV decoder' );

ok( my $iter= $d->iterator, 'got iterator' );

is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is_deeply( $iter->(), [ 'First Name', 'Last Name', 'Email' ], 'first row' );
is_deeply( $iter->(), [ 'Joseph "Joe', 'Smith', '"Smith, Joe" <jsmith@example.com>' ], 'second row' );
is_deeply( $iter->(), undef, 'no third row' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );

done_testing;