File Coverage

File:t/replacement-order.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!/usr/bin/perl -wl
2
3
1
1
1
5031
45758
61
use Test::More;
4
1
1
1
2317
31218
249
use Test::Differences;
5
1
1
1
16
5
179
use File::Path qw(mkpath rmtree);
6
1
1
1
962
55539
207
use File::Slurp;
7
1
1
1
1093
17797
495986
use Data::Dumper;
8
9
1
11
my $BASE = 't/replacement-order';
10
1
22
my $HOME = "$BASE/1";
11
1
10
my $TARGET = "$BASE/2";
12
1
6
my $PREFIX = "u";
13
14# Set a debug environment
15
1
15
$ENV{HOME} = $HOME;
16
17
1
1749
ok( mkpath("$HOME/.foobar/blatest/barba", "$TARGET") );
18
19
1
1495
ok( write_file("$BASE/list", 'm d .foo*/bla*/bar* bar%3-bla%2-foo%1') );
20
1
2298
ok( write_file("$BASE/config", "TARGETDIR=$TARGET\nFILELAYOUT=$PREFIX-\%s") );
21
22
1
2977550
ok( system(qw(bin/unburden-home-dir -C), "$BASE/config", qw(-L), "$BASE/list" ) == 0 );
23
24
1
1505
ok( -d "$TARGET/$PREFIX-barba-blatest-foobar" );
25
1
1566
ok( -l "$HOME/.foobar/blatest/barba" );
26
1
1299
eq_or_diff_text( "$TARGET/$PREFIX-barba-blatest-foobar",
27                 readlink("$HOME/.foobar/blatest/barba"),
28                 "Symlink points to expected location." );
29
30
1
8549
ok( rmtree("$BASE") );
31
32
1
1016
done_testing();