From: Mike Taylor <mike@indexdata.com>
Date: Wed, 21 Jun 2006 16:24:55 +0000 (+0000)
Subject: _run_test() can now cope with complex text-class names such as Search::Title
X-Git-Tag: CPAN-v1.02~1205
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=2f17d1103d5af52bf46ac80d9c5b041d9f15022a;p=irspy-moved-to-github.git

_run_test() can now cope with complex text-class names such as Search::Title
---

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index da496e0..0fb95f7 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -1,4 +1,4 @@
-# $Id: IRSpy.pm,v 1.5 2006-06-21 16:09:02 mike Exp $
+# $Id: IRSpy.pm,v 1.6 2006-06-21 16:24:55 mike Exp $
 
 package ZOOM::IRSpy;
 
@@ -189,7 +189,9 @@ sub _run_test {
     my($tname) = @_;
 
     eval {
-	require "ZOOM/IRSpy/Test/$tname.pm";
+	my $slashSeperatedTname = $tname;
+	$slashSeperatedTname =~ s/::/\//g;
+	require "ZOOM/IRSpy/Test/$slashSeperatedTname.pm";
     }; if ($@) {
 	$this->log("warn", "can't load test '$tname': skipping",
 		   $@ =~ /^Can.t locate/ ? () : " ($@)");