# The full maintenance test from rfc2144
# This test takes a long time to complete
use Test::More tests => 2;
use lib "blib/lib";
use Crypt::CAST5_PP;
my $cast5 = Crypt::CAST5_PP->new();
my $al = pack "H*", "0123456712345678";
my $ar = pack "H*", "234567893456789a";
my $bl = $al;
my $br = $ar;
for (my $i = 1; $i <= 1_000_000; $i++) {
$cast5->init($bl.$br);
$al = $cast5->encrypt($al);
$ar = $cast5->encrypt($ar);
$cast5->init($al.$ar);
$bl = $cast5->encrypt($bl);
$br = $cast5->encrypt($br);
}
my $a = unpack "H*", $al.$ar;
my $b = unpack "H*", $bl.$br;
is($a, "eea9d0a249fd3ba6b3436fb89d6dca92", "register 'a'");
is($b, "b2c95eb00c31ad7180ac05b8e83d696e", "register 'b'");
# end slowtest.pl