Update unit tests

db4
Slava Pestov 2008-03-16 03:51:43 -05:00
parent fcee406c6f
commit 8a8a94206d
1 changed files with 3 additions and 3 deletions

View File

@ -1,10 +1,10 @@
IN: definitions.tests IN: definitions.tests
USING: tools.test generic kernel definitions sequences USING: tools.test generic kernel definitions sequences
compiler.units ; compiler.units words ;
TUPLE: combination-1 ; TUPLE: combination-1 ;
M: combination-1 perform-combination 2drop { } [ ] each [ ] ; M: combination-1 perform-combination 2drop [ ] ;
M: combination-1 make-default-method 2drop [ "No method" throw ] ; M: combination-1 make-default-method 2drop [ "No method" throw ] ;
@ -13,7 +13,7 @@ SYMBOL: generic-1
[ [
generic-1 T{ combination-1 } define-generic generic-1 T{ combination-1 } define-generic
[ ] object \ generic-1 define-method object \ generic-1 create-method [ ] define
] with-compilation-unit ] with-compilation-unit
[ ] [ [ ] [