1package main;
2use strict;
3use warnings;
4use lib 't/lib';
5use Test::More;
6use Hailo;
7
8plan(skip_all => "A `Issuing rollback() due to DESTROY without explicit disconnect()' bug in Hailo");
9plan(tests => 2);
10
11{
12    local $@;
13    eval {
14        my $hailo = Hailo->new(
15            tokenizer_class => 'Hailo::Test::Tokenizer',
16        );
17        $hailo->learn("blah blah");
18        ok($hailo->reply(), "got reply");
19    };
20    like($@, qr/Couldn't find.*Hailo::Test::Tokenizer/, "Non-standard plugin without +");
21}
22
23{
24
25    my $hailo = Hailo->new(
26        tokenizer_class => '+Hailo::Test::Tokenizer',
27    );
28    $hailo->learn("blah blah");
29    ok($hailo->reply(), "got reply");
30}
31
32