[svn:CPANPLUS-Dist-Build] r9165 - in CPANPLUS-Dist-Build/trunk: . t

[kane]

Author: kane
Date: Sun Feb 25 09:20:33 2007
New Revision: 9165

Modified:
   CPANPLUS-Dist-Build/trunk/   (props changed)
   CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t

Log:
 [EMAIL PROTECTED]:  kane | 2007-02-25 17:19:49 +0100
 * add extra test to be sure ENV var is unset after execution


Modified: CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t
==============================================================================
--- CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t        (original)
+++ CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t        Sun Feb 25 
09:20:33 2007
@@ -205,6 +205,9 @@
     my $re = quotemeta( $build_pl );
     like( CPANPLUS::Error->stack_as_string, qr/ENV=$re/,
                                 "   \$ENV $env set correctly during 
execution");
+
+    ### and the ENV var should no longer be set now
+    ok( !$ENV{$env},            "   ENV var now unset" );
 }