X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fover.t;h=48c835f80c8ca6abb4fad3baadcbe2731d0f7f85;hb=1bbfab375438f149dcff9047dd0c5ed3a08eed53;hp=bfe331ede2cbc5c75db85c942aa4f087bf1ad9d6;hpb=3cc5ff405d9054fbf47ac44774fca4f9a72ff65a;p=public-inbox.git diff --git a/t/over.t b/t/over.t index bfe331ed..48c835f8 100644 --- a/t/over.t +++ b/t/over.t @@ -1,4 +1,4 @@ -# Copyright (C) 2018 all contributors +# Copyright (C) 2018-2019 all contributors # License: AGPL-3.0+ use strict; use warnings; @@ -38,23 +38,23 @@ is($y, $x + 1, 'integer tid for ghost increases'); my $ddd = compress(''); foreach my $s ('', undef) { - $over->add_over([0, 98, [ 'a' ], [], $s, $ddd]); - $over->add_over([0, 99, [ 'b' ], [], $s, $ddd]); - my $msgs = [ map { $_->{num} } @{$over->get_thread('a')->{msgs}} ]; + $over->add_over([0, 0, 98, [ 'a' ], [], $s, $ddd]); + $over->add_over([0, 0, 99, [ 'b' ], [], $s, $ddd]); + my $msgs = [ map { $_->{num} } @{$over->get_thread('a')} ]; is_deeply([98], $msgs, 'messages not linked by empty subject'); } -$over->add_over([0, 98, [ 'a' ], [], 's', $ddd]); -$over->add_over([0, 99, [ 'b' ], [], 's', $ddd]); +$over->add_over([0, 0, 98, [ 'a' ], [], 's', $ddd]); +$over->add_over([0, 0, 99, [ 'b' ], [], 's', $ddd]); foreach my $mid (qw(a b)) { - my $msgs = [ map { $_->{num} } @{$over->get_thread('a')->{msgs}} ]; + my $msgs = [ map { $_->{num} } @{$over->get_thread('a')} ]; is_deeply([98, 99], $msgs, 'linked messages by subject'); } -$over->add_over([0, 98, [ 'a' ], [], 's', $ddd]); -$over->add_over([0, 99, [ 'b' ], ['a'], 'diff', $ddd]); +$over->add_over([0, 0, 98, [ 'a' ], [], 's', $ddd]); +$over->add_over([0, 0, 99, [ 'b' ], ['a'], 'diff', $ddd]); foreach my $mid (qw(a b)) { - my $msgs = [ map { $_->{num} } @{$over->get_thread($mid)->{msgs}} ]; + my $msgs = [ map { $_->{num} } @{$over->get_thread($mid)} ]; is_deeply([98, 99], $msgs, "linked messages by Message-ID: <$mid>"); }