| source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/interactive/ly.tcl" : "ly.tcl"}] |
| |
| set ddir "$::env(TESTS_DIR)/data" |
| |
| test data_merge_basic {Data is merged and the node is added} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "load modmerge" |
| ly_cmd "data -m -f xml $ddir/modmerge.xml $ddir/modmerge3.xml" "<en>.*<lm>.*<lf>" |
| }} |
| |
| test data_merge_validation_failed {Data is merged but validation failed.} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "load modmerge" |
| ly_cmd "data $ddir/modmerge.xml" |
| ly_cmd "data $ddir/modmerge2.xml" |
| ly_cmd "data -m $ddir/modmerge2.xml $ddir/modmerge.xml" |
| ly_cmd_err "data -m $ddir/modmerge.xml $ddir/modmerge2.xml" "Merged data are not valid" |
| }} |
| |
| cleanupTests |