Select Code to Download

use strict;
use warnings;
...
is(1,0,"FAIL"); 

done_testing;

    
C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redirect_Tests.pl 
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo
+rmatter/TAP.pm line 156.
...
# Looks like you failed 1 test of 6.

Compilation exited abnormally with code 1 at Sat Nov  6 22:35:40