202
203
204
205
206
207
208
209
210
|
return(x + y);
}
set testVal [testClientData 1]
if {$testVal != "4"} {
error "\[ClientData\] Invalid value: $testVal, should have been 4"
}
exit 0
|
>
>
>
>
>
>
>
>
>
>
>
|
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
return(x + y);
}
set testVal [testClientData 1]
if {$testVal != "4"} {
error "\[ClientData\] Invalid value: $testVal, should have been 4"
}
set handle [tcc4tcl::new]
$handle ccommand testCCommand {dummy ip objc objv} {
Tcl_SetObjResult(ip, Tcl_NewStringObj("OKAY", 4));
return(TCL_OK);
}
$handle go
if {[testCCommand] ne "OKAY"} {
error "\[testCCommand\] Invalid result"
}
exit 0
|