Fix unit test for when auto-use isnt on and test the other constructor error condition
parent
e3d6ba974c
commit
a51fea1224
|
@ -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( -- )
|
||||
] [
|
||||
|
|
Loading…
Reference in New Issue