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
|
#!perl
use strict;
use warnings;
use lib qw(t/lib lib);
use Test::UBH;
my $t = Test::UBH->new;
$t->setup_test_environment(".foobar/blatest");
ok( mkpath($t->TP."-barba-blatest-foobar", {}), "Create test environment (directory)" );
ok( symlink($t->TP."-barba-blatest-foobar", $t->HOME."/.foobar/blatest/barba"), "Create test environment (symlink)" );
file_is_symlink_ok( $t->HOME."/.foobar/blatest/barba" );
$t->write_configs('m d .foo*/bla*/bar* bar%3-bla%2-foo%1');
$t->call_unburden_home_dir_default('-u');
my $wanted =
"Trying to revert ".$t->TP."-barba-blatest-foobar to ".$t->HOME."/.foobar/blatest/barba\n" .
"Removing symlink ".$t->HOME."/.foobar/blatest/barba\n" .
"Moving ".$t->TP."-barba-blatest-foobar -> ".$t->HOME."/.foobar/blatest/barba\n" .
"sending incremental file list\n" .
"created directory ".$t->HOME."/.foobar/blatest/barba\n" .
"./\n";
$t->eq_or_diff_stdout($wanted);
$t->eq_lsof_warning_or_diff_stderr;
dir_exists_ok( $t->TARGET, "Base directory still exists" );
file_not_exists_ok( $t->TP."-barba-blatest-foobar", "Directory no more exists" );
dir_exists_ok( $t->HOME."/.foobar/blatest/barba", "Symlink is a directory again" );
$t->done;
|