22 lines
745 B
Text
22 lines
745 B
Text
|
source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/interactive/ly.tcl" : "ly.tcl"}]
|
||
|
|
|
||
|
|
set ddir "$::env(TESTS_DIR)/data"
|
||
|
|
|
||
|
|
test data_in_format_xml {--in-format xml} {
|
||
|
|
-setup $ly_setup -cleanup $ly_cleanup -body {
|
||
|
|
ly_cmd "load modleaf"
|
||
|
|
ly_cmd "data -F xml $ddir/modleaf.dxml"
|
||
|
|
ly_cmd_err "data -F json $ddir/modleaf.dxml" "Failed to parse"
|
||
|
|
ly_cmd_err "data -F lyb $ddir/modleaf.dxml" "Failed to parse"
|
||
|
|
}}
|
||
|
|
|
||
|
|
test data_in_format_json {--in-format json} {
|
||
|
|
-setup $ly_setup -cleanup $ly_cleanup -body {
|
||
|
|
ly_cmd "load modleaf"
|
||
|
|
ly_cmd "data -F json $ddir/modleaf.djson"
|
||
|
|
ly_cmd_err "data -F xml $ddir/modleaf.djson" "Failed to parse"
|
||
|
|
ly_cmd_err "data -F lyb $ddir/modleaf.djson" "Failed to parse"
|
||
|
|
}}
|
||
|
|
|
||
|
|
cleanupTests
|