diff Lib/IMPL/Test/Plan.pm @ 31:d59526f6310e

Small fixes to Test framework (correct handlinf of the compilation errors in the test units) Imported and refactored SQL DB schema from the old project
author Sergey
date Mon, 09 Nov 2009 01:39:16 +0300
parents 2e546a5175dd
children 16ada169ca75
line wrap: on
line diff
--- a/Lib/IMPL/Test/Plan.pm	Tue Nov 03 16:31:47 2009 +0300
+++ b/Lib/IMPL/Test/Plan.pm	Mon Nov 09 01:39:16 2009 +0300
@@ -64,8 +64,13 @@
         my %info;
         
         # preload module
+        undef $@;
+        
         eval "require $Unit" unless (ref $Unit);
         
+        # handle loading errors
+        $Unit = new IMPL::Test::BadUnit($Unit,"Failed to load unit",$@) if $@;
+        
         $info{Unit} = $Unit;
         try {
             $info{Tests} = [map $Unit->new($_), $Unit->List];