[Gd-chatter] r11674 - trunk/gwydion/common/system/tests

[agent at gwydiondylan.org]

Author: agent
Date: Fri Feb 15 03:19:36 2008
New Revision: 11674

Modified:
   trunk/gwydion/common/system/tests/file-system.dylan
Log:
Job: minor
Corrected test for bug #7367 (read-to fix).


Modified: trunk/gwydion/common/system/tests/file-system.dylan
==============================================================================
--- trunk/gwydion/common/system/tests/file-system.dylan	(original)
+++ trunk/gwydion/common/system/tests/file-system.dylan	Fri Feb 15 03:19:36 2008
@@ -374,8 +374,8 @@
     // read-to second of the tester should return a one element sequence
     check("read-to returns correct result", \=,
 	  copy-sequence(tester, end: 1), read-to(s, second(tester)));
-    check("read should be on third after read-to second",
-	  \=, read-element(s), third(tester));
+    check("read should be on second after read-to second",
+	  \=, read-element(s), second(tester));
   end if;
   cleanup-function(s);