Fail on empty token

[mod_auth_kerb.cvs/.git] / test / gssweb_client.pl

diff --git a/test/gssweb_client.pl b/test/gssweb_client.pl
index a3f7157..1550fd5 100755 (executable)
--- a/test/gssweb_client.pl
+++ b/test/gssweb_client.pl
@@ -66,6 +66,7 @@ my $response_token = undef;
     } elsif ($status == 401) {
        print "Continuing\n";
        $response_token = parse_token($www->content());
+       die "Empty token supplied\n" if $response_token eq "";
     } else {
        print "Unexpected response status: $status\n";
        print $www->content();