38 lines
1 KiB
Text
38 lines
1 KiB
Text
|
source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/ly.tcl" : "ly.tcl"}]
|
||
|
|
|
||
|
|
set fdir "$::env(TESTS_DIR)/files"
|
||
|
|
|
||
|
|
test file_empty {file is empty} {
|
||
|
|
ly_cmd "-f $fdir/empty.txt"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_empty_str {<string> is empty} {
|
||
|
|
ly_cmd "-f $fdir/empty_str.txt"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_empty_str_err {empty <string> is not allowed} {
|
||
|
|
ly_cmd_err "-f $fdir/empty_str_err.txt" "does not conform"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_one_pattern {one pattern in the file} {
|
||
|
|
ly_cmd "-f $fdir/one_pattern.txt"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_two_patterns {two patterns in the file} {
|
||
|
|
ly_cmd "-f $fdir/two_patterns.txt"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_two_patterns_err {two patterns and the <string> is wrong} {
|
||
|
|
ly_cmd_err "-f $fdir/two_patterns_err.txt" "does not conform"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_two_patterns_invert_match {one pattern is inverted} {
|
||
|
|
ly_cmd "-f $fdir/two_patterns_invert_match.txt"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
test file_two_patterns_invert_match_err {one pattern is inverted and the <string> is wrong} {
|
||
|
|
ly_cmd_err "-f $fdir/two_patterns_invert_match_err.txt" "does not conform to inverted"
|
||
|
|
} {}
|
||
|
|
|
||
|
|
cleanupTests
|