Lines Matching refs:HMAC
187 subtest "HMAC generation with `dgst` CLI" => sub {
191 #HMAC the data twice to check consistency
192 my @hmacdata = run(app(['openssl', 'dgst', '-sha256', '-hmac', '123456',
195 my $expected = qr/HMAC-SHA2-256\(\Q$testdata\E\)= 6f12484129c4a761747f13d8234a1ff0e074adb34e9e9bf3a155c391b97b9a7c/;
196 ok($hmacdata[0] =~ $expected, "HMAC: Check HMAC value is as expected ($hmacdata[0]) vs ($expected)");
198 "HMAC: Check second HMAC value is consistent with the first ($hmacdata[1]) vs ($expected)");
201 subtest "HMAC generation with `dgst` CLI, default digest" => sub {
205 #HMAC the data twice to check consistency
206 my @hmacdata = run(app(['openssl', 'dgst', '-hmac', '123456',
209 my $expected = qr/HMAC-SHA256\(\Q$testdata\E\)= 6f12484129c4a761747f13d8234a1ff0e074adb34e9e9bf3a155c391b97b9a7c/;
210 ok($hmacdata[0] =~ $expected, "HMAC: Check HMAC value is as expected ($hmacdata[0]) vs ($expected)");
212 "HMAC: Check second HMAC value is consistent with the first ($hmacdata[1]) vs ($expected)");
215 subtest "HMAC generation with `dgst` CLI, key via option" => sub {
219 #HMAC the data twice to check consistency
220 my @hmacdata = run(app(['openssl', 'dgst', '-sha256', '-mac', 'HMAC',
224 my $expected = qr/HMAC-SHA2-256\(\Q$testdata\E\)= 7c02d4a17d2560a5bb6763edbf33f3a34f415398f8f2e07f04b83ffd7c087dae/;
225 ok($hmacdata[0] =~ $expected, "HMAC: Check HMAC value is as expected ($hmacdata[0]) vs ($expected)");
227 "HMAC: Check second HMAC value is consistent with the first ($hmacdata[1]) vs ($expected)");