use strict;
use Test::More;
my $niter = shift or die "usage: $0 number-of-iterations\n";
plan tests => $niter;
ok(1) for 1 .. $niter;
print "Look at handle count in Windows Task Manager\n";
print "Then press [RETURN] to exit...\n";<STDIN>;

##</code><code>##

# Test to simulate semaphore growth in Test::Builder.
# Grows by 4 semaphore handles per iteration.
use strict;
use threads;
use threads::shared;
my @Test_Results = ();  share(@Test_Results);
sub ok {
    my $result = {};
    share($result);
    push(@Test_Results, $result);
}
my $niter = shift or die "usage: $0 number-of-iterations\n";
ok(1) for 1 .. $niter;
print "Look at handle count in Windows Task Manager\n";
print "Then press [RETURN] to exit...\n";<STDIN>;