Commit | Line | Data |
---|---|---|
40e96678 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More tests => 3; | |
4 | ||
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/../testapp/lib"; | |
7 | ||
8 | BEGIN { use_ok 'Catalyst::Test::MessageDriven', 'StompTestApp' }; | |
9 | ||
10 | my $req = "---\ntype: ping\n"; | |
11 | my $res = request('testcontroller', $req); | |
12 | ok($res, 'response to ping message'); | |
13 | ok($res->is_success, 'successful response'); |