#!perl -T
BEGIN {
eval
{
};
plan $@ ? (
skip_all
=>
'It requires File::Temp and Cache::File for testing'
)
: (
tests
=> 6);
}
my
$cache_root
= tempdir(
CLEANUP
=> 1);
my
$cache
= Cache::File->new(
cache_root
=>
$cache_root
,
default_expires
=>
"600 sec"
,
);
my
@words
=
qw(Perl Ruby)
;
my
@result
;
push
@result
,
scalar
Hatena::Keyword::Similar->similar(
@words
, {
cache
=>
$cache
});
push
@result
,
scalar
Hatena::Keyword::Similar->similar(
@words
, {
cache
=>
$cache
});
ok
@result
== 2;
ok
$cache
->count == 1;
is
join
(
''
, @{
$result
[0]}),
join
(
''
, @{
$result
[1]});
@words
=
qw(Perl Python Ruby)
;
push
@result
,
scalar
Hatena::Keyword::Similar->similar(
@words
, {
cache
=>
$cache
});
ok
@result
== 3;
ok
$cache
->count == 2;
isnt
join
(
''
, @{
$result
[1]}),
join
(
''
, @{
$result
[2]});