use strict;
use 5.10.0;
use FindBin qw/$Bin/;
use lib "$Bin/lib";

use Test::More tests => 2;
use Data::CTable;

my $People2 = Data::CTable->new("$Bin/data/people.tabs.txt") or die;
my $People2 = Data::CTable->new("$Bin/data/people.tabs.txt") or die;

## Then read uncached...
my $People3 = Data::CTable->new({_CacheOnRead => 0},
                        "$Bin/data/people.tabs.txt") or die;

## And compare everything except the _CacheOnRead setting...

is_deeply(
   {%$People2, _CacheOnRead=>'ignore'},
   {%$People3, _CacheOnRead=>'ignore'}
);

## Same test again but with a restrictive field list....

## First read cached...
my $People2 = Data::CTable->new("$Bin/data/people.tabs.txt") or die;
my $People2 = Data::CTable->new({_FieldList => [qw(First Last)]},
                        "$Bin/data/people.tabs.txt") or die;

## Then read uncached...
my $People3 = Data::CTable->new({(_FieldList => [qw(First Last)],
                          _CacheOnRead => 0)},
                        "$Bin/data/people.tabs.txt") or die;

## $People2->dump($People2, $People3);

## And compare everything except the _CacheOnRead setting...

is_deeply(
   {%$People2, _CacheOnRead=>'ignore'},
   {%$People3, _CacheOnRead=>'ignore'}
);