Overview
| Comment: | Updated to include a more reliable test for "mkdir" |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a4245ab3dfdf5ff83743c438a53ee834 |
| User & Date: | rkeene on 2014-06-17 16:42:38 |
| Other Links: | manifest | tags |
Context
|
2014-06-17
| ||
| 16:56 | Updated to treat NULL return values as errors from most types of return types check-in: fbca0aea0c user: rkeene tags: trunk | |
| 16:42 | Updated to include a more reliable test for "mkdir" check-in: a4245ab3df user: rkeene tags: trunk | |
| 05:26 | tcc4tcl 0.19 check-in: 3c95a2ab7e user: rkeene tags: trunk, 0.19 | |
Changes
Modified test from [7d8a169a15] to [e33a20cdc2].
| ︙ | ︙ | |||
15 16 17 18 19 20 21 |
# This should work
tcc4tcl::cproc test3 {int i} int { return(i+42); }
# Multiple arguments
tcc4tcl::cproc add {int a int b} int { return(a+b); }
# Add external functions
| | | > < | > | < | | | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
# This should work
tcc4tcl::cproc test3 {int i} int { return(i+42); }
# Multiple arguments
tcc4tcl::cproc add {int a int b} int { return(a+b); }
# Add external functions
tcc4tcl::cproc mkdir {Tcl_Interp* interp char* dir} ok {
int mkdir_ret;
mkdir_ret = mkdir(dir);
if (mkdir_ret != 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj("failed", -1));
return(TCL_ERROR);
};
return(TCL_OK);
}
puts [test 1]
puts [test1 1]
puts [test3 1]
puts [::bob::test1 1]
puts [add [test 1] 1]
catch {
puts [mkdir "/"]
} err
if {$err != "failed"} {
error "\[mkdir\] did not return the expected error"
}
|