[svn:parrot] r42949 - in trunk: config/gen config/gen/crypto t/op

[mikehh at svn.parrot.org]

Author: mikehh
Date: Tue Dec  8 21:35:33 2009
New Revision: 42949
URL: https://trac.parrot.org/parrot/changeset/42949

Log:
fix make corevm/make coretest - from patch by bubaflub++

Modified:
   trunk/config/gen/crypto.pm
   trunk/config/gen/crypto/digest_t.in
   trunk/t/op/inf_nan.t

Modified: trunk/config/gen/crypto.pm
==============================================================================
--- trunk/config/gen/crypto.pm	Tue Dec  8 21:32:01 2009	(r42948)
+++ trunk/config/gen/crypto.pm	Tue Dec  8 21:35:33 2009	(r42949)
@@ -41,7 +41,7 @@
             md_inc => 'ripemd',
         },
         SHA         => {
-            md_result => '<[0..9a..f]>**{40}',
+            md_result => 'c1b0f222d150ebb9aa36a40cafdc8bcbed830b14',,
         },
         SHA1        => {
             md_result => 'c12252ceda8be8994d5fa0290a47231c1d16aae3',

Modified: trunk/config/gen/crypto/digest_t.in
==============================================================================
--- trunk/config/gen/crypto/digest_t.in	Tue Dec  8 21:32:01 2009	(r42948)
+++ trunk/config/gen/crypto/digest_t.in	Tue Dec  8 21:35:33 2009	(r42949)
@@ -69,7 +69,7 @@
     $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:

Modified: trunk/t/op/inf_nan.t
==============================================================================
--- trunk/t/op/inf_nan.t	Tue Dec  8 21:32:01 2009	(r42948)
+++ trunk/t/op/inf_nan.t	Tue Dec  8 21:35:33 2009	(r42949)
@@ -122,7 +122,7 @@
     is($N1, 'NaN', '... sin NaN')
 .end
 
-.sub test_sinh 
+.sub test_sinh
     $N0 = 'Inf'
     $N1 = sinh $N0
     is($N1, 'Inf', 'sinh: sinh Inf')
@@ -134,7 +134,7 @@
     is($N1, 'NaN', '... sinh NaN')
 .end
 
-.sub test_asin 
+.sub test_asin
     $N0 = 'Inf'
     $N1 = asin $N0
     is($N1, 'NaN', 'asin: asin Inf')
@@ -266,7 +266,7 @@
     todo(0, 'coth NaN', 'cot/coth/acot not implemented for real numbers')
 .end
 
-.sub test_acot 
+.sub test_acot
     $N0 = 'Inf'
     #$N1 = acot $N0
     #is($N1, 'NaN', 'acot: acot Inf')
@@ -316,10 +316,10 @@
 .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')
@@ -402,7 +402,7 @@
 .sub test_rounding_n
     $N0 = 'NaN'
     $N1 = floor $N0
-    is($N1, 'NaN', 'rounding n: floor NaN') 
+    is($N1, 'NaN', 'rounding n: floor NaN')
     $N2 = ceil $N0
     is($N2, 'NaN', '... ceil NaN')
     $N0 = 'Inf'
@@ -473,7 +473,7 @@
     $N0 = 'NaN'
     fdiv $P1, $P2, $N0
     #is($P1, 'NaN', 'fdiv with Float and Integer PMCs and NaN')
-    todo(0, 'fdiv with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')    
+    todo(0, 'fdiv with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')
 .end
 
 .sub test_cmod_float_integer_pmc_nan