Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Small test simplification |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | ak-bug-6efa4f571af052-jsonc |
| Files: | files | file ages | folders |
| SHA1: |
942a6505355f236fcdcc4e1d1d70d771 |
| User & Date: | andreask 2013-12-11 22:26:36.949 |
Context
|
2013-12-11
| ||
| 23:18 | Sort tests by name in the data arrays check-in: 9b736e1cfc user: andreask tags: ak-bug-6efa4f571af052-jsonc | |
| 22:26 | Small test simplification check-in: 942a650535 user: andreask tags: ak-bug-6efa4f571af052-jsonc | |
| 22:25 | Fixed buglets which slipped through in previous commit. check-in: 1c1271bd98 user: andreask tags: ak-bug-6efa4f571af052-jsonc | |
Changes
Changes to modules/json/json.testsuite.
1 2 3 4 5 6 7 8 |
# -*- tcl -*-
# -------------------------------------------------------------------------
# Tests
# -------------------------------------------------------------------------
set i 0
foreach name [array names JSON] {
test json-${impl}-1.[incr i] "test JSON $name" -body {
| | < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
# -*- tcl -*-
# -------------------------------------------------------------------------
# Tests
# -------------------------------------------------------------------------
set i 0
foreach name [array names JSON] {
test json-${impl}-1.[incr i] "test JSON $name" -body {
transform [json::json2dict $JSON($name)] $name
} -result [resultfor $name]
}
set i 0
foreach name [array names JSON] {
test json-${impl}-7.[incr i] "validate JSON $name" -body {
json::validate $JSON($name)
|
| ︙ | ︙ |