[Gd-chatter] r11101 - trunk/src/d2c/runtime/dylan/tests

[agent at gwydiondylan.org]

Author: agent
Date: Tue Dec 26 08:39:29 2006
New Revision: 11101

Modified:
   trunk/src/d2c/runtime/dylan/tests/collections.dylan
Log:
Job: gd
Corrected invalid test. Test did ensure that element(..., default: x) errors
if x is of the wrong element type. According to DRM, the restriction on
return value of element() doesn't apply if default: is supplied, so it should
not error.


Modified: trunk/src/d2c/runtime/dylan/tests/collections.dylan
==============================================================================
--- trunk/src/d2c/runtime/dylan/tests/collections.dylan	(original)
+++ trunk/src/d2c/runtime/dylan/tests/collections.dylan	Tue Dec 26 08:39:29 2006
@@ -834,9 +834,9 @@
               element(collection, -1, default: default),
               default);
   unless (type == <object>)
-    check-condition(format-to-string("%s element wrong default type errors", name),
-		    <error>,
-		    element(collection, -1, default: #"wrong-default-type"));
+    check-no-errors(
+        format-to-string("%s any default element type allowed", name),
+        element(collection, -1, default: #"wrong-default-type"));
   end unless;
   for (key in key-sequence(collection))
     check-equal(format-to-string("%s element %=", name, key),