#!/usr/bin/perl
use
strict;
use
warnings;
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});