update test cases for braces

diff --git a/t/snippets/braces.in b/t/snippets/braces.in
index 8b93c94ab4cba5ff9e700e2a4c89b938310e152a..61b94fa402d2c5c62553e94671e246c31371e100 100644 (file)
--- a/t/snippets/braces.in
+++ b/t/snippets/braces.in
@@ -10,3 +10,39 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};

diff --git a/t/snippets/braces7.par b/t/snippets/braces7.par
new file mode 100644 (file)
index 0000000..db12651
--- /dev/null
+++ b/t/snippets/braces7.par
@@ -0,0 +1 @@
+-bli -blil='*'

diff --git a/t/snippets/expect/braces.braces1 b/t/snippets/expect/braces.braces1
index 364230b153b339a1d808c016a4eeaf1c927459c0..a3f075a05d270024de3b85e1930b80cb8bca5ced 100644 (file)
--- a/t/snippets/expect/braces.braces1
+++ b/t/snippets/expect/braces.braces1
@@ -14,3 +14,46 @@ $myfun = sub
 {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do
+{
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub
+    {
+        $ua->get(
+            '/' => sub
+            {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do
+{
+    sswitch( $words[ rand @words ] )
+    {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try
+{
+    die;
+}
+catch
+{
+    die;
+};

diff --git a/t/snippets/expect/braces.braces2 b/t/snippets/expect/braces.braces2
index c55b4c1083f8d7c331cf45e969a3053291ecfad0..aa94cb7f492874dc98594cb6d8725e79c18d4083 100644 (file)
--- a/t/snippets/expect/braces.braces2
+++ b/t/snippets/expect/braces.braces2
@@ -11,3 +11,39 @@ sub message
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};

diff --git a/t/snippets/expect/braces.braces3 b/t/snippets/expect/braces.braces3
index 7e2286d57b67bb3735935be3ac9f95f427f4d4d1..426f6fc177fc85476294751dac9eb00a440afff3 100644 (file)
--- a/t/snippets/expect/braces.braces3
+++ b/t/snippets/expect/braces.braces3
@@ -10,3 +10,42 @@ sub message
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do
+  { $error          = $@;
+    $produced_error = 1;
+  };
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do
+  { sswitch( $words[ rand @words ] )
+    {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+  };
+
+try
+{
+    die;
+}
+catch
+{
+    die;
+};

diff --git a/t/snippets/expect/braces.braces4 b/t/snippets/expect/braces.braces4
index d6e3cb28437aa53f924754f426c4f3d41a9fb6b9..36f3bb3041818045edd2a7f228ffd051c9cd920b 100644 (file)
--- a/t/snippets/expect/braces.braces4
+++ b/t/snippets/expect/braces.braces4
@@ -10,3 +10,40 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
     };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+    }
+  or do {
+    $error          = $@;
+    $produced_error = 1;
+    };
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+                }
+        );
+        }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+        }
+    };
+
+try {
+    die;
+    }
+catch {
+    die;
+    };

diff --git a/t/snippets/expect/braces.braces5 b/t/snippets/expect/braces.braces5
index a384e8c1211f0f72efd9dde6338c13c5df14c411..db5633c714d31e648be1a1d19b34a1faa52c7f95 100644 (file)
--- a/t/snippets/expect/braces.braces5
+++ b/t/snippets/expect/braces.braces5
@@ -13,3 +13,44 @@ sub message
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do
+{
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do
+{
+    sswitch( $words[ rand @words ] )
+    {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try
+{
+    die;
+}
+catch
+{
+    die;
+};

diff --git a/t/snippets/expect/braces.braces6 b/t/snippets/expect/braces.braces6
index f4876819d86a091b0b064fc87a2006a6de7afa3d..a03a762b8eb19a9f9e4a793430693578af228c3c 100644 (file)
--- a/t/snippets/expect/braces.braces6
+++ b/t/snippets/expect/braces.braces6
@@ -9,3 +9,38 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+} catch {
+    die;
+};

diff --git a/t/snippets/expect/braces.braces7 b/t/snippets/expect/braces.braces7
new file mode 100644 (file)
index 0000000..b5f81b1
--- /dev/null
+++ b/t/snippets/expect/braces.braces7
@@ -0,0 +1,60 @@
+sub message
+  {
+    if ( !defined( $_[0] ) )
+      {
+        print("Hello, World\n");
+      }
+    else
+      {
+        print( $_[0], "\n" );
+      }
+  }
+
+$myfun = sub
+  {
+    print("Hello, World\n");
+  };
+
+eval
+  {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+  } or do
+  {
+    $error          = $@;
+    $produced_error = 1;
+  };
+
+Mojo::IOLoop->next_tick(
+    sub
+      {
+        $ua->get(
+            '/' => sub
+              {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+              }
+        );
+      }
+);
+
+$r = do
+  {
+    sswitch( $words[ rand @words ] )
+      {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+      }
+  };
+
+try
+  {
+    die;
+  }
+catch
+  {
+    die;
+  };

diff --git a/t/snippets/expect/braces.def b/t/snippets/expect/braces.def
index 8b93c94ab4cba5ff9e700e2a4c89b938310e152a..61b94fa402d2c5c62553e94671e246c31371e100 100644 (file)
--- a/t/snippets/expect/braces.def
+++ b/t/snippets/expect/braces.def
@@ -10,3 +10,39 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 4b5dd44c356f320a9858cf527ccdbb799f54df67..77ce0f80c4bfe509c900c94d460bfecbd5034960 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -416,3 +416,4 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
+../snippets22.t        braces.braces7

diff --git a/t/snippets18.t b/t/snippets18.t
index 2679eb48d210c56fe10e31e7ed7768040aeaacd5..d60f26c675d03223e29366715e7256215d36187c 100644 (file)
--- a/t/snippets18.t
+++ b/t/snippets18.t
@@ -78,6 +78,42 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};
 ----------
 
         'comments' => <<'----------',
@@ -420,6 +456,49 @@ $myfun = sub
 {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do
+{
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub
+    {
+        $ua->get(
+            '/' => sub
+            {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do
+{
+    sswitch( $words[ rand @words ] )
+    {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try
+{
+    die;
+}
+catch
+{
+    die;
+};
 #5...........
         },
 
@@ -440,6 +519,42 @@ sub message
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};
 #6...........
         },
 
@@ -459,6 +574,45 @@ sub message
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do
+  { $error          = $@;
+    $produced_error = 1;
+  };
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do
+  { sswitch( $words[ rand @words ] )
+    {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+  };
+
+try
+{
+    die;
+}
+catch
+{
+    die;
+};
 #7...........
         },
 
@@ -478,6 +632,42 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};
 #8...........
         },
 

diff --git a/t/snippets19.t b/t/snippets19.t
index 50bd1c69ebca20489f64e2fad4480f51cdf1f859..5740606fcd4dd029ac14e0b51a9b7abf6f0f18c2 100644 (file)
--- a/t/snippets19.t
+++ b/t/snippets19.t
@@ -88,6 +88,42 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};
 ----------
 
         'maths' => <<'----------',
@@ -289,6 +325,43 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
     };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+    }
+  or do {
+    $error          = $@;
+    $produced_error = 1;
+    };
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+                }
+        );
+        }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+        }
+    };
+
+try {
+    die;
+    }
+catch {
+    die;
+    };
 #11...........
         },
 
@@ -377,6 +450,47 @@ sub message
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do
+{
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do
+{
+    sswitch( $words[ rand @words ] )
+    {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try
+{
+    die;
+}
+catch
+{
+    die;
+};
 #17...........
         },
 
@@ -395,6 +509,41 @@ sub message {
 $myfun = sub {
     print("Hello, World\n");
 };
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+} catch {
+    die;
+};
 #18...........
         },
 

diff --git a/t/snippets22.t b/t/snippets22.t
index 942240fb6a4c22d6f078c15a4e8282747ababee6..fd5bf86a5539f7d945fdf9210f1e5a71ac348d59 100644 (file)
--- a/t/snippets22.t
+++ b/t/snippets22.t
@@ -7,6 +7,7 @@
 #4 bbhb.def
 #5 bbhb.bbhb4
 #6 bbhb.bbhb5
+#7 braces.braces7
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -24,10 +25,13 @@ BEGIN {
     # BEGIN SECTION 1: Parameter combinations #
     ###########################################
     $rparams = {
-        'bbhb2'     => "-bbhb=2 -bbp=2",
-        'bbhb3'     => "-bbhb=3 -bbp=3",
-        'bbhb4'     => "-bbhb=3 -bbp=3 -bbhbi=2 -bbpi=2",
-        'bbhb5'     => "-bbhb=3 -bbp=3 -bbhbi=1 -bbpi=1",
+        'bbhb2'   => "-bbhb=2 -bbp=2",
+        'bbhb3'   => "-bbhb=3 -bbp=3",
+        'bbhb4'   => "-bbhb=3 -bbp=3 -bbhbi=2 -bbpi=2",
+        'bbhb5'   => "-bbhb=3 -bbp=3 -bbhbi=1 -bbpi=1",
+        'braces7' => <<'----------',
+-bli -blil='*'
+----------
         'def'       => "",
         'here_long' => "-l=33",
     };
@@ -45,6 +49,57 @@ nested => {
 asdf => 456, 
 yarg => 'yarp', 
 }, );
+----------
+
+        'braces' => <<'----------',
+sub message {
+    if ( !defined( $_[0] ) ) {
+        print("Hello, World\n");
+    }
+    else {
+        print( $_[0], "\n" );
+    }
+}
+
+$myfun = sub {
+    print("Hello, World\n");
+};
+
+eval {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+} or do {
+    $error          = $@;
+    $produced_error = 1;
+};
+
+Mojo::IOLoop->next_tick(
+    sub {
+        $ua->get(
+            '/' => sub {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+            }
+        );
+    }
+);
+
+$r = do {
+    sswitch( $words[ rand @words ] ) {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+    }
+};
+
+try {
+    die;
+}
+catch {
+    die;
+};
 ----------
 
         'here_long' => <<'----------',
@@ -153,6 +208,73 @@ my %temp =
 );
 #6...........
         },
+
+        'braces.braces7' => {
+            source => "braces",
+            params => "braces7",
+            expect => <<'#7...........',
+sub message
+  {
+    if ( !defined( $_[0] ) )
+      {
+        print("Hello, World\n");
+      }
+    else
+      {
+        print( $_[0], "\n" );
+      }
+  }
+
+$myfun = sub
+  {
+    print("Hello, World\n");
+  };
+
+eval
+  {
+    my $app = App::perlbrew->new( "install-patchperl", "-q" );
+    $app->run();
+  } or do
+  {
+    $error          = $@;
+    $produced_error = 1;
+  };
+
+Mojo::IOLoop->next_tick(
+    sub
+      {
+        $ua->get(
+            '/' => sub
+              {
+                push @kept_alive, pop->kept_alive;
+                Mojo::IOLoop->next_tick( sub { Mojo::IOLoop->stop } );
+              }
+        );
+      }
+);
+
+$r = do
+  {
+    sswitch( $words[ rand @words ] )
+      {
+        case $words[0]:
+        case $words[1]:
+        case $words[2]:
+        case $words[3]: { 'ok' }
+      default: { 'wtf' }
+      }
+  };
+
+try
+  {
+    die;
+  }
+catch
+  {
+    die;
+  };
+#7...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};