[go: up one dir, main page]

File: lsof.t

package info (click to toggle)
unburden-home-dir 0.3.3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 744 kB
  • ctags: 806
  • sloc: perl: 1,337; makefile: 31; sh: 15
file content (23 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!perl

use strict;
use warnings;

use lib qw(t/lib lib);
use Test::UBH;
my $t = Test::UBH->new;

$t->setup_test_environment_without_target(".foobar");
$t->write_configs('m d .foobar foobar');

ok( open(my $fh, '>', $t->HOME.'/.foobar/fnord'),
    'Can open example file '.$t->HOME.'/.foobar/fnord');

$t->call_unburden_home_dir_default;

close($fh);

file_exists_ok( $t->HOME."/.foobar/fnord" );
file_not_exists_ok( $t->TP."-foobar/fnord" );

$t->done;