| source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/ly.tcl" : "ly.tcl"}] | |
| test arg_empty {Missing arguments} { | |
| ly_cmd_err "" "missing <string> parameter to process" | |
| } {} | |
| test arg_wrong {Wrong argument} { | |
| ly_cmd_err "-j" "invalid option" | |
| } {} | |
| test arg_help {Print help} { | |
| ly_cmd "-h" "Usage:" | |
| } {} | |
| test arg_version {Print version} { | |
| ly_cmd "-v" "yangre" | |
| } {} | |
| cleanupTests |