Differences From Artifact [22ae724521]:

• Executable file test — part of check-in [fbca0aea0c] at 2014-06-17 16:56:08 on branch trunk — Updated to treat NULL return values as errors from most types of return types (user: rkeene, size: 1178) [annotate] [blame] [check-ins using]

To Artifact [790f1d50be]:

• Executable file test — part of check-in [2a9dcf9840] at 2014-06-18 19:50:24 on branch trunk — Added new API tests (user: rkeene, size: 1444) [annotate] [blame] [check-ins using]
• Executable file test.tcl — part of check-in [ecb01f7ca0] at 2014-06-21 15:43:52 on branch trunk — Updated to name Test TCL script something other than "test" so it does not conflict with the "test" target in Make (user: rkeene, size: 1444) [annotate] [blame] [check-ins using]

57
58
59
60
61
62
63

	set v 0
	puts [test4 0]
	set v 1
} err
if {$err != "" || $v == 1} {
	error "\[test4\] did not return the expected error"
}

>
>
>
>
>
>
>
>
>
>
>

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

	set v 0
	puts [test4 0]
	set v 1
} err
if {$err != "" || $v == 1} {
	error "\[test4\] did not return the expected error"
}

# New API
set handle [tcc4tcl::new]
$handle cproc test5 {int i} int { return(i + 42); }
if {[$handle code] == ""} {
	error "[list $handle code] did not give code output"
}
$handle cproc test6 {int i} int { return(i + 42); }
$handle go
puts [test5 1]
puts [test6 1]