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