mirror of
https://github.com/MariaDB/server.git
synced 2025-01-19 13:32:33 +01:00
45 lines
800 B
Perl
45 lines
800 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
$test=shift || die "Usage $0 testname [option]";
|
||
|
|
$option=shift;
|
||
|
|
|
||
|
|
open(D, "<data/$test.d") || die "Cannot open(<data/$test.d): $!";
|
||
|
|
open(Q, "<data/$test.q") || die "Cannot open(<data/$test.q): $!";
|
||
|
|
|
||
|
|
$N=0;
|
||
|
|
|
||
|
|
print <<__HEADER__;
|
||
|
|
DROP TABLE IF EXISTS $test;
|
||
|
|
CREATE TABLE $test (
|
||
|
|
id int(10) unsigned NOT NULL,
|
||
|
|
text text NOT NULL,
|
||
|
|
FULLTEXT KEY text (text)
|
||
|
|
) TYPE=MyISAM CHARSET=latin1;
|
||
|
|
|
||
|
|
ALTER TABLE $test DISABLE KEYS;
|
||
|
|
__HEADER__
|
||
|
|
|
||
|
|
while (<D>) { chomp;
|
||
|
|
s/'/\\'/g; ++$N;
|
||
|
|
print "INSERT $test VALUES ($N, '$_');\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print <<__PREP__;
|
||
|
|
ALTER TABLE $test ENABLE KEYS;
|
||
|
|
SELECT $N;
|
||
|
|
__PREP__
|
||
|
|
|
||
|
|
$N=0;
|
||
|
|
|
||
|
|
while (<Q>) { chomp;
|
||
|
|
s/'/\\'/g; ++$N;
|
||
|
|
$_="MATCH text AGAINST ('$_' $option)";
|
||
|
|
print "SELECT $N, id, $_ FROM $test WHERE $_;\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print <<__FOOTER__;
|
||
|
|
DROP TABLE $test;
|
||
|
|
__FOOTER__
|
||
|
|
|
||
|
|
|