From 54ccb6083d69da03c71d01a271a09554e4d63e4f Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Tue, 12 Feb 2008 01:55:09 +0000
Subject: Correctly handle get of an empty object in the wallet client.  The
 empty string is valid object content.

Add a full end-to-end test suite to catch protocol mismatches between
the client and server, such as the one fixed in this release.
---
 perl/t/lib/Util.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl/t')

diff --git a/perl/t/lib/Util.pm b/perl/t/lib/Util.pm
index 481b7d9..7b41e53 100644
--- a/perl/t/lib/Util.pm
+++ b/perl/t/lib/Util.pm
@@ -97,14 +97,15 @@ sub getcreds {
 sub remctld_spawn {
     my ($path, $principal, $keytab, $config) = @_;
     unlink 'test-pid';
+    my @command = ($path, '-m', '-p', 14373, '-s', $principal, '-P',
+                   'test-pid', '-f', $config, '-S', '-F', '-k', $keytab);
+    print "Starting remctld: @command\n";
     my $pid = fork;
     if (not defined $pid) {
         die "cannot fork: $!\n";
     } elsif ($pid == 0) {
         open (STDERR, '>&STDOUT') or die "cannot redirect stderr: $!\n";
-        exec ($path, '-m', '-p', 14373, '-s', $principal, '-P', 'test-pid',
-              '-f', $config, '-S', '-F', '-k', $keytab) == 0
-            or die "cannot exec $path: $!\n";
+        exec (@command) or die "cannot exec $path: $!\n";
     } else {
         my $tries = 0;
         while ($tries < 10 && ! -f 'test-pid') {
-- 
cgit v1.2.3