File: | t/find-per-user-stuff.t |
Coverage: | 96.5% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | #!/usr/bin/perl -wl | ||||||
2 | |||||||
3 | 1 1 1 | 5077 45703 62 | use Test::More; | ||||
4 | 1 1 1 | 2852 33244 409 | use Test::Differences; | ||||
5 | 1 1 1 | 25 8 323 | use File::Path qw(mkpath rmtree); | ||||
6 | 1 1 1 | 1598 50791 216 | use File::Slurp; | ||||
7 | 1 1 1 | 1168 2925 248 | use File::Which; | ||||
8 | 1 1 1 | 1126 18270 605010 | use Data::Dumper; | ||||
9 | |||||||
10 | 1 | 9 | my $BASE = 't/find-per-user-stuff'; | ||||
11 | 1 | 8 | my $HOME = "$BASE/1"; | ||||
12 | 1 | 8 | my $TARGET = "$BASE/2"; | ||||
13 | 1 | 10 | my $BASENAME = "unburden-home-dir_TEST_$$"; | ||||
14 | 1 | 6 | my $PREFIX = "u"; | ||||
15 | |||||||
16 | # Set a debug environment | ||||||
17 | 1 | 16 | $ENV{HOME} = $HOME; | ||||
18 | |||||||
19 | # Clean up possible remainders of aborted tests | ||||||
20 | 1 | 347 | rmtree("$BASE"); | ||||
21 | |||||||
22 | 1 | 1398 | ok( mkpath("$HOME/.foobar/fnord/bla", "$TARGET", {}), "Create test environment (directories)" ); | ||||
23 | 1 | 1211 | ok( -d "$HOME/.foobar/fnord/bla", "Original directory has been created" ); | ||||
24 | 1 | 1859 | ok( -d "$TARGET", "Target directory has been created" ); | ||||
25 | |||||||
26 | 1 | 1438 | ok( symlink("$HOME/.foobar/fnord", "$HOME/.fnord"), "Create test environment (Symlink 1)" ); | ||||
27 | 1 | 1275 | ok( -l "$HOME/.fnord", "Symlink 1 has been created" ); | ||||
28 | 1 | 1509 | ok( symlink("fnord", "$HOME/.foobar/blafasel"), "Create test environment (Symlink 2)" ); | ||||
29 | 1 | 1159 | ok( -l "$HOME/.foobar/blafasel", "Symlink 2 has been created" ); | ||||
30 | |||||||
31 | 1 | 1253 | ok( write_file("$HOME/.$BASENAME.list", "m d .foobar/fnord/bla foobar-fnord-bla\nm d .fnord/bla fnord-bla\nm d .foobar/blafasel/bla foobar-blafasel-bla\n") ); | ||||
32 | 1 | 1771 | ok( write_file("$HOME/.$BASENAME", "TARGETDIR=$TARGET\nFILELAYOUT=$PREFIX-\%s") ); | ||||
33 | |||||||
34 | 1 | 1651 | my $cmd = "bin/unburden-home-dir -b $BASENAME > $BASE/output 2> $BASE/stderr"; | ||||
35 | 1 | 2883094 | ok( system($cmd) == 0, "Call '$cmd'" ); | ||||
36 | |||||||
37 | 1 | 2073 | my $wanted = "Skipping '$HOME/.fnord/bla' due to symlink in path: $HOME/.fnord | ||||
38 | Skipping '$HOME/.foobar/blafasel/bla' due to symlink in path: $HOME/.foobar/blafasel | ||||||
39 | "; | ||||||
40 | 1 | 75 | unless (which('lsof')) { | ||||
41 | 0 | 0 | $wanted = "WARNING: lsof not found, not checking for files in use.\n".$wanted; | ||||
42 | } | ||||||
43 | |||||||
44 | 1 | 1506 | my $stderr = read_file("$BASE/stderr"); | ||||
45 | 1 | 367 | eq_or_diff_text( $stderr, $wanted, "Check command STDERR output" ); | ||||
46 | |||||||
47 | 1 | 3504 | $wanted = "Moving $HOME/.foobar/fnord/bla -> $TARGET/u-foobar-fnord-bla | ||||
48 | sending incremental file list | ||||||
49 | created directory $TARGET/u-foobar-fnord-bla | ||||||
50 | ./ | ||||||
51 | Symlinking $TARGET/u-foobar-fnord-bla -> $HOME/.foobar/fnord/bla | ||||||
52 | "; | ||||||
53 | |||||||
54 | 1 | 75 | my $output = read_file("$BASE/output"); | ||||
55 | 1 | 315 | eq_or_diff_text( $output, $wanted, "Check command STDOUT" ); | ||||
56 | |||||||
57 | 1 | 2997 | ok( -d "$TARGET/$PREFIX-foobar-fnord-bla", "First directory moved" ); | ||||
58 | 1 | 1554 | ok( ! -e "$TARGET/$PREFIX-fnord-bla", "Symlink 1 not moved" ); | ||||
59 | 1 | 3216 | ok( ! -e "$TARGET/$PREFIX-foobar-blafasel-bla", "Symlink 2 not moved" ); | ||||
60 | |||||||
61 | 1 | 10696 | ok( rmtree("$BASE"), "Clean up" ); | ||||
62 | |||||||
63 | 1 | 1614 | done_testing(); |