use Test::More tests => 9;
use Text::CSV_PP::Simple;

my $t = Text::CSV_PP::Simple->new({binary => 1});
my @data = $t->read_file('t/test.csv');

ok ($data[0]->[0] eq '01');
ok ($data[0]->[1] eq 'asdf');
ok ($data[0]->[2] eq '2324');

ok ($data[1]->[0] eq '02');
ok ($data[1]->[1] eq 'werw');
ok ($data[1]->[2] eq '2343');

ok ($data[2]->[0] eq '03');
ok ($data[2]->[1] eq 'powe');
ok ($data[2]->[2] eq '9482');