|
|
@ -90,7 +90,7 @@ subtest "test weighted autotruncated" => sub { |
|
|
|
is($query_cgi,'idx=kw&q=test','Query cgi is correct'); |
|
|
|
is($query_desc,'kw,wrdl: test','Query desc is correct'); |
|
|
|
is($limit,'',"Limit is correct"); |
|
|
|
is($limit_cgi,undef,"Limit cgi is correct"); |
|
|
|
is($limit_cgi,'',"Limit cgi is correct"); |
|
|
|
is($limit_desc,'',"Limit desc is correct"); |
|
|
|
is($query_type,undef,"Query type is correct"); |
|
|
|
my $q = Net::Z3950::ZOOM::query_create(); |
|
|
@ -128,7 +128,7 @@ subtest "test* weighted autotruncated" => sub { |
|
|
|
is($query_cgi,'idx=kw&q=test%2A','Query cgi is correct'); |
|
|
|
is($query_desc,'kw,wrdl: test*','Query desc is correct'); |
|
|
|
is($limit,'',"Limit is correct"); |
|
|
|
is($limit_cgi,undef,"Limit cgi is correct"); |
|
|
|
is($limit_cgi,'',"Limit cgi is correct"); |
|
|
|
is($limit_desc,'',"Limit desc is correct"); |
|
|
|
is($query_type,undef,"Query type is correct"); |
|
|
|
my $q = Net::Z3950::ZOOM::query_create(); |
|
|
@ -165,7 +165,7 @@ subtest "test weighted not-autotruncated" => sub { |
|
|
|
is($query_cgi,'idx=kw&q=test','Query cgi is correct'); |
|
|
|
is($query_desc,'kw,wrdl: test','Query desc is correct'); |
|
|
|
is($limit,'',"Limit is correct"); |
|
|
|
is($limit_cgi,undef,"Limit cgi is correct"); |
|
|
|
is($limit_cgi,'',"Limit cgi is correct"); |
|
|
|
is($limit_desc,'',"Limit desc is correct"); |
|
|
|
is($query_type,undef,"Query type is correct"); |
|
|
|
my $q = Net::Z3950::ZOOM::query_create(); |
|
|
@ -314,7 +314,7 @@ subtest "one and two weighted autotruncated" => sub { |
|
|
|
is($query_cgi,'idx=kw&q=one%20and%20two','Query cgi is correct'); |
|
|
|
is($query_desc,'kw,wrdl: one and two','Query desc is correct'); |
|
|
|
is($limit,'',"Limit is correct"); |
|
|
|
is($limit_cgi,undef,"Limit cgi is correct"); |
|
|
|
is($limit_cgi,'',"Limit cgi is correct"); |
|
|
|
is($limit_desc,'',"Limit desc is correct"); |
|
|
|
is($query_type,undef,"Query type is correct"); |
|
|
|
my $q = Net::Z3950::ZOOM::query_create(); |
|
|
|