The following commit has been merged in the master branch:
commit d304e7e1d98dea38c31721f812f3aeaffce914d5
Author: Guillem Jover <[email protected]>
Date: Wed Jan 2 21:40:40 2013 +0100
scripts/t/800_Dpkg_IPC.t: Use numbered prefixes for source variables
diff --git a/scripts/t/800_Dpkg_IPC.t b/scripts/t/800_Dpkg_IPC.t
index ce1bb41..52c8f58 100644
--- a/scripts/t/800_Dpkg_IPC.t
+++ b/scripts/t/800_Dpkg_IPC.t
@@ -23,26 +23,26 @@ use_ok('Dpkg::IPC');
$/ = undef;
-my ($tmp_fh, $tmp_name) = tempfile;
+my ($tmp1_fh, $tmp1_name) = tempfile;
my ($tmp2_fh, $tmp2_name) = tempfile;
-my $string = "foo\nbar\n";
+my $string1 = "foo\nbar\n";
my $string2;
-open TMP, '>', $tmp_name;
-print TMP $string;
+open TMP, '>', $tmp1_name;
+print TMP $string1;
close TMP;
my $pid = spawn(exec => "cat",
- from_string => \$string,
+ from_string => \$string1,
to_string => \$string2);
ok($pid);
-is($string2, $string, "{from,to}_string");
+is($string2, $string1, "{from,to}_string");
$pid = spawn(exec => "cat",
- from_handle => $tmp_fh,
+ from_handle => $tmp1_fh,
to_handle => $tmp2_fh);
ok($pid);
@@ -53,10 +53,10 @@ open TMP, '<', $tmp2_name;
$string2 = <TMP>;
close TMP;
-is($string2, $string, "{from,to}_handle");
+is($string2, $string1, "{from,to}_handle");
$pid = spawn(exec => "cat",
- from_file => $tmp_name,
+ from_file => $tmp1_name,
to_file => $tmp2_name,
wait_child => 1,
timeout => 5);
@@ -67,7 +67,7 @@ open TMP, '<', $tmp2_name;
$string2 = <TMP>;
close TMP;
-is($string2, $string, "{from,to}_file");
+is($string2, $string1, "{from,to}_file");
eval {
$pid = spawn(exec => ["sleep", "10"],
@@ -76,5 +76,5 @@ eval {
};
ok($@, "fails on timeout");
-unlink($tmp_name);
+unlink($tmp1_name);
unlink($tmp2_name);
--
dpkg's main repository
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
