[FYI] {test-protocols} cosmetics: typofix in the name of a function in the TAP driver

[Stefano Lattarini]

   print $result . $msg;
 }
 
-sub testuite_error ($)
+sub testsuite_error ($)
 {
   report "ERROR", "- $_[0]";
 }
@@ -372,12 +372,12 @@ sub handle_tap_test ($)
 sub handle_tap_plan ($)
 {
   my $plan = shift;
-  testuite_error "multiple test plans" if $plan_seen;
+  testsuite_error "multiple test plans" if $plan_seen;
   $plan_seen = 1;
   # TAP plan must be either in the first or in the last line.
   if ($lineno > 1 && peek_tap_line)
     {
-      testuite_error "test plan in middle of output";
+      testsuite_error "test plan in middle of output";
       return;
     }
   # Nothing more to do, unless the plan contains a SKIP directive.
@@ -393,7 +393,7 @@ sub handle_tap_bailout ($)
 {
   my ($bailout, $msg) = ($_[0], "Bail out!");
   $msg .= " " . $bailout->explanation if $bailout->explanation;
-  testuite_error $msg;
+  testsuite_error $msg;
   finish;
 }
 
@@ -437,14 +437,14 @@ sub main (@)
     }
   if (!$plan_seen)
     {
-      testuite_error "missing test plan";
+      testsuite_error "missing test plan";
     }
   elsif ($parser->tests_planned != $parser->tests_run)
     {
       my ($planned, $run) = ($parser->tests_planned, $parser->tests_run);
       my $bad_amount = $run > $planned ? "many" : "few";
-      testuite_error (sprintf "too %s tests run (expected %d, got %d)",
-                              $bad_amount, $planned, $run);
+      testsuite_error (sprintf "too %s tests run (expected %d, got %d)",
+                               $bad_amount, $planned, $run);
     }
   finish;
 }
-- 
1.7.2.3