From 38b08712eadb2b34acfb9aad2c53603b8f914b95 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <atz@esilibrary.com>
Date: Tue, 11 May 2010 04:55:33 +0000
Subject: [PATCH] Kill useless sub _count_tests

---
 t/SIPtest.pm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

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
     }
 }
 
-- 
2.11.0