### ----------------------------------------------------
### -- CSV::Table
### -- Licenses: Artistic-2.0
### -- Authors: Tom Browder
### -- File: t/3-headers.t
### ----------------------------------------------------
use Test;
use CSV::Table;

my $csv = 't/data/not-commented.csv';
is $csv.IO.r, True;

my $t = CSV::Table.new: :$csv;

is $t.separator, ',';
is $t.field.elems, 2;
is $t.field[0], 'name';
is $t.field[1], 'age';

is $t.cell.elems, 1;
is $t.cell[0].elems, 2;
is $t.cell[0][0], 'Sally Jean';
is $t.cell[0][1], '21';

done-testing;


