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