Changeset 2540

Timestamp:

02/23/10 16:39:57 (5 months ago)

Author:

karpet

Message:

add failing test

File:

• Search-Query/trunk/t/06-ks.t (modified) (2 diffs)

Search-Query/trunk/t/06-ks.t

@@ -3 +3 @@
 use strict;
 use warnings;
-use Test::More tests => 42;
+use Test::More tests => 47;
 use Data::Dump qw( dump );
 
@@ -169 +169 @@
     "not_bang_query $not_bang_query"
 );
+
+ok( my $parser_alias_for = Search::Query->parser(
+        fields => {
+            field1 => { alias_for => 'field2', },
+            field2 => 1,
+        },
+        dialect => 'KSx',
+    ),
+    "new parser2"
+);
+
+ok( my $query_alias_for = $parser_alias_for->parse('field1=foo'),
+    "parse alias_for with no default field" );
+is( $query_alias_for, qq/field2:foo/, "straight up aliasing" );
+ok( my $query_alias_for2 = $parser_alias_for->parse('foo'),
+    "parse alias_for with no default field and no field specified"
+);
+is( $query_alias_for2, qq/field2:foo/, "query expanded omits aliases" );