Help for this page

Select Code to Download


  1. or download this
    use strict;
use Test::More;
...
ok(1) for 1 .. $niter;
print "Look at handle count in Windows Task Manager\n";
print "Then press [RETURN] to exit...\n";<STDIN>;
  2. or download this
    # Test to simulate semaphore growth in Test::Builder.
# Grows by 4 semaphore handles per iteration.
...
ok(1) for 1 .. $niter;
print "Look at handle count in Windows Task Manager\n";
print "Then press [RETURN] to exit...\n";<STDIN>;