steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix unit test for when auto-use isnt on and test the other constructor error condition

db4
Doug Coleman 2010-04-23 23:30:51 -05:00
parent e3d6ba974c
commit a51fea1224
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/constructors/constructors-tests.factor
View File

@ -43,7 +43,17 @@ CONSTRUCTOR: ct4 ( a b c d -- obj )
[ 4 ] [ 0 0 0 0 <ct4> a>> ] unit-test [ 4 ] [ 0 0 0 0 <ct4> a>> ] unit-test
[ [
"""IN: constructors.tests """USE: constructors
IN: constructors.tests
TUPLE: foo a b ;
CONSTRUCTOR: foo ( a a -- obj ) ;""" eval( -- )
] [
error>> repeated-constructor-parameters?
] must-fail-with
[
"""USE: constructors
IN: constructors.tests
TUPLE: foo a b ; TUPLE: foo a b ;
CONSTRUCTOR: foo ( a c -- obj ) ;""" eval( -- ) CONSTRUCTOR: foo ( a c -- obj ) ;""" eval( -- )
] [ ] [