#!perl -w
BEGIN { require 't/common.pl' }
use Test::More tests => 2;
use_ok("Mail::Thread");
my $threader = new Mail::Thread(slurp_messages('t/testbox-6'));
$threader->thread;
ok(2, "Avoid loops at all cost");
#!perl -w
BEGIN { require 't/common.pl' }
use Test::More tests => 2;
use_ok("Mail::Thread");
my $threader = new Mail::Thread(slurp_messages('t/testbox-6'));
$threader->thread;
ok(2, "Avoid loops at all cost");