#!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");