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'! !