NAME

runtests - Run tests through a TAPx harness.

USAGE

  runtests [options] [files or directories]

OPTIONS

Boolean options

  -v,  --verbose     Print all test lines.
  -l,  --lib         Add 'lib' to the path for your tests.
  -b,  --blib        Add 'blib/lib' to the path for your tests.
  -s,  --shuffle     Run the tests in random order.
  -c,  --color       Color test output.  See TAPx::Harness::Color.
  -f,  --failures    Only show failed tests.
  -m,  --merge       Merge STDERR and STDOUT
  -r,  --recurse     Recursively descend into directories.

Options which take arguments

  -h,  --harness     Define test harness to use.  See TAPx::Harness.

##</code><code>##

#!/usr/bin/perl

use Test::HTML::Lint tests => 1;

my $file = shift;
open my $fh, '<', $file 
  or die "Cannot open ($file) for reading: $!";
my $html = do { local $/; <$fh> };

html_ok( $html, "$file has valid HTML" );