use strict;
use warnings;
-use VPIT::TestHelpers 'usleep';
+use VPIT::TestHelpers;
-use Test::More tests => 2;
+use Test::More;
-pass 'before usleep()';
+my @impls = qw<Time::HiRes sleep>;
-usleep 100;
+for my $impl (@impls) {
+ my $desc = "$impl-based usleep()";
+ {
+ local $SIG{__WARN__} = sub {
+ my $msg = join ' ', @_;
+ if ($msg !~ /Subroutine main::usleep redefined/) {
+ CORE::warn $msg;
+ }
+ return;
+ };
+ VPIT::TestHelpers->import(usleep => [ $impl ]);
+ }
+ my $has_usleep = do {
+ local $@;
+ eval 'defined &main::usleep';
+ };
+ ok $has_usleep, "$desc was imported";
+ my $ret = usleep(100);
+ pass "$desc did sleep";
+ diag "$desc actually slept $ret microseconds";
+}
-pass 'after usleep()';
+done_testing;