#!/usr/bin/perl -w

use Test::More;
use strict;

BEGIN
   {
   plan tests => 12;
   chdir 't' if -d 't';
   };

my $gen = '../';
$gen = 'perl ..\\' if $^O =~ /MSWin32/i;
$gen .= 'gen_graph';

#############################################################################
# --format=foo tests

test_out ('html', 'usage.html');

test_out ('ascii', 'usage.txt');

# all tests done;

#############################################################################

sub test_out
  {
  # format, outfile
  my ($f,$out) = @_;

  unlink $out; my $rc = `$gen --inc=lib/Test.pm --format=$f --output=$out`;
  ok (-f $out, "$out exists");

  unlink $out; $rc = `$gen --inc=lib/Test.pm --format=$f --output=usage`;
  ok (-f $out, "$out exists");

  unlink $out; $rc = `$gen --inc=lib/Test.pm --format=$f --versions --output=usage`;
  ok (-f $out, "$out exists");

  unlink $out; $rc = `$gen --inc=lib/Test.pm --format=$f --versions --debug --output=usage`;
  ok (-f $out, "$out exists");

  unlink $out; $rc = `$gen --inc=lib/Test.pm --format=$f --versions --debug --output=usage --extension=$f`;
  ok (-f $out, "$out exists");

  unlink $out; $rc = `$gen --inc=lib/Test.pm --format=$f --versions --debug --output=usage --extension=.$f`;
  ok (-f $out, "$out exists");
  }

END
  {
  # clean up
  unlink "usage.html";
  unlink "usage.txt";
  }