pt-va: Delimit sentences by . or ?

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-07-30 11:47:59 -03:00
parent 2f0812fb33
commit 2192eb9e4e
2 changed files with 15 additions and 4 deletions

View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 5;
use Test::More;
use PerconaTest;
shift @INC; # These two shifts are required for tools that use base and
@@ -68,7 +68,18 @@ ok(
"--ignore-rules"
);
my ($output) = full_output(sub {
pt_variable_advisor::main(@args,
'--source-of-variables', "$sample/vars-baron-002.txt"
)});
like(
$output,
qr/\Qdual-master or ring replication configuration?\E$/sm,
"Sentences are delimited by . or ?"
);
# #############################################################################
# Done.
# #############################################################################
exit;
done_testing;