diff options
| author | Karel Miko <karel.miko@gmail.com> | 2018-10-15 12:32:06 +0200 |
|---|---|---|
| committer | Karel Miko <karel.miko@gmail.com> | 2018-10-15 12:32:06 +0200 |
| commit | 425d831fa9968463943d4eeae263dd9262096237 (patch) | |
| tree | a39671c9cdaea852902db28ede312a81b7a2b176 /t/wycheproof.t | |
| parent | e247ef5a895241290701a6dc1d0da6f9a41a6af3 (diff) | |
more wycheproof tests
Diffstat (limited to 't/wycheproof.t')
| -rw-r--r-- | t/wycheproof.t | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/t/wycheproof.t b/t/wycheproof.t index 2585e6e1..93a1d2ff 100644 --- a/t/wycheproof.t +++ b/t/wycheproof.t @@ -30,7 +30,6 @@ if (1) { my $msg = pack "H*", $t->{msg}; # "48656c6c6f20776f726c64" my $tag = pack "H*", $t->{tag}; # "4fbcdeb7e4793f4a1d7e4faa70100af1" # do the test - #my $tag2 = substr($m->add($msg)->mac, 0, $tsize); my $tag2 = eval { Crypt::Mac::OMAC->new("AES", $key)->add($msg)->mac }; my $testname = "type=$type tcId=$tcId comment='$comment' expected-result=$result"; if ($result eq 'valid' || $result eq 'acceptable') { |