From: Joe Atzberger <atz@esilibrary.com>
Date: Tue, 11 May 2010 04:55:33 +0000 (+0000)
Subject: Kill useless sub _count_tests
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b169083b7744286890552989be39b01ba704cacf;p=working%2FSIPServer.git

Kill useless sub _count_tests
---

diff --git a/t/SIPtest.pm b/t/SIPtest.pm
index 4eed28b..6acaa0c 100644
--- a/t/SIPtest.pm
+++ b/t/SIPtest.pm
@@ -24,6 +24,7 @@ use strict;
 use warnings;
 
 use Exporter;
+use Data::Dumper;
 
 our @ISA = qw(Exporter);
 
@@ -218,12 +219,6 @@ sub one_msg {
     return;
 }
 
-#
-# _count_tests: Count the number of tests in a test array
-sub _count_tests {
-    return scalar @_;
-}
-
 sub run_sip_tests {
     my ($sock, $seqno);
 
@@ -237,11 +232,12 @@ sub run_sip_tests {
 
     $seqno = 1;
 
-    plan tests => _count_tests(@_);
+    plan tests => scalar(@_);
 
     foreach my $test (@_) {
-	one_msg($sock, $test, $seqno++);
-	$seqno %= 10;		# sequence number is one digit
+        # print STDERR "Test $seqno:" . Dumper($test);
+        one_msg($sock, $test, $seqno++);
+        $seqno %= 10;		# sequence number is one digit
     }
 }