#!/usr/bin/perl
use strict;
use Test::More tests => 6;
my $dict = WWW::Dict::TWMOE::Phrase->new();
$/ = undef;
open F, "<:encoding(big5)", "t/content.html";
my $content = <F>;
my $def = $dict->parse_content($content);
ok(ref $def eq 'HASH');
ok(exists $def->{zuin_form_1});
ok(exists $def->{zuin_form_2});
ok(exists $def->{synonym});
ok(exists $def->{antonym});
ok(exists $def->{definition});