### ----------------------------------------------------
### -- Sum
### -- Licenses: http://www.perlfoundation.org/artistic_license_2_0
### -- Authors: Brian S. Julin
### -- File: t/tiger.t
### ----------------------------------------------------
### -- Chunk 18 of 18
17403E4184A2B27E8E2CC8BFBF3
26A532EA1D835A792F77DB574A7DDD13E1AA4ABBFDB0AA39
96DF3BD657E0B6F6F6381ACCD223C24BB25931B689C56A89
7D4503CAAF66AF13A89A935EB7E8160F824B58366EE922A9
04A3161F590621ED766F2E7B9C06E8861A15F9E8589C4B43
669EDD653A522B124AACB668B02743279A0281A2F059BE6C
5409D5AE9D4DFB198880BA001BC71FC235D3CDBCE440ED15
367067AADA914E6B3BD43EEFCE16C2832C684756B3B0F4CF
D8B0DAA9F3C806BE263961D12A6B457ED1CC2E7750560EE3
362204625952AD8EB255B029A5C073AA8EFDF1C67BCFDFB2
3CE31FD4459880C9DE83EC89B425746DD9E1085A0E9660FF
0F77C92A36269FBAE744FD34A9C68F21548F5DF6B27EF2AA
»;

{
my $msg = 1 +< 511;
my $vnum = 0;
while ($msg) {
    next if $vnum > $testvecs - 1 and not 439 < $vnum < 450;
    is +T2.new.finalize(Buf.new(255 X+& ($msg X+> (504,496...0)))), ("0x" ~ @t2set3[$vnum]).Int, "Tiger2 Set 3, vector #$vnum";
    is +T2u.new.finalize(Buf.new(255 X+& ($msg X+> (504,496...0)))), ("0x" ~ @t2set3[$vnum]).Int, "Tiger2 Set 3, vector #$vnum (indirect)";
    NEXT {
        $vnum++;
        $msg +>= 1;
    }
}
}

#$s2 .= new();
#my $digest = $s2.finalize(Buf.new(48 xx 0));
#is hexify(digest), "1DE8974FA4CBE84A99FD35F7FAF6F12BA07BCD6E4D8E745B", "Set 4, vector#  0 -- initial";
#$digest = T2.new.finalize($digest) for ^100000;
#is hexify(digest), "F7948E9054736D824E1F2807122F020AA270903F82C611CF", "Set 4, vector#  0 -- iterated";


