The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use 5.10.0;
use FindBin qw/$Bin/;
use lib "$Bin/lib";

use Test::More;
use Data::CTable;

# -------
# Yoinked from 
#    git://git.shadowcat.co.uk/catagits/Catalyst-Runtime.git
#    catalyst-runtime/t/aggregate/unit_core_path_to.t 
my %non_unix = (
    MacOS   => 1,
    MSWin32 => 1,
    os2     => 1,
    VMS     => 1,
    epoc    => 1,
    NetWare => 1,
    dos     => 1,
    cygwin  => 1,
);
my $os = $non_unix{$^O} ? $^O : 'Unix';
if ( $os ne 'Unix' ) {
    plan skip_all => 'tests require Unix';
}
# -------

my $People1 = Data::CTable->new("$Bin/data/people.tabs.txt");
my $People2 = Data::CTable->new({_CacheSubDir=>"/tmp"}, "$Bin/data/people.tabs.txt") or die;

is_deeply(
   {%$People1, _CacheSubDir=>'ignore'},
   {%$People2, _CacheSubDir=>'ignore'},
);


done_testing;