From: Chris Andrews Date: Mon, 13 Jul 2009 21:19:33 +0000 (+0100) Subject: Switch the test harness module into CatalystX::, and allow it to X-Git-Tag: 0.0.6~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Engine-STOMP.git;a=commitdiff_plain;h=28e4d6b3312198d2d39f542c28a46beafeb8b7cb Switch the test harness module into CatalystX::, and allow it to be indexed etc. --- diff --git a/t/lib/Catalyst/Test/MessageDriven.pm b/lib/CatalystX/Test/MessageDriven.pm similarity index 89% rename from t/lib/Catalyst/Test/MessageDriven.pm rename to lib/CatalystX/Test/MessageDriven.pm index db50c2b..281e7bc 100644 --- a/t/lib/Catalyst/Test/MessageDriven.pm +++ b/lib/CatalystX/Test/MessageDriven.pm @@ -1,5 +1,4 @@ -package # PAUSE hide - Catalyst::Test::MessageDriven; +package CatalystX::Test::MessageDriven; use Class::MOP; use Sub::Exporter; use HTTP::Request; @@ -10,7 +9,7 @@ BEGIN { =head1 NAME -Catalyst::Test::MessageDriven - test message-driven Catalyst apps +CatalystX::Test::MessageDriven - test message-driven Catalyst apps =head1 DESCRIPTION @@ -21,7 +20,7 @@ run with Catalyst::Engine::Stomp. =head1 SYNOPSIS - BEGIN { use_ok 'Catalyst::Test::MessageDriven', 'SomeApp' }; + BEGIN { use_ok 'CatalystX::Test::MessageDriven', 'SomeApp' }; my $req = '... some message text ...'; my $queue = 'somequeue'; @@ -63,7 +62,7 @@ my $build_exports = sub { my $class = $args->{class}; if (!$class) { - $request = sub { Catalyst::Exception->throw("Must specify a test app: use Catalyst::Test::MessageDriven 'TestApp'") }; + $request = sub { Catalyst::Exception->throw("Must specify a test app: use CatalystX::Test::MessageDriven 'TestApp'") }; } else { unless (Class::MOP::is_class_loaded($class)) { diff --git a/t/13_message-driven-request.t b/t/13_message-driven-request.t index 7f21a53..a1ea8c3 100644 --- a/t/13_message-driven-request.t +++ b/t/13_message-driven-request.t @@ -6,7 +6,7 @@ use FindBin; use lib "$FindBin::Bin/lib"; BEGIN { - use_ok 'Catalyst::Test::MessageDriven', 'StompTestApp' or die; + use_ok 'CatalystX::Test::MessageDriven', 'StompTestApp' or die; }; # successful request - type is minimum attributes