From: Mike Taylor <mike@indexdata.com>
Date: Fri, 6 Oct 2006 16:52:50 +0000 (+0000)
Subject: Use the Node class's subnodes() method, was subtests()
X-Git-Tag: CPAN-v1.02~54^2~945
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=2476b32c2fb9f206db264d6c0f514e28a71cd642;hp=c3d27ad557888444759ea45685739fecdd716aad

Use the Node class's subnodes() method, was subtests()
---

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index 103889b..6688393 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -1,4 +1,4 @@
-# $Id: IRSpy.pm,v 1.22 2006-10-06 11:33:07 mike Exp $
+# $Id: IRSpy.pm,v 1.23 2006-10-06 16:52:50 mike Exp $
 
 package ZOOM::IRSpy;
 
@@ -414,13 +414,13 @@ sub _gather_tests {
     }
 
     $this->log("irspy", "adding test '$tname'");
-    my @subtests;
+    my @subnodes;
     foreach my $subtname ("ZOOM::IRSpy::Test::$tname"->subtests($this)) {
 	my $subtest = $this->_gather_tests($subtname, @ancestors, $tname);
-	push @subtests, $subtest if defined $subtest;
+	push @subnodes, $subtest if defined $subtest;
     }
 
-    return new ZOOM::IRSpy::Node($tname, @subtests);
+    return new ZOOM::IRSpy::Node($tname, @subnodes);
 }