Lines Matching refs:HMAC
168 subtest "HMAC generation with `dgst` CLI" => sub {
172 #HMAC the data twice to check consistency
173 my @hmacdata = run(app(['openssl', 'dgst', '-sha256', '-hmac', '123456',
176 my $expected = qr/HMAC-SHA2-256\(\Q$testdata\E\)= 6f12484129c4a761747f13d8234a1ff0e074adb34e9e9bf3a155c391b97b9a7c/;
177 ok($hmacdata[0] =~ $expected, "HMAC: Check HMAC value is as expected ($hmacdata[0]) vs ($expected)");
179 "HMAC: Check second HMAC value is consistent with the first ($hmacdata[1]) vs ($expected)");
182 subtest "HMAC generation with `dgst` CLI, default digest" => sub {
186 #HMAC the data twice to check consistency
187 my @hmacdata = run(app(['openssl', 'dgst', '-hmac', '123456',
190 my $expected = qr/HMAC-SHA256\(\Q$testdata\E\)= 6f12484129c4a761747f13d8234a1ff0e074adb34e9e9bf3a155c391b97b9a7c/;
191 ok($hmacdata[0] =~ $expected, "HMAC: Check HMAC value is as expected ($hmacdata[0]) vs ($expected)");
193 "HMAC: Check second HMAC value is consistent with the first ($hmacdata[1]) vs ($expected)");
196 subtest "HMAC generation with `dgst` CLI, key via option" => sub {
200 #HMAC the data twice to check consistency
201 my @hmacdata = run(app(['openssl', 'dgst', '-sha256', '-hmac',
205 my $expected = qr/HMAC-SHA2-256\(\Q$testdata\E\)= b6727b7bb251dfa65846e0a8223bdd57d244aa6d7e312cb906d8e21f2dee3a57/;
206 ok($hmacdata[0] =~ $expected, "HMAC: Check HMAC value is as expected ($hmacdata[0]) vs ($expected)");
208 "HMAC: Check second HMAC value is consistent with the first ($hmacdata[1]) vs ($expected)");