#!/usr/bin/perl
use strict;
use warnings;

use X::CSV;


#Number of tests
use Test::More tests =>3 ;

#test 1 & 2
BEGIN { use_ok( 'X::CSV' ); }
   require_ok( 'X::CSV' ) ;

#parse the test.csv
my $parser = X::CSV->new(
                         data_file => $ENV{TEST_ROOT}.'/t/test.csv'
                         );

my $result = $parser->parse();

my $length = @{$result};

#test 3
#We have an csv file with 3 rows
is($length,'3','We have an sheet with 3 rows');