Check-in [a4245ab3df]
Overview
Comment:Updated to include a more reliable test for "mkdir"
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a4245ab3dfdf5ff83743c438a53ee834c741e49c
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
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 {char* dir} ok {
	int rv;


	rv = mkdir(dir);
	if (rv == 0) {

		return(TCL_OK);
	};

	return(TCL_ERROR);
}


puts [test 1]
puts [test1 1]
puts [test3 1]
puts [::bob::test1 1]
puts [add [test 1] 1]

catch {
	puts [mkdir "/"]
} err
if {$err != ""} {
	error "\[mkdir\] did not return the expected error"
}







|
|
>

<
|
>
|

<
|












|


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"
}