| aPiecek | eebb14b | 2023-06-29 16:16:17 +0200 | [diff] [blame] | 1 | source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/ly.tcl" : "ly.tcl"}] |
| 2 | |
| 3 | test invert_match_from_help1 {Test the first pattern from help via invert match} { |
| 4 | ly_cmd_err {-p {"[0-9a-fA-F]*"} -i {1F}} "not conform to inverted" |
| 5 | ly_cmd {-p {"[0-9a-fA-F]*"} -i {GUN}} |
| 6 | } {} |
| 7 | |
| 8 | test invert_match_from_help2 {Test the second pattern from help via invert match} { |
| 9 | ly_cmd_err {-p {'[a-zA-Z0-9\-_.]*'} -i {a-b}} "not conform to inverted" |
| 10 | ly_cmd {-p {'[a-zA-Z0-9\-_.]*'} -i {%@}} |
| 11 | } {} |
| 12 | |
| 13 | test invert_match_from_help3 {Test the third pattern from help via invert match} { |
| 14 | ly_cmd_err {-p {[xX][mM][lL].*} -i {xml-encoding}} "not conform to inverted" |
| 15 | ly_cmd {-p {[xX][mM][lL].*} -i {json}} |
| 16 | } {} |
| 17 | |
| 18 | test invert_match_three_at_once {Test three inverted patterns and once} { |
| 19 | ly_cmd_err {-p {"[0-9a-zA-Z]*"} -i -p {'[a-zA-Z0-9\-_.]*'} -i -p {[xX][mM][lL].*} -i {xml}} "not conform to inverted" |
| 20 | ly_cmd {-p {"[0-9a-zA-Z]*"} -i -p {'[a-zA-Z0-9\-_.]*'} -i -p {[xX][mM][lL].*} -i {%@}} |
| 21 | } {} |
| 22 | |
| 23 | test invert_match_second_is_not {Test three patterns but the second one is not inverted} { |
| 24 | ly_cmd_err {-p {"[0-9a-zA-Z]*"} -i -p {'[a-zA-Z0-9\-_.]*'} -i -p {[xX][mM][lL].*} -i {o_O}} "not conform to inverted" |
| 25 | ly_cmd {-p {"[0-9a-zA-Z]*"} -i -p {'[a-zA-Z0-9\-_.]*'} -p {[xX][mM][lL].*} -i {o_O}} |
| 26 | } {} |
| 27 | |
| 28 | cleanupTests |