t/01-doc.t

   1 #!perl
   2
   3 BEGIN { chomp($pwd=`pwd`); $ENV{PATH} .= ":$pwd/bin"; };
   4
   5 use Test::More tests => 2;
   6
   7 use HTML::AutoConvert;
   8
   9 my $c = new HTML::AutoConvert;
  10
  11 my $html = $c->html_convert('t/DiaryofaKillerCat.doc');
  12
  13 #match $html against something;
  14 like( $html, qr/Chunky/, 'text is Chunky' );
  15 like( $html, qr/Monkey/, 'text has Monkey' );
  16