Added SUnit test and fixed wrapObject call

Göran Krampe
1 parent cd13877a
Showing 2 changed files with 2 additions and 1 deletions
tests/Test1-Tests.st
tests/Test1.nim
+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'! !
 \ No newline at end of file
@@ -16,7 +16,7 @@ type
 setModulename "Test1", "UR"
  
 # Generate the Smalltalk class URVector3 representing Vector3
-wrapObject(Vector3)
+wrapObject(Vector3, true)
  
 # Generate declarations for Smalltalk code
 writeExternalLibrary()