r44087 - /scripts/KGB/t/50-client.t

[dmn at users.alioth.debian.org]

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];