Check-in [2a9dcf9840]
Overview
Comment:Added new API tests
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2a9dcf98407655a1561d0a479c26a8993d8fddfe
User & Date: rkeene on 2014-06-18 19:50:24
Other Links: manifest | tags
Context
2014-06-21
04:43
Updated to include "strtonum" implementation (public domain) check-in: 0219a4ded0 user: rkeene tags: trunk
2014-06-18
19:50
Added new API tests check-in: 2a9dcf9840 user: rkeene tags: trunk
19:46
Added a command called "code" to get the generated code check-in: 1a7d494008 user: rkeene tags: trunk
Changes

Modified test from [22ae724521] to [790f1d50be].

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]