view release on metacpan or  search on metacpan

t/02-filesystem.t  view on Meta::CPAN

#!perl

use 5.008001;
use strict;
use warnings FATAL => 'all';

use Test::More;

use Cwd        ();
use FindBin    ();
use File::Spec ();

use_ok('AnyData2')                      || BAIL_OUT "Couldn't load AnyData2";
use_ok('AnyData2::Format::FileSystem')  || BAIL_OUT "Couldn't load AnyData2::Format::FileSystem";
use_ok('AnyData2::Storage::FileSystem') || BAIL_OUT "Couldn't load AnyData2::Storage::FileSystem";

my $test_dir = Cwd::abs_path( File::Spec->catdir( $FindBin::Bin, "data" ) );

my $af = AnyData2->new(
    FileSystem   => {},
    "FileSystem" => { dirname => File::Spec->catfile($test_dir) }
);

my $cols = $af->cols;
my @rows;

while ( my $row = $af->fetchrow )
{
    push @rows, $row;
}

my @stripped_rows = sort { $a->[0] cmp $b->[0] } map { [ $_->[0] ] } @rows;

is_deeply( $cols, [qw(entry dev ino mode nlink uid gid rdev size atime mtime ctime blksize blocks)], "Cols from filesystem" );
is_deeply( \@stripped_rows, [ ["."], [".."], ["simple.blocks"], ["simple.csv"] ], "Rows from filesystem" );

done_testing;