From c1cc94f2805ad9b7f282ce31ec5d243c801caf07 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 6 May 2010 12:01:32 -0700
Subject: [PATCH] Do not run the test suite on the support class.

---
 t/tests/My/Test/Class.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/tests/My/Test/Class.pm b/t/tests/My/Test/Class.pm
index 163d41ad5..506bf6bfb 100644
--- a/t/tests/My/Test/Class.pm
+++ b/t/tests/My/Test/Class.pm
@@ -32,7 +32,8 @@ sub _00_init : Test(startup => 1) {
     my $session = WebGUI::Test->session;
     $test->session($session);
     my $class = ref $test;
-    $class =~ s/Test:://;
+    $class =~ s/^Test:://;
+    return ('Not a WebGUI class') unless $class =~ /^WebGUI/;
     $test->class($class);
     lives_ok { WebGUI::Asset->loadModule($class); } "loaded module class $class";
 }