Changeset 8342

Timestamp:

12/21/05 02:20:44 (3 years ago)

Author:

rafl

Message:

r23724@ata: rafl | 2005-12-19 19:29:02 +0100

• Fixed a warning in the JIB::Package test suite

Files:

• misc/sixpan/JIB/t/020-JIB-Package.t (modified) (1 diff)

misc/sixpan/JIB/t/020-JIB-Package.t

@@ -104 +104 @@
 
     ### install again
-    diag( "XXX quell this warning" );
-    ok( $Obj->install( installation => $Inst ),           
+    {
+        my $log = file('error_log');
+        local $Log::Message::Simple::ERROR_FH = $log->openw;
+        ok( $Obj->install( installation => $Inst ),           
                                 "Second install returns true" );
 
-    ### XXX whitebox test -- switch to blackbox
-    {   my $stack = Log::Message::Simple->stack_as_string;
-        like( $stack, qr/is already installed/,
-                                "   Prior installation detected" );
-        Log::Message::Simple->flush;
-    }        
+        like( scalar $log->slurp, qr/is already installed/,
+                '   Prior installation detected' );
+    }
 }