20 lines
403 B
Text
20 lines
403 B
Text
|
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
|