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

View File

@ -43,7 +43,17 @@ CONSTRUCTOR: ct4 ( a b c d -- obj )
[ 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 ;
CONSTRUCTOR: foo ( a c -- obj ) ;""" eval( -- )
] [