71252402
 Göran Krampe
Added SUnit test ...
|
1
|
TestCase subclass: #Test1Test
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'Test1-Tests'!
!Test1Test methodsFor: 'as yet unclassified' stamp: 'gk 8/18/2015 10:06'!
testFoo
| v1 v2 |
v1 := URVector3 new x: 1; y: 2; z: 3; yourself.
v2 := URVector3 new x: 1; y: 2; z: 3; yourself.
self assert: (URTest1 foo: v1 b: v2 c: 1000) = 'x plus y plus c 1003.0'! !
|
