svn commit: r1053867 - /httpd/test/framework/trunk/t/ssl/env.t

[sf...@apache.org]

Author: sf
Date: Thu Dec 30 12:20:38 2010
New Revision: 1053867

URL: http://svn.apache.org/viewvc?rev=1053867&view=rev
Log:
Make output more verbose with -v

Modified:
    httpd/test/framework/trunk/t/ssl/env.t

Modified: httpd/test/framework/trunk/t/ssl/env.t
URL: http://svn.apache.org/viewvc/httpd/test/framework/trunk/t/ssl/env.t?rev=1053867&r1=1053866&r2=1053867&view=diff
==============================================================================
--- httpd/test/framework/trunk/t/ssl/env.t (original)
+++ httpd/test/framework/trunk/t/ssl/env.t Thu Dec 30 12:20:38 2010
@@ -63,7 +63,14 @@ sub verify {
             print "#$key does not exist\n";
             $env->{$key} = ""; #prevent use of unitialized value
         }
-        ok $ne ? not exists $env->{$key} : $env->{$key} eq $val;
+        if ($ne) {
+            print "#$key should not exist\n";
+            ok not exists $env->{$key};
+        }
+        else {
+            print "#$key: expect '$val', got '$env->{$key}'\n";
+            ok $env->{$key} eq $val;
+        }
     }
 }