blob: 821aad1eaebd9aa28cd140f438120f38e8375d5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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
|
