50 lines
1.4 KiB
Perl
50 lines
1.4 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use Test::More 'no_plan';
|
||
|
|
|
||
|
|
BEGIN { use_ok( 'Simba::DA' ); }
|
||
|
|
|
||
|
|
my $da = Simba::DA->new();
|
||
|
|
ok($da, 'new DA');
|
||
|
|
my $list;
|
||
|
|
open(my $fh, '>', \$list);
|
||
|
|
select $fh;
|
||
|
|
$da->list('list', 't/root');
|
||
|
|
ok($list);
|
||
|
|
cmp_ok($list, '=~', qr{t/root .* t=d }, 'root is a directory');
|
||
|
|
cmp_ok($list, '=~', qr{t/root/test.txt .* t=f s=14 }, 'text file found');
|
||
|
|
cmp_ok($list, '=~', qr{t/root/test.bin .* t=f s=1024 }, 'binary file found');
|
||
|
|
|
||
|
|
my $content;
|
||
|
|
open($fh, '>', \$content);
|
||
|
|
select $fh;
|
||
|
|
$da->get('get', 't/root/test.txt');
|
||
|
|
my ($header, $trailer);
|
||
|
|
($header, $content, $trailer)
|
||
|
|
= $content =~ /\A ([^\n]*) \n (.*) \n ([^\n]*) \n \Z/xs;
|
||
|
|
|
||
|
|
ok($header, 'header found');
|
||
|
|
cmp_ok($header, '=~', qr{t/root/test.txt .* t=f s=14 }, 'text file found');
|
||
|
|
|
||
|
|
ok($content, 'content found');
|
||
|
|
cmp_ok($header, '==', 14, 'text file is 14 bytes long');
|
||
|
|
|
||
|
|
ok($trailer, 'trailer found');
|
||
|
|
is($trailer, 'chk sha1 e3b9312f5f7afbe0bfff5c49ab5e9a160b2b04f4', 'trailer contains correct checksum');
|
||
|
|
|
||
|
|
$content="";
|
||
|
|
$da->get('get', 't/root/test.txt');
|
||
|
|
($header, $content, $trailer)
|
||
|
|
= $content =~ /\A ([^\n]*) \n (.*) \n ([^\n]*) \n \Z/xs;
|
||
|
|
|
||
|
|
ok($header, 'header found');
|
||
|
|
cmp_ok($header, '=~', qr{t/root/test.bin .* t=f s=1024 }, 'binary file found');
|
||
|
|
|
||
|
|
ok($content, 'content found');
|
||
|
|
cmp_ok($header, '==', 1024, 'binary file is 1024 bytes long');
|
||
|
|
|
||
|
|
ok($trailer, 'trailer found');
|
||
|
|
is($trailer, 'chk sha1 97253f25fc3945cd6293e3dfad2a322041b14164', 'trailer contains correct checksum');
|