aboutsummaryrefslogtreecommitdiffstats
path: root/t/01packdrake.t
blob: 1d0aebf69c870a005e67eff80f30aca56de281cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#!/usr/bin/perl

# $Id$

use strict;
use Test::More tests => 7;
use Digest::MD5;

use_ok('packdrake');

-d "test" || mkdir "test" or die "Can't create directory test";

my $coin = q{
 ___________
< Coin coin >
 -----------
 \     ,~~.
  \ __( o  )
    `--'==( ___/)
       ( (   . /
        \ '-' /
    ~'`~'`~'`~'`~
};

sub clean_test_files {
    -d "test" or return;
    system("rm -fr $_") foreach (glob("test/*"));
}

clean_test_files();

mkdir "test/dir" or die "Can't create 'test/dir'";
open(my $fh, "> test/file") or die "Can't create 'test/file'";
print $fh $coin;
close $fh;

symlink("file", "test/link") or die "Can't create symlink 'test/link': $!\n";

open($fh, "> test/list") or die "can't open 'test/list': $!\n";
print($fh join("\n", qw(dir file link)) ."\n");
close($fh);

open(my $listh, "< test/list") or die "can't read 'test/list': $!\n";
ok(packdrake::build_archive(
    $listh,
    "test",
    "packtest.cz",
    400_000,
    "gzip -9",
    "gzip -d",
), "Creating a packdrake archive");
close($listh);

clean_test_files();

my $pack = packdrake->new("packtest.cz");
ok($pack->extract_archive("test", qw(dir file link)), "Extracting files from archive");

ok(open($fh, "test/file"), "Opening extract file");
sysread($fh, my $data, 1_000);
ok($data eq $coin, "data successfully restored");
ok(-d "test/dir", "dir successfully restored");
ok(readlink("test/link") eq "file", "symlink successfully restored");

clean_test_files();