[svn:parrot] r43660 - branches/kill_array_pmc/runtime/parrot/library/Test

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Jan 31 10:05:32 2010
New Revision: 43660
URL: https://trac.parrot.org/parrot/changeset/43660

Log:
Wallparer problem in Test::More with comparision Null vs Undef. We probably need ticket for it to discuss proper solution of handling Nulls in Test::More.

Modified:
   branches/kill_array_pmc/runtime/parrot/library/Test/More.pir

Modified: branches/kill_array_pmc/runtime/parrot/library/Test/More.pir
==============================================================================
--- branches/kill_array_pmc/runtime/parrot/library/Test/More.pir	Sun Jan 31 10:04:48 2010	(r43659)
+++ branches/kill_array_pmc/runtime/parrot/library/Test/More.pir	Sun Jan 31 10:05:32 2010	(r43660)
@@ -618,10 +618,18 @@
     l_elem = shift l_iter
     r_elem = shift r_iter
 
-    $S0 = typeof l_elem
+    # MMD can't handle Nulls. So replace elems with Undef.
+    unless null l_elem goto check_right
+    l_elem = new 'Undef'
+  check_right:
+    unless null r_elem goto compare
+    r_elem = new 'Undef'
+
+  compare:
     elems_equal = compare_elements( l_elem, r_elem, position )
     unless elems_equal goto elems_not_equal
 
+  iter_next:
     inc count
     goto iter_start