X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fimap_searchqp.t;h=e2f49e5aa27496290a7e4e4e3f8aa9dfd4c1f78d;hb=9f3fb207c9daa13648f6d0f960e6fef922b55eab;hp=adf7b20508906e98b5752f88b36dd6e565575cec;hpb=9968a955fd7881155bd4938116b98d2ffba192e6;p=public-inbox.git diff --git a/t/imap_searchqp.t b/t/imap_searchqp.t index adf7b205..e2f49e5a 100644 --- a/t/imap_searchqp.t +++ b/t/imap_searchqp.t @@ -1,12 +1,11 @@ #!perl -w -# Copyright (C) 2020 all contributors +# Copyright (C) 2020-2021 all contributors # License: AGPL-3.0+ use strict; -use Test::More; +use v5.10.1; use Time::Local qw(timegm); use PublicInbox::TestCommon; -require_mods(qw(DBD::SQLite Email::Address::XS||Mail::Address - Parse::RecDescent)); +require_mods(qw(-imapd)); use_ok 'PublicInbox::IMAPsearchqp'; use_ok 'PublicInbox::IMAP'; @@ -76,17 +75,17 @@ is($q->{xap}, 'c:"b" d:..19931002', 'compound query w/ parens'); $q = $parse->($s = qq{BEFORE 2-Oct-1993}); is_deeply($q->{sql}, \" AND ts <= $t0", 'BEFORE SQL'); $q = $parse->("FROM z $s"); - is($q->{xap}, qq{f:"z" ts:..$t0}, 'BEFORE Xapian'); + is($q->{xap}, qq{f:"z" rt:..$t0}, 'BEFORE Xapian'); $q = $parse->($s = qq{SINCE 2-Oct-1993}); is_deeply($q->{sql}, \" AND ts >= $t0", 'SINCE SQL'); $q = $parse->("FROM z $s"); - is($q->{xap}, qq{f:"z" ts:$t0..}, 'SINCE Xapian'); + is($q->{xap}, qq{f:"z" rt:$t0..}, 'SINCE Xapian'); $q = $parse->($s = qq{ON 2-Oct-1993}); is_deeply($q->{sql}, \" AND ts >= $t0 AND ts <= $t1", 'ON SQL'); $q = $parse->("FROM z $s"); - is($q->{xap}, qq{f:"z" ts:$t0..$t1}, 'ON Xapian'); + is($q->{xap}, qq{f:"z" rt:$t0..$t1}, 'ON Xapian'); } {