Codebase list libcryptx-perl / 42c1b22
remove special diagnostics Karel Miko 6 years ago
1 changed file(s) with 0 addition(s) and 7 deletion(s). Raw diff Collapse all Expand all
+0
-7
t/wycheproof.t less more
119119 my $valid = $pk->verify_message($sig, $message, $sha);
120120 my $hash = digest_data($sha, $message);
121121 my $valid_h = $pk->verify_hash($sig, $hash);
122 if ($tcId==55) {
123 diag "SPECIAL: tcId 55";
124 diag "sig-len:".length($sig)." sig-hex:".unpack("H*", $sig);
125 diag "msg-len:".length($message)." msg-hex:".unpack("H*", $message);
126 diag "hash-len:".length($hash)." hash-hex:".unpack("H*", $hash);
127 diag "hash:$sha valid_m:$valid valid_h:$valid_h";
128 }
129122 if ($result eq 'valid' || $result eq 'acceptable') {
130123 ok($valid, $testname);
131124 }