1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
use strict;
package main;
use Test;
use Text::Query;
plan test => 56;
#
# ParseSimple logic
#
if ($]>=5.005)
{
my($question);
my($query) = Text::Query->new('bluf',
-build => 'Text::Query::BuildSimpleString',
-solve => 'Text::Query::SolveSimpleString',
-verbose => 0,
);
$question = "word1";
$query->prepare($question);
ok($query->matchstring(), "(?s-xim:(?i)word1(?{[-1,1]}))", "prepare $question");
ok($query->match("take my word1bla pal"), 1, "solve match $question");
ok($query->match("take my lies pal"), 0, "solve no match $question");
$question = "+word1 +word2";
$query->prepare($question);
ok($query->matchstring(), "(?s-xim:(?i)word1(?{[-2,1]})|word2(?{[-3,1]}))", "prepare $question");
ok($query->match("take word2 my word1 and pal"), 2, "solve match $question");
ok($query->match("take my lies word2 pal"), 0, "solve no match $question");
$question = "+word1 word2 -word3";
$query->prepare($question);
ok($query->matchstring(), "(?s-xim:(?i)word1(?{[-2,1]})|word2(?{[-1,1]})|word3(?{[0,1]}))", "prepare $question");
ok($query->match("take my word1 and word2 pal"), 2, "solve match 1 $question");
ok($query->match("take my word1 pal"), 1, "solve match 2 $question");
ok($query->match("take word1 my word1 pal"), 2, "solve match 3 $question");
ok($query->match("take word3 my word1 pal"), 0, "solve no match 1 $question");
ok($query->match("take my lies word1 word2 word3 pal"), 0, "solve no match 2 $question");
#
# Try options
#
$question = "word1 word2";
$query->prepare($question, -whole => 1);
ok($query->matchstring(), '(?s-xim:(?i)\bword1\b(?{[-1,1]})|\bword2\b(?{[-1,1]}))', "prepare $question");
ok($query->match("take my Word1 and Word2 pal"), 2, "solve match $question");
ok($query->match("take my word1flux word2blux pal"), 0, "solve no match $question");
# This does not work properly $question = 'word\d+' + is an operator ...
$question = 'word\d*';
$query->prepare($question, -regexp => 1, -whole => 1);
ok($query->matchstring(), '(?s-xim:(?i)(?:\bword\d*\b)(?{[-1,1]}))', "prepare $question");
ok($query->match("take my word1 and word2 pal"), 2, "solve match $question");
ok($query->match("take my word1flux word2blux pal"), 0, "solve no match $question");
$question = "word1 word2";
$query->prepare($question, -case => 1, -whole => 0, -regexp => 0);
ok($query->matchstring(), '(?s-xim:word1(?{[-1,1]})|word2(?{[-1,1]}))', "prepare $question");
ok($query->match("take my word1 and word2 pal"), 2, "solve match $question");
ok($query->match("take my Word1 And Word2 pal"), 0, "solve no match $question");
$question = 'word1\ word2';
$query->prepare($question, -litspace => 1, -case => 0);
ok($query->matchstring(), '(?s-xim:(?i)word1\\\\\ word2(?{[-1,1]}))', "prepare $question");
ok($query->match("take my word1\\ word2 pal"), 1, "solve match $question");
ok($query->match("take my word1 word2 pal"), 0, "solve no match $question");
#
# Try variants of match and matchscalar
#
$question = "word1";
$query->prepare($question);
ok($query->matchscalar("take my word1 pal"), 1, "solve match $question");
$_ = "take my word1 pal";
ok($query->matchscalar(), 1, "solve match $question");
$_ = '';
my(@f) = $query->match(["word1"], ["word2 word1"], ["word3 word1"], ["word3"]);
ok(join("", map { "$_->[0] => $_->[1] " } @f), "word1 => 1 word2 word1 => 1 word3 word1 => 1 word3 => 0 ", "solve match $question");
@f = $query->match("word1", "word2 word1", "word3 word1", "word3");
ok(join("", map { "$_->[0] => $_->[1] " } @f), "word1 => 1 word2 word1 => 1 word3 word1 => 1 word3 => 0 ", "solve match $question");
@f = $query->match(["word1", "word2 word1", "word3 word1", "word3"]);
ok(join("", map { "$_->[0] => $_->[1] " } @f), "word1 => 1 word2 word1 => 1 word3 word1 => 1 word3 => 0 ", "solve match $question");
}
#
# ParseAdvanced logic
#
{
my($question);
my($query) = Text::Query->new('bluf', -verbose => 0);
$query->configure(-parse => 'Text::Query::ParseAdvanced',
-solve => 'Text::Query::SolveAdvancedString',
-build => 'Text::Query::BuildAdvancedString');
$question = "word1";
$query->prepare($question);
ok($query->matchstring(), "(?i)(?:word1)", "prepare $question");
ok($query->match("take my word1 pal"), 1, "solve match $question");
ok($query->match("take my pal"), '', "solve no match $question");
$question = "'and' or word1";
$query->prepare($question);
ok($query->matchstring(), "(?i)(?:and|word1)", "prepare $question");
ok($query->match("take my word1 pal and"), 1, "solve match $question");
$question = "\"and\" or word1";
$query->prepare($question);
ok($query->matchstring(), "(?i)(?:and|word1)", "prepare $question");
$question = "word1 or word2";
$query->prepare($question);
ok($query->matchstring(), "(?i)(?:word1|word2)", "prepare $question");
ok($query->match("take my word1 pal and"), 1, "solve match $question");
$question = "word1 and word2";
$query->prepare($question);
ok($query->matchstring(), "(?i)(?:^(?=.*word1)(?=.*word2))", "prepare $question");
ok($query->match("take my word1 pal word2 and"), 1, "solve match $question");
ok($query->match("take my word2 pal"), '', "solve no match $question");
$question = "word1 near word2";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:(?:word1\s*(?:\S+\s+){0,10}word2)|(?:word2\s*(?:\S+\s+){0,10}word1))', "prepare $question");
ok($query->match("take my word1 space1 space2 word2 pal"), 1, "solve match $question");
ok($query->match("take my word1 space space space space space space space space space space space space space space space word2 pal"), '', "solve no match $question");
$question = "not word1";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:(?:^(?:(?!word1).)*$))', "prepare $question");
ok($query->match("take my pal"), 1, "solve match $question");
ok($query->match("take my word1 pal"), '', "solve no match $question");
$question = "scope1: word1";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:word1)', "prepare $question");
$question = "word1 word2";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:word1\s+word2)', "prepare $question");
ok($query->match("take my word1 \tword2 pal"), 1, "solve match $question");
$question = "(word1) (word2)";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:(?:(?:word1)\s*(?:word2)))', "prepare $question");
ok($query->match("take my word1word2 pal"), 1, "solve match $question");
ok($query->match("take my word1 word2 pal"), 1, "solve match $question");
$question = "word1 or word2 and word3";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:word1|^(?=.*word2)(?=.*word3))', "prepare $question");
$question = "(word1 or word2) and word3";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:^(?=.*(?:word1|word2))(?=.*word3))', "prepare $question");
$question = "word1 and not word2";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:^(?=.*word1)(?=.*(?:^(?:(?!word2).)*$)))', "prepare $question");
$question = "scope1: ( word1 and word2 or scope2: word3 ) or word4";
$query->prepare($question);
ok($query->matchstring(), '(?i)(?:(?:^(?=.*word1)(?=.*word2)|word3)|word4)', "prepare $question");
}
# Local Variables: ***
# mode: perl ***
# End: ***
|
