use strict;
use Test::More;

$ENV{PERL_FNS_NO_OPT} = 1;
require Filesys::Notify::Simple;

my $fs = Filesys::Notify::Simple->new(["/xxx/nonexistent"]);

eval {
    $SIG{ALRM} = sub { die "Alarm\n" };
    alarm 1;
    $fs->wait(sub {});
};

is $@, "Alarm\n";

done_testing;