Overview
| Comment: | Added new API tests |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2a9dcf98407655a1561d0a479c26a899 |
| 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]
|