X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fthread-cycle.t;h=d6545c6df9955104ef930cc1f0ea5fd7dc29b79b;hb=d0147582e289fdd4cdd84e91d8b0f8ae9c230124;hp=21309bd20cd8c365e42ef4366004766be35732b5;hpb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;p=public-inbox.git diff --git a/t/thread-cycle.t b/t/thread-cycle.t index 21309bd2..d6545c6d 100644 --- a/t/thread-cycle.t +++ b/t/thread-cycle.t @@ -19,12 +19,13 @@ sub make_objs { my $msg = $_; $msg->{ds} ||= ++$n; $msg->{references} =~ s/\s+/ /sg if $msg->{references}; + $msg->{blob} = '0'x40; # any dummy value will do, here my $simple = Email::Simple->create(header => [ 'Message-ID' => "<$msg->{mid}>", 'References' => $msg->{references}, ]); push @simples, $simple; - bless $msg, 'PublicInbox::SearchMsg' + bless $msg, 'PublicInbox::Smsg' } @_; (\@simples, \@msgs); } @@ -100,13 +101,13 @@ done_testing(); sub thread_to_s { my ($msgs) = @_; my $rootset = PublicInbox::SearchThread::thread($msgs, sub { - [ sort { $a->{id} cmp $b->{id} } @{$_[0]} ] }); + [ sort { $a->{mid} cmp $b->{mid} } @{$_[0]} ] }); my $st = ''; my @q = map { (0, $_) } @$rootset; while (@q) { my $level = shift @q; my $node = shift @q or next; - $st .= (" "x$level). "$node->{id}\n"; + $st .= (" "x$level). "$node->{mid}\n"; my $cl = $level + 1; unshift @q, map { ($cl, $_) } @{$node->{children}}; }