use strict;
use Test;
BEGIN { plan tests => 2 }
use Dunce::time ':FIX';
my $t1 = time;
my $t2 = time + 100_000_000;
my $warning;
$SIG{__WARN__} = sub {
$warning .= shift;
};
my @str_compared = sort $t1, $t2;
ok($warning);
ok("@str_compared", "$t1 $t2");