Changeset 2596

Timestamp:

03/09/10 23:11:54 (2 years ago)

Author:

karpet

Message:

failing test for NOT range

File:

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

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

@@ -3 +3 @@
 use strict;
 use warnings;
-use Test::More tests => 57;
+use Test::More tests => 59;
 use Data::Dump qw( dump );
 
@@ -79 +79 @@
 
 is( $query7, qq/green/, "query7 string" );
+
+ok( my $gardenq = $parser3->parse('(garden) AND (-foo=(20100208..20100309))'),
+    "parse complex garden query with range"
+);
+
+is( $gardenq,
+    qq/garden AND (NOT foo:(20100208..20100309))/,
+    "parsed garden query"
+);
 
 ok( my $parser4 = Search::Query::Parser->new(