#!/usr/bin/perl
BEGIN { $| = 1; print "1..3\n"; }
END {print "not ok 1\n" unless $loaded;}
$loaded = 1;
print "ok 1\n";
$q = CGI::WML->new;
open(IN,"t/test.html") || die ("Can't find test.html: $!\n");
while (<IN>) {$buffer .= $_;}
close (IN);
($title,$wml) = $q->html_to_wml($buffer);
$title =~ /Document Title/ && print "ok 2\n";
$wml =~ s/\>/\>\n/g;
if ($CGI::WML::USEXMLPARSER == 1) {
$wml = $q->card(-id=>"test",
-title=>$title,
-content=>$wml);
$wmlc = $q->wml_to_wmlc( -wml=>$wml,
-errorcontext=>1);
(defined $wmlc) && print "ok 3\n";
}else{
print "ok 3 # Skip\n";
}