1 package CatalystX::Test::MessageDriven;
7 $ENV{CATALYST_ENGINE} = 'Test::MessageDriven';
12 CatalystX::Test::MessageDriven - test message-driven Catalyst apps
16 Derived from Catalyst::Test, this module provides a way to run tests
17 against message-driven Catalyst applications - those with
18 Catalyst::Controller::MessageDriven-based controllers, and expect to
19 run with Catalyst::Engine::Stomp.
23 BEGIN { use_ok 'CatalystX::Test::MessageDriven', 'SomeApp' };
25 my $req = '... some message text ...';
26 my $queue = 'somequeue';
27 my $res = request($queue, $req);
32 =head2 request(queue, message)
34 This function accepts a queue and a message, and runs the request in
35 that context. Returns a response object.
39 Some test wrappers - successful / error message conditions?
43 my $message_driven_request = sub {
44 my ($app, $path, $req_message) = @_;
45 my $url = "message://localhost:61613/$path";
47 my $request = HTTP::Request->new( POST => $url );
48 $request->content($req_message);
49 $request->content_length(length $req_message);
50 $request->content_type('application/octet-stream');
53 $app->handle_request($request, \$response);
58 my $build_exports = sub {
59 my ($self, $meth, $args, $defaults) = @_;
62 my $class = $args->{class};
65 $request = sub { Catalyst::Exception->throw("Must specify a test app: use CatalystX::Test::MessageDriven 'TestApp'") };
68 unless (Class::MOP::is_class_loaded($class)) {
69 Class::MOP::load_class($class);
73 my $app = $class->run();
74 $request = sub { $message_driven_request->( $app, @_ ) };
83 my $import = Sub::Exporter::build_exporter({
84 groups => [ all => $build_exports ],
89 my ($self, $class) = @_;
90 $import->($self, '-all' => { class => $class });
95 package # Hide from PAUSE
96 Catalyst::Engine::Test::MessageDriven;
97 use base 'Catalyst::Engine::Embeddable';
100 my ($self, $app) = @_;
106 =head1 AUTHOR AND CONTRIBUTORS
108 See information in L<Catalyst::Engine::Stomp>
110 =head1 LICENCE AND COPYRIGHT
112 Copyright (C) 2009 Venda Ltd
114 This library is free software; you can redistribute it and/or modify
115 it under the same terms as Perl itself, either Perl version 5.8.8 or,
116 at your option, any later version of Perl 5 you may have available.