[otrs-cvs] UnitTest/Kernel/System UnitTest.pm,1.39,1.40

Comments:
Update of /home/cvs/UnitTest/Kernel/System
In directory lancelot:/tmp/cvs-serv5133/Kernel/System

Modified Files:
	UnitTest.pm 
Log Message:
Updated file to framework version 1.66.

Author: mh

Index: UnitTest.pm
===================================================================
RCS file: /home/cvs/UnitTest/Kernel/System/UnitTest.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -2 -u -d -r1.39 -r1.40
--- UnitTest.pm	21 Aug 2012 22:23:53 -0000	1.39
+++ UnitTest.pm	10 Dec 2012 09:22:55 -0000	1.40
@@ -4,5 +4,5 @@
 # --
 # $Id$
-# $OldId: UnitTest.pm,v 1.62 2012/07/17 14:19:40 mh Exp $
+# $OldId: UnitTest.pm,v 1.66 2012/11/20 15:40:30 mh Exp $
 # --
 # This software comes with ABSOLUTELY NO WARRANTY. For details, see
@@ -182,9 +182,14 @@
             $Self->_PrintHeadlineStart($File);
 
-            # HERE the actual tests are run!!!
-            if ( !eval ${$UnitTestFile} ) {
-                $Self->True( 0, "ERROR: Syntax error in $File: $@" );
-                print STDERR "ERROR: Syntax error in $File: $@\n";
+            # create a new scope to be sure to destroy local object of the test files
+            {
+
+                # HERE the actual tests are run!!!
+                if ( !eval ${$UnitTestFile} ) {
+                    $Self->True( 0, "ERROR: Syntax error in $File: $@" );
+                    print STDERR "ERROR: Syntax error in $File: $@\n";
+                }
             }
+
             $Self->_PrintHeadlineEnd($File);
         }
@@ -343,5 +348,5 @@
 
         # ask the database
-        $Self->{DBObject}->Prepare(
+        return if !$Self->{DBObject}->Prepare(
             SQL => 'SELECT VERSION()',
         );
@@ -359,5 +364,5 @@
 
         # ask the database
-        $Self->{DBObject}->Prepare(
+        return if !$Self->{DBObject}->Prepare(
             SQL => 'SELECT VERSION()',
         );
@@ -376,5 +381,5 @@
 
         # ask the database
-        $Self->{DBObject}->Prepare(
+        return if !$Self->{DBObject}->Prepare(
             SQL => 'SELECT * FROM v$version',
         );
@@ -826,5 +831,5 @@
 
         # compare %A with %B and remove it if checked
-        for my $Key ( keys %A ) {
+        for my $Key ( sort keys %A ) {
 
             # Check if both are undefined
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log