Help for this page

Select Code to Download


  1. or download this
    #! perl -w
# filetest.t
...
  File::Spec->catfile( $dirname, 'filetest.t' );
diag("testing an existing file: $location");
cmp_ok( defined -f $location, '==', 1, 'this file should exist' );
  2. or download this
    1..2
# filename of this test-script: lib/t/filetest.t
...
# testing an existing file: lib/t/filetest.t
ok 2 - this file should exist
# Looks like you failed 1 test of 2.