Commit | Line | Data |
40e96678 |
1 | use strict; |
2 | use warnings; |
8edb2b46 |
3 | use Test::More tests => 5; |
40e96678 |
4 | |
5 | use FindBin; |
59ead96a |
6 | use lib "$FindBin::Bin/lib"; |
40e96678 |
7 | |
8edb2b46 |
8 | BEGIN { |
9 | use_ok 'Catalyst::Test::MessageDriven', 'StompTestApp' or die; |
10 | }; |
40e96678 |
11 | |
0e4b5a7d |
12 | # successful request - type is minimum attributes |
40e96678 |
13 | my $req = "---\ntype: ping\n"; |
14 | my $res = request('testcontroller', $req); |
15 | ok($res, 'response to ping message'); |
16 | ok($res->is_success, 'successful response'); |
0e4b5a7d |
17 | |
18 | # unsuccessful empty request - no type |
19 | $req = "--- ~\n"; |
20 | $res = request('testcontroller', $req); |
21 | ok($res, 'response to empty message'); |
22 | ok($res->is_error, 'unsuccessful response'); |
edb41ed1 |
23 | |