Help for this page

Select Code to Download


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

done_testing;
  2. or download this
    C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redirect_Tests.pl 
#   Failed test 'FAIL'
...
#          got: '1'
#     expected: '0'
# Looks like you failed 1 test of 11.
  3. or download this
    open my $null,">","nul";

Test::More->builder->output($null);