| 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 pattern_from_help1 {Test the first pattern from help} { |
| 4 | ly_cmd {-p {"[0-9a-fA-F]*"} {1F}} |
| 5 | } {} |
| 6 | |
| 7 | test pattern_from_help2 {Test the second pattern from help} { |
| 8 | ly_cmd {-p {'[a-zA-Z0-9\-_.]*'} {a-b}} |
| 9 | } {} |
| 10 | |
| 11 | test pattern_from_help3 {Test the third pattern from help} { |
| 12 | ly_cmd {-p {[xX][mM][lL].*} {xml-encoding}} |
| 13 | } {} |
| 14 | |
| 15 | test pattern_three_at_once {Test three patterns and once} { |
| 16 | ly_cmd {-p {"[0-9a-zA-Z]*"} -p {'[a-zA-Z0-9\-_.]*'} -p {[xX][mM][lL].*} {xml}} |
| 17 | } {} |
| 18 | |
| 19 | cleanupTests |