Lines 90-96
subtest "test weighted autotruncated" => sub {
Link Here
|
90 |
is($query_cgi,'idx=kw&q=test','Query cgi is correct'); |
90 |
is($query_cgi,'idx=kw&q=test','Query cgi is correct'); |
91 |
is($query_desc,'kw,wrdl: test','Query desc is correct'); |
91 |
is($query_desc,'kw,wrdl: test','Query desc is correct'); |
92 |
is($limit,'',"Limit is correct"); |
92 |
is($limit,'',"Limit is correct"); |
93 |
is($limit_cgi,undef,"Limit cgi is correct"); |
93 |
is($limit_cgi,'',"Limit cgi is correct"); |
94 |
is($limit_desc,'',"Limit desc is correct"); |
94 |
is($limit_desc,'',"Limit desc is correct"); |
95 |
is($query_type,undef,"Query type is correct"); |
95 |
is($query_type,undef,"Query type is correct"); |
96 |
my $q = Net::Z3950::ZOOM::query_create(); |
96 |
my $q = Net::Z3950::ZOOM::query_create(); |
Lines 128-134
subtest "test* weighted autotruncated" => sub {
Link Here
|
128 |
is($query_cgi,'idx=kw&q=test%2A','Query cgi is correct'); |
128 |
is($query_cgi,'idx=kw&q=test%2A','Query cgi is correct'); |
129 |
is($query_desc,'kw,wrdl: test*','Query desc is correct'); |
129 |
is($query_desc,'kw,wrdl: test*','Query desc is correct'); |
130 |
is($limit,'',"Limit is correct"); |
130 |
is($limit,'',"Limit is correct"); |
131 |
is($limit_cgi,undef,"Limit cgi is correct"); |
131 |
is($limit_cgi,'',"Limit cgi is correct"); |
132 |
is($limit_desc,'',"Limit desc is correct"); |
132 |
is($limit_desc,'',"Limit desc is correct"); |
133 |
is($query_type,undef,"Query type is correct"); |
133 |
is($query_type,undef,"Query type is correct"); |
134 |
my $q = Net::Z3950::ZOOM::query_create(); |
134 |
my $q = Net::Z3950::ZOOM::query_create(); |
Lines 165-171
subtest "test weighted not-autotruncated" => sub {
Link Here
|
165 |
is($query_cgi,'idx=kw&q=test','Query cgi is correct'); |
165 |
is($query_cgi,'idx=kw&q=test','Query cgi is correct'); |
166 |
is($query_desc,'kw,wrdl: test','Query desc is correct'); |
166 |
is($query_desc,'kw,wrdl: test','Query desc is correct'); |
167 |
is($limit,'',"Limit is correct"); |
167 |
is($limit,'',"Limit is correct"); |
168 |
is($limit_cgi,undef,"Limit cgi is correct"); |
168 |
is($limit_cgi,'',"Limit cgi is correct"); |
169 |
is($limit_desc,'',"Limit desc is correct"); |
169 |
is($limit_desc,'',"Limit desc is correct"); |
170 |
is($query_type,undef,"Query type is correct"); |
170 |
is($query_type,undef,"Query type is correct"); |
171 |
my $q = Net::Z3950::ZOOM::query_create(); |
171 |
my $q = Net::Z3950::ZOOM::query_create(); |
Lines 314-320
subtest "one and two weighted autotruncated" => sub {
Link Here
|
314 |
is($query_cgi,'idx=kw&q=one%20and%20two','Query cgi is correct'); |
314 |
is($query_cgi,'idx=kw&q=one%20and%20two','Query cgi is correct'); |
315 |
is($query_desc,'kw,wrdl: one and two','Query desc is correct'); |
315 |
is($query_desc,'kw,wrdl: one and two','Query desc is correct'); |
316 |
is($limit,'',"Limit is correct"); |
316 |
is($limit,'',"Limit is correct"); |
317 |
is($limit_cgi,undef,"Limit cgi is correct"); |
317 |
is($limit_cgi,'',"Limit cgi is correct"); |
318 |
is($limit_desc,'',"Limit desc is correct"); |
318 |
is($limit_desc,'',"Limit desc is correct"); |
319 |
is($query_type,undef,"Query type is correct"); |
319 |
is($query_type,undef,"Query type is correct"); |
320 |
my $q = Net::Z3950::ZOOM::query_create(); |
320 |
my $q = Net::Z3950::ZOOM::query_create(); |
321 |
- |
|
|