X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Findex-git-times.t;h=52173396b1eaa78074d6bbd13ac1f80985d84ea6;hb=4ac15319847bc91ab2b7e8bb4b9f8955ba9fd55c;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');
};