19 lines
579 B
Text
19 lines
579 B
Text
source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/ly.tcl" : "ly.tcl"}]
|
|
|
|
test pattern_from_help1 {Test the first pattern from help} {
|
|
ly_cmd {-p {"[0-9a-fA-F]*"} {1F}}
|
|
} {}
|
|
|
|
test pattern_from_help2 {Test the second pattern from help} {
|
|
ly_cmd {-p {'[a-zA-Z0-9\-_.]*'} {a-b}}
|
|
} {}
|
|
|
|
test pattern_from_help3 {Test the third pattern from help} {
|
|
ly_cmd {-p {[xX][mM][lL].*} {xml-encoding}}
|
|
} {}
|
|
|
|
test pattern_three_at_once {Test three patterns and once} {
|
|
ly_cmd {-p {"[0-9a-zA-Z]*"} -p {'[a-zA-Z0-9\-_.]*'} -p {[xX][mM][lL].*} {xml}}
|
|
} {}
|
|
|
|
cleanupTests
|