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