r44087 - /scripts/KGB/t/50-client.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 14 12:24:49 UTC 2009
Author: dmn
Date: Mon Sep 14 12:24:44 2009
New Revision: 44087
URL: http://svn.debian.org/wsvn/?sc=1&rev=44087
Log:
fix 50-client.t under pbuilder
Under pbuilder, $ENV{USER} is 'root' during tests
Modified:
scripts/KGB/t/50-client.t
Modified: scripts/KGB/t/50-client.t
URL: http://svn.debian.org/wsvn/scripts/KGB/t/50-client.t?rev=44087&op=diff
==============================================================================
--- scripts/KGB/t/50-client.t (original)
+++ scripts/KGB/t/50-client.t Mon Sep 14 12:24:44 2009
@@ -71,10 +71,12 @@
my $commit = $c->describe_commit;
+my $me = getpwuid($>);
+
is( $commit->id, 1 );
is( $commit->log, 'add file' );
-diag "$> $< $ENV{USER}";
-is( $commit->author, $ENV{USER} );
+diag "\$>=$> \$<=$< \$ENV{USER}=$ENV{USER} getpwuid(\$>)=$me";
+is( $commit->author, $me );
is( scalar @{ $commit->changes }, 1 );
my $change = $commit->changes->[0];
@@ -88,7 +90,7 @@
is( $commit->id, 2 );
is( $commit->log, 'modify file' );
-is( $commit->author, $ENV{USER} );
+is( $commit->author, $me );
is( scalar @{ $commit->changes }, 1 );
$change = $commit->changes->[0];
@@ -102,7 +104,7 @@
is( $commit->id, 3 );
is( $commit->log, 'replace file' );
-is( $commit->author, $ENV{USER} );
+is( $commit->author, $me );
is( scalar @{ $commit->changes }, 1 );
$change = $commit->changes->[0];
@@ -116,7 +118,7 @@
is( $commit->id, 4 );
is( $commit->log, 'remove file' );
-is( $commit->author, $ENV{USER} );
+is( $commit->author, $me );
is( scalar @{ $commit->changes }, 1 );
$change = $commit->changes->[0];
More information about the Pkg-perl-cvs-commits
mailing list