From 8ee9fcc11f0093999d4b0fdd6f2d4110d9b4cff9 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 3 Oct 2011 13:54:34 -0700 Subject: [PATCH] Less use of eval( in unit tests --- basis/classes/struct/struct-tests.factor | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor index 765af7e3ca..56d1cec21d 100644 --- a/basis/classes/struct/struct-tests.factor +++ b/basis/classes/struct/struct-tests.factor @@ -535,12 +535,11 @@ STRUCT: struct-1-union { a int initial: 0 } ; " ] [ \ struct-1-union [ see ] with-string-writer ] unit-test - ! Bug #206 -STRUCT: going-to-forget { a uint } ; +STRUCT: going-to-redefine { a uint } ; [ ] [ - "IN: classes.struct.tests TUPLE: going-to-forget b ;" eval( -- ) + "IN: classes.struct.tests TUPLE: going-to-redefine b ;" eval( -- ) ] unit-test -[ f ] [ "USING: classes.struct.tests kernel ; M\\ going-to-forget clone" eval( -- obj ) ] unit-test -[ f ] [ "USING: classes.struct.tests classes.struct kernel ; M\\ going-to-forget struct-slot-values" eval( -- obj ) ] unit-test +[ f ] [ \ going-to-redefine \ clone method ] unit-test +[ f ] [ \ going-to-redefine \ struct-slot-values method ] unit-test