Changeset 2556 for Search-Query-Dialect-KSx/trunk/t/01-parser.t

Timestamp:

02/28/10 22:57:46 (2 years ago)

Author:

karpet

Message:

add docs and prelim tests

File:

• Search-Query-Dialect-KSx/trunk/t/01-parser.t (modified) (3 diffs)

Search-Query-Dialect-KSx/trunk/t/01-parser.t

@@ -3 +3 @@
 use strict;
 use warnings;
-use Test::More tests => 47;
+use Test::More tests => 53;
 use Data::Dump qw( dump );
 
@@ -22 +22 @@
 
 is( $query1, qq/foo:bar/, "query1 string" );
+
+ok( my $ks_query1 = $query1->as_ks_query(), "as_ks_query" );
+ok( $ks_query1->isa('KinoSearch::Search::TermQuery'),
+    "ks_query isa TermQuery" );
 
 ok( my $query2 = $parser->parse('foo:bar'), "query2" );
@@ -181 +185 @@
 );
 is( $query_alias_for2, qq/foo/, "query expanded omits aliases" );
+
+# wildcards
+ok( my $fuzzy_parser = Search::Query->parser(
+        dialect          => 'KSx',
+        query_class_opts => { default_field => 'field1' }
+    ),
+    "new fuzzy parser"
+);
+ok( my $fuzzy_query = $fuzzy_parser->parse('foo*'), "parse foo*" );
+ok( my $fuzzy_ks    = $fuzzy_query->as_ks_query,    "fuzzy as_ks_query" );
+is( $fuzzy_ks->to_string, $fuzzy_query->stringify,
+    "stringification matches" );