# -*- perl -*-
# Testing of Pod::HTML
# Author: Marek Rouchal <marekr@cpan.org>

$| = 1;

use Test;
use vars qw($TEST_MODE);

BEGIN { plan tests => 2 }

# syntax-check
# instead of calling system() with a non-portable
# output redirection, we "source" the code and
# let it execute something simple to verify that
# the syntax is correct
if(-d 'html' || mkdir('html')) {
  ok(1);
} else {
  ok(0);
}
@ARGV = qw(-dir html -noidx -notoc t/a.pod t/b.pod);
$TEST_MODE = 1; # do not exit
eval "require 'blib/script/mpod2html';";
if($@) {
  ok(0);
  print "$@\n";
} else {
  ok(1);
}