Fossil SCM
Improve an error message in the 'json' test file.
Commit
e4f854db78fa435ea6b96f3aad6fb558fa6f8fa15b1d5ca88b67aeaf790a8428
Parent
953bb36cbcfc715…
1 file changed
+4
-1
+4
-1
| --- test/json.test | ||
| +++ test/json.test | ||
| @@ -34,11 +34,14 @@ | ||
| 34 | 34 | # fossil. It looks like the one from tcllib is exactly what we need. |
| 35 | 35 | # On ActiveTcl, add it with teacup. On other platforms, YMMV. |
| 36 | 36 | # teacup install json |
| 37 | 37 | # teacup install json::write |
| 38 | 38 | if {[catch {package require json}] != 0} then { |
| 39 | - puts "The \"json\" package is not available." | |
| 39 | + puts { | |
| 40 | +The "json" package for Tcl is not available. | |
| 41 | +Please see: https://core.tcl-lang.org/tcllib | |
| 42 | +} | |
| 40 | 43 | test_cleanup_then_return |
| 41 | 44 | } |
| 42 | 45 | |
| 43 | 46 | proc json2dict {txt} { |
| 44 | 47 | set rc [catch {::json::json2dict $txt} result options] |
| 45 | 48 |
| --- test/json.test | |
| +++ test/json.test | |
| @@ -34,11 +34,14 @@ | |
| 34 | # fossil. It looks like the one from tcllib is exactly what we need. |
| 35 | # On ActiveTcl, add it with teacup. On other platforms, YMMV. |
| 36 | # teacup install json |
| 37 | # teacup install json::write |
| 38 | if {[catch {package require json}] != 0} then { |
| 39 | puts "The \"json\" package is not available." |
| 40 | test_cleanup_then_return |
| 41 | } |
| 42 | |
| 43 | proc json2dict {txt} { |
| 44 | set rc [catch {::json::json2dict $txt} result options] |
| 45 |
| --- test/json.test | |
| +++ test/json.test | |
| @@ -34,11 +34,14 @@ | |
| 34 | # fossil. It looks like the one from tcllib is exactly what we need. |
| 35 | # On ActiveTcl, add it with teacup. On other platforms, YMMV. |
| 36 | # teacup install json |
| 37 | # teacup install json::write |
| 38 | if {[catch {package require json}] != 0} then { |
| 39 | puts { |
| 40 | The "json" package for Tcl is not available. |
| 41 | Please see: https://core.tcl-lang.org/tcllib |
| 42 | } |
| 43 | test_cleanup_then_return |
| 44 | } |
| 45 | |
| 46 | proc json2dict {txt} { |
| 47 | set rc [catch {::json::json2dict $txt} result options] |
| 48 |