CPAN::Groonga

 push @actual, Data::Gimei::Address->new();

    isnt $actual[0]->kanji, $expected[0]->kanji;
    isnt $actual[1]->kanji, $expected[1]->kanji;
    isnt $actual[2]->kanji, $expected[2]->kanji;
}

# SHO

>next_int(1024);

    $r->set_seed(42);
    is $r->next_int(1024),   $expected;
    isnt $r->next_int(1024), $expected;

    $r->set_seed(43);
    isnt $r->next_int(1024), $expected;
}

done_testing;