X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Findex-git-times.t;h=52173396b1eaa78074d6bbd13ac1f80985d84ea6;hb=2f8d15b1170b137a0512a4f3163b236a5dcbf0b8;hp=73c99e61edb1e3445fcc9919e27d3462d1b7bb28;hpb=851aa7183cf2b152d7ff187729bc896597d22fad;p=public-inbox.git diff --git a/t/index-git-times.t b/t/index-git-times.t index 73c99e61..52173396 100644 --- a/t/index-git-times.t +++ b/t/index-git-times.t @@ -1,13 +1,13 @@ #!perl -w -# Copyright (C) 2020 all contributors +# Copyright (C) 2020-2021 all contributors # License: AGPL-3.0+ use strict; use v5.10.1; use Test::More; use PublicInbox::TestCommon; -use PublicInbox::Import; use PublicInbox::Config; use PublicInbox::Admin; +use PublicInbox::Import; use File::Path qw(remove_tree); require_mods(qw(DBD::SQLite Search::Xapian)); @@ -17,27 +17,28 @@ my ($tmpdir, $for_destroy) = tmpdir(); local $ENV{PI_CONFIG} = "$tmpdir/cfg"; my $v1dir = "$tmpdir/v1"; my $addr = 'x@example.com'; +my $default_branch = PublicInbox::Import::default_branch; run_script(['-init', '--indexlevel=medium', 'v1', $v1dir, 'http://example.com/x', $addr]) or die "init failed"; { - my $data = <<'EOF'; + my $data = <<"EOF"; blob mark :1 data 133 -From: timeless -To: x +From: timeless +To: x Subject: can I haz the time? -Message-ID: <19700101000000-1234@example.com> +Message-ID: <19700101000000-1234\@example.com> plz -reset refs/heads/master -commit refs/heads/master +reset $default_branch +commit $default_branch mark :2 -author timeless 749520000 +0100 -committer x 1285977600 -0100 +author timeless 749520000 +0100 +committer x 1285977600 -0100 data 20 can I haz the time? M 100644 :1 53/256f6177504c2878d3a302ef5090dacf5e752c @@ -48,7 +49,7 @@ EOF print $w $data or die; close $w or die; my $cmd = ['git', "--git-dir=$v1dir", 'fast-import', '--quiet']; - PublicInbox::Import::run_die($cmd, undef, { 0 => $r }); + xsys_e($cmd, undef, { 0 => $r }); } run_script(['-index', '--skip-docdata', $v1dir]) or die 'v1 index failed'; @@ -63,10 +64,12 @@ my $smsg; $smsg = $ibx->over->get_art(1); is($smsg->{ds}, 749520000, 'datestamp from git author time'); is($smsg->{ts}, 1285977600, 'timestamp from git committer time'); - my $res = $ibx->search->query("m:$smsg->{mid}"); - is(scalar @$res, 1, 'got one result for m:'); + my $mset = $ibx->search->mset("m:$smsg->{mid}"); + is($mset->size, 1, 'got one result for m:'); + my $res = $ibx->search->mset_to_smsg($ibx, $mset); is($res->[0]->{ds}, $smsg->{ds}, 'Xapian stored datestamp'); - $res = $ibx->search->query('d:19931002..19931002'); + $mset = $ibx->search->mset('d:19931002..19931002'); + $res = $ibx->search->mset_to_smsg($ibx, $mset); is(scalar @$res, 1, 'got one result for d:'); is($res->[0]->{ds}, $smsg->{ds}, 'Xapian search on datestamp'); } @@ -87,9 +90,11 @@ SKIP: { 'v2 datestamp from git author time'); is($v2smsg->{ts}, $smsg->{ts}, 'v2 timestamp from git committer time'); - my $res = $ibx->search->query("m:$smsg->{mid}"); + my $mset = $ibx->search->mset("m:$smsg->{mid}"); + my $res = $ibx->search->mset_to_smsg($ibx, $mset); is($res->[0]->{ds}, $smsg->{ds}, 'Xapian stored datestamp'); - $res = $ibx->search->query('d:19931002..19931002'); + $mset = $ibx->search->mset('d:19931002..19931002'); + $res = $ibx->search->mset_to_smsg($ibx, $mset); is(scalar @$res, 1, 'got one result for d:'); is($res->[0]->{ds}, $smsg->{ds}, 'Xapian search on datestamp'); };