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
|
Description: skip expansion tests if the home directory reported by getpwuid
doesn't exist, as it happens in sbuild chroots with default configuration
Origin: vendor
Bug-Debian: http://bugs.debian.org/615963
Forwarded: yes
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2011-03-06
--- a/t/01basic.t
+++ b/t/01basic.t
@@ -31,6 +31,8 @@
my $expanded = (getpwuid($<))[7] . '/';
+ skip 'home directory reported by getpwuid does not exist', 1 unless -d $expanded;
+
shift @INC if $INC[0] eq '/etc/perl';
is $INC[0], $expanded, 'bare tilde expansion';
@@ -54,6 +56,8 @@
my $expanded = (getpwuid($<))[7] . '/';
+ skip 'home directory reported by getpwuid does not exist', 1 unless -d $expanded;
+
shift @INC if $INC[0] eq '/etc/perl';
is $INC[0], $expanded, 'tilde expansion with user name';
|
