view release on metacpan or  search on metacpan

t/33-dircodec-minimal.t  view on Meta::CPAN

#! /usr/bin/env perl -T
use strict;
use warnings;
use Try::Tiny;
use Test::More;

use_ok('DataStore::CAS::Virtual') || BAIL_OUT;
use_ok('DataStore::CAS::FS::DirCodec::Minimal') || BAIL_OUT;

sub decode_utf8 { goto &DataStore::CAS::FS::InvalidUTF8::decode_utf8; }

sub dies_ok(&@) {
	my ($code, $regex, $description)= @_;
	my $err= '';
	try { $code->(); } catch { $err= $_ };
	like( $err, $regex, $description );
}

sub dir_encode {
	my ($entries, $meta)= @_;
	$meta ||= {};
	return DataStore::CAS::FS::DirCodec::Minimal->encode($entries, $meta);
}

my $cas= DataStore::CAS::Virtual->new();

subtest empty_dir => sub {
	my $hash= DataStore::CAS::FS::DirCodec->put($cas, 'minimal', [], {});
	my $file= $cas->get($hash);
	is( $file->data, qq|CAS_Dir 00 \n\0|, 'encode' );
	isa_ok( my $decoded= DataStore::CAS::FS::DirCodec->load($file), 'DataStore::CAS::FS::Dir', 'decode' );
	is( $decoded->iterator->(), undef, 'zero entries' );
	
	done_testing;
};

subtest one_dirent => sub {
	my @entries= (
		{ type => 'file', name => 'test', ref => undef }
	);
	my @expected= (
		{ type => 'file', name => 'test' }
	);
	my $hash= DataStore::CAS::FS::DirCodec->put($cas, 'minimal', \@entries, {});
	my $file= $cas->get($hash);
	my $expected= qq|CAS_Dir 00 \n\0\x04\0ftest\0\0|;
	is( $file->data, $expected, 'encode' );

	isa_ok( my $dir= DataStore::CAS::FS::DirCodec->load($file), 'DataStore::CAS::FS::Dir', 'decode' );

	my $iter= $dir->iterator;
	for (@expected) {
		is_deeply( $iter->()->as_hash, $_, 'entry matches' );
	}
	is( $iter->(), undef, 'end of list' );
	done_testing;
};

subtest many_dirent => sub {
	my %metadata= (
		foo => 1,
		bar => 2,
		baz => 3
	);
	my @entries= (
		{ type => 'file',     name => 'a', size => 10,    ref => '0000',   foo => 42, sdlfjskldf => 'sldfjhlsdkfjh' },
		{ type => 'pipe',     name => 'f', size => 1,     ref => undef,    bar => 'xyz' },
		{ type => 'blockdev', name => 'd', size => 10000, ref => '1234',   },
		{ type => 'file',     name => 'b', size => 10,    ref => '1111',   1 => 2, 3 => 4, 5 => 6},
		{ type => 'file',     name => "\x{100}", size => 1,     ref => "\x{100}",},
		{ type => 'chardev',  name => 'e', size => 0,     ref => '4321',   },
		{ type => 'symlink',  name => 'c', size => 10,    ref => 'fedcba', },
		{ type => 'socket',   name => 'g', size => 1,     ref => undef,    },
	);
	my @expected= (
		{ type => 'file',     name => 'a', ref => '0000',   },
		{ type => 'file',     name => 'b', ref => '1111',   },
		{ type => 'symlink',  name => 'c', ref => 'fedcba', },
		{ type => 'blockdev', name => 'd', ref => '1234',   },
		{ type => 'chardev',  name => 'e', ref => '4321',   },
		{ type => 'pipe',     name => 'f',                  },
		{ type => 'socket',   name => 'g',                  },
		{ type => 'file',     name => "\x{100}", ref => "\x{100}", },
	);

	ok( my $hash= DataStore::CAS::FS::DirCodec->put($cas, 'minimal', \@entries, {}), 'encode' );
	my $file= $cas->get($hash);

	isa_ok( my $dir= DataStore::CAS::FS::DirCodec->load($file), 'DataStore::CAS::FS::Dir', 'decode' );

	my $iter= $dir->iterator;
	for (@expected) {