diff --git config/gen/crypto.pm config/gen/crypto.pm
index ac9b775..6defad4 100644
--- config/gen/crypto.pm
+++ config/gen/crypto.pm
@@ -41,7 +41,7 @@ sub _init {
             md_inc => 'ripemd',
         },
         SHA         => {
-            md_result => '<[0..9a..f]>**{40}',
+            md_result => 'c1b0f222d150ebb9aa36a40cafdc8bcbed830b14',
         },
         SHA1        => {
             md_result => 'c12252ceda8be8994d5fa0290a47231c1d16aae3',
diff --git config/gen/crypto/digest_t.in config/gen/crypto/digest_t.in
index 8cf48c7..aa5b181 100644
--- config/gen/crypto/digest_t.in
+++ config/gen/crypto/digest_t.in
@@ -69,7 +69,7 @@ Tests the C<digest_group> a libcrypto wrapper.
     $S3 .= $S2
     goto L1
   L2:
-    like($S3, '@TEMP_md_result@', '@TEMP_md_name@ digest')
+    is($S3, '@TEMP_md_result@', '@TEMP_md_name@ digest')
 .end
 
 # Local Variables:
diff --git t/op/inf_nan.t t/op/inf_nan.t
index 930e03a..d3e053f 100644
--- t/op/inf_nan.t
+++ t/op/inf_nan.t
@@ -316,10 +316,10 @@ Tests for mathematical operations with Inf and Nan.
 .sub test_asec
     $N0 = 'Inf'
     $N1 = asec $N0
-    like($N1, '1\.5707963.*', 'asec: asec Inf')
+    is($N1, '1.5707963267949', 'asec: asec Inf')
     $N0 = '-Inf'
     $N1 = asec $N0
-    like($N1, '1\.5707963.*', '... asec -Inf')
+    is($N1, '1.5707963267949', '... asec -Inf')
     $N0 = 'NaN'
     $N1 = asec $N0
     is($N1, 'NaN', 'asec NaN')