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