X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04-message-driven-request.t;fp=t%2F04-message-driven-request.t;h=0000000000000000000000000000000000000000;hb=1525c58383c49694856673944b2e26103a5b49df;hp=f7299dbd9ad8292c5b0368b817bb9c3437eb5557;hpb=9f1c9f425c8c1e6cfc5113e2bf86ff8a02387a76;p=catagits%2FCatalyst-Engine-STOMP.git diff --git a/t/04-message-driven-request.t b/t/04-message-driven-request.t deleted file mode 100644 index f7299db..0000000 --- a/t/04-message-driven-request.t +++ /dev/null @@ -1,23 +0,0 @@ -use strict; -use warnings; -use Test::More tests => 5; - -use FindBin; -use lib "$FindBin::Bin/../testapp/lib"; - -BEGIN { - use_ok 'Catalyst::Test::MessageDriven', 'StompTestApp' or die; -}; - -# successful request - type is minimum attributes -my $req = "---\ntype: ping\n"; -my $res = request('testcontroller', $req); -ok($res, 'response to ping message'); -ok($res->is_success, 'successful response'); - -# unsuccessful empty request - no type -$req = "--- ~\n"; -$res = request('testcontroller', $req); -ok($res, 'response to empty message'); -ok($res->is_error, 'unsuccessful response'); -