Issue #5564: do not exit the sub 'catch' with next

also add an assertion that checks whether an expected excption was actually thrown

Author: bschmalhofer

scripts/test/DynamicField/ObjectType/Article/ObjectDataGet.t

@@ -207,18 +207,23 @@ for my $Test (@Tests) {
 
     # implicitly call Kernel::System::Web::Request->new();
     my %ObjectData;
+    my $HasThrown;
     try {
         %ObjectData = $ObjectHandlerObject->ObjectDataGet( %{ $Test->{Config} } );
     }
     catch {
-    
-        if( !$Test->{Throws} ) {
+        $HasThrown = 1;
 
-            ok(0,"$Test->{Name} - not expected to throw");
+        if ( $Test->{Throws} ) {
+            pass("$Test->{Name} should throw");
+        }
+        else {
+            fail("$Test->{Name} should not throw");
         }
-        next TEST;
     };
 
+    next TEST if $HasThrown;
+
     if ( !$Test->{Success} ) {
         is(
             \%ObjectData,

scripts/test/DynamicField/ObjectType/Ticket/ObjectDataGet.t

@@ -163,18 +163,23 @@ for my $Test (@Tests) {
 
     # implicitly call Kernel::System::Web::Request->new();
     my %ObjectData;
+    my $HasThrown;
     try {
         %ObjectData = $ObjectHandlerObject->ObjectDataGet( %{ $Test->{Config} } );
     }
     catch {
-    
-        if( !$Test->{Throws} ) {
-        
-            ok( 0, "$Test->{Name} should not throw");
+        $HasThrown = 1;
+
+        if ( $Test->{Throws} ) {
+            pass("$Test->{Name} should throw");
+        }
+        else {
+            fail("$Test->{Name} should not throw");
         }
-        next TEST;
     };
 
+    next TEST if $HasThrown;
+
     if ( !$Test->{Success} ) {
         is(
             \%ObjectData,