Commit 71252402d2c7da1f362c876f025ccdec135bd9ab
1 parent
cd13877a
Added SUnit test and fixed wrapObject call
Showing
2 changed files
with
2 additions
and
1 deletions
tests/Test1-Tests.st
0 → 100644
| 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'! ! | ||
| 0 | \ No newline at end of file | 2 | \ No newline at end of file |
tests/Test1.nim
| @@ -16,7 +16,7 @@ type | @@ -16,7 +16,7 @@ type | ||
| 16 | setModulename "Test1", "UR" | 16 | setModulename "Test1", "UR" |
| 17 | 17 | ||
| 18 | # Generate the Smalltalk class URVector3 representing Vector3 | 18 | # Generate the Smalltalk class URVector3 representing Vector3 |
| 19 | -wrapObject(Vector3) | 19 | +wrapObject(Vector3, true) |
| 20 | 20 | ||
| 21 | # Generate declarations for Smalltalk code | 21 | # Generate declarations for Smalltalk code |
| 22 | writeExternalLibrary() | 22 | writeExternalLibrary() |