New -- used for running tests that are on the infrastructure of IRSpy

itself rather than on the targets, since this test completes much more
quickly!

diff --git a/lib/ZOOM/IRSpy/Test/Quick.pm b/lib/ZOOM/IRSpy/Test/Quick.pm
new file mode 100644 (file)
index 0000000..4c8e70c
--- /dev/null
+++ b/lib/ZOOM/IRSpy/Test/Quick.pm
@@ -0,0 +1,21 @@
+# $Id: Quick.pm,v 1.1 2006-10-13 15:16:29 mike Exp $
+
+package ZOOM::IRSpy::Test::Quick;
+
+use 5.008;
+use strict;
+use warnings;
+
+use ZOOM::IRSpy::Test;
+our @ISA = qw(ZOOM::IRSpy::Test);
+
+sub subtests { qw(Ping Search::Title) }
+
+sub start {
+    my $class = shift();
+    my($conn) = @_;
+
+    $conn->log("irspy_test", "Quick test no-opping");
+}
+
+1;