Logging of sikppped tests raised from irspy_debug level to irspy_test.

[irspy-moved-to-github.git] / lib / ZOOM / IRSpy.pm

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index de2c561..bc37164 100644 (file)
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -533,7 +533,9 @@ sub check {
                    $conn->option(current_test_address => $nextaddr);
                    my $tname = $node->name();
                    if ($this->should_skip_test($tname)) {
-                       warn "skipping test '$tname' due to rule";
+                       $conn->log("irspy_test",
+                           "skipping test '$nextaddr' = $tname due to rule");
+                       $nskipped += 1;
                        goto NEXT_TEST;
                    }
 
@@ -639,7 +641,7 @@ sub check {
                my $skipcount = 0;
                while (defined $node->next() &&
                       length($node->next()->address()) >= length($address)) {
-                   $conn->log("irspy_debug", "skipping from '",
+                   $conn->log("irspy_test", "skipping from '",
                               $node->address(), "' to '",
                               $node->next()->address(), "'");
                    $node = $node->next();