70473583
 Göran Krampe
First sample and ...
|
1
|
TestCase subclass: #FFINimTest
instanceVariableNames: 'nim'
classVariableNames: ''
poolDictionaries: ''
category: 'Nim-Tests'!
!FFINimTest methodsFor: 'as yet unclassified' stamp: 'gk 11/2/2014 15:08'!
setUp
nim := FFINimTestLibrary ! !
!FFINimTest methodsFor: 'as yet unclassified' stamp: 'gk 11/3/2014 01:11'!
testBasics
"getting an int back"
self assert: (nim ffiHello = 42).
"sending ints and getting back too"
self assert: ((nim ffiAdd: 3 with: 4) = 7).
"getting a string"
self assert: (nim ffiFoo = 'hey').
"sending a string and getting an int back"
self assert: ((nim ffiLength: 'abc') = 3) .
! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
FFINimTest class
instanceVariableNames: ''!
!FFINimTest class methodsFor: 'as yet unclassified' stamp: 'gk 11/3/2014 01:12'!
stress
"self stress"
| rand |
rand := Random new.
^[10000000 timesRepeat: [
FFINimTestLibrary
ffiHello;
ffiFoo;
ffiAdd: rand next with: rand next;
ffiConcat: 'abc' with: '123';
ffiLength: 'abcde']] timeToRun! !
ExternalLibrary subclass: #FFINimTestLibrary
instanceVariableNames: 'nim'
classVariableNames: ''
poolDictionaries: ''
category: 'Nim-Tests'!
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
FFINimTestLibrary class
instanceVariableNames: ''!
!FFINimTestLibrary class methodsFor: 'primitives' stamp: 'gk 11/2/2014 13:05'!
ffiAdd: a with: b
"self ffiAdd: 13 with: 29"
<cdecl: long 'add' (long long) module: 'testlib'>
^self externalCallFailed! !
!FFINimTestLibrary class methodsFor: 'primitives' stamp: 'gk 11/2/2014 22:49'!
ffiConcat: a with: b
"self ffiConcat: 'a' with: 'b' "
<cdecl: char* 'concat' (char* char*) module: 'testlib'>
^self externalCallFailed! !
!FFINimTestLibrary class methodsFor: 'primitives' stamp: 'gk 11/3/2014 01:10'!
ffiFoo
"self ffiFoo"
<cdecl: char* 'foo' () module: 'testlib'>
^self externalCallFailed! !
!FFINimTestLibrary class methodsFor: 'primitives' stamp: 'gk 11/2/2014 13:06'!
ffiHello
"self ffiHello"
"long is int in Nim"
<cdecl: long 'hello' () module: 'testlib'>
^self externalCallFailed! !
!FFINimTestLibrary class methodsFor: 'primitives' stamp: 'gk 11/3/2014 01:10'!
ffiLength: x
"self ffiLen: 'hey' "
<cdecl: long 'length' (char*) module: 'testlib'>
^self externalCallFailed! !
!FFINimTestLibrary class methodsFor: 'accessing' stamp: 'gk 10/31/2014 21:45'!
moduleName
"Use the fully qualified VM name so we ensure testing loading a library"
^'testlib'! !
|
