40 lines
1.5 KiB
Plaintext
40 lines
1.5 KiB
Plaintext
/* Regression test script for $remw() function */
|
|
|
|
alias do_test {
|
|
if ([$1] != [$2]) {
|
|
xecho -banner Test $0 failed: Got $1, expected $2
|
|
@tests_failed++
|
|
}
|
|
}
|
|
|
|
alias regress_remw {
|
|
@tests_failed = 0
|
|
|
|
do_test 1 $encode(|$remw(foo foo bar baz)) HMGCGBHCCAGCGBHK
|
|
do_test 2 $encode(|$remw(foo foo foo baz)) HMGGGPGPCAGCGBHK
|
|
do_test 3 $encode(|$remw(foo bar foo baz)) HMGCGBHCCAGCGBHK
|
|
do_test 4 $encode(|$remw(foo foo bar baz)) HMCAGCGBHCCAGCGBHK
|
|
do_test 5 $encode(|$remw(foo foo bar baz )) HMGCGBHCCAGCGBHKCA
|
|
do_test 6 $encode(|$remw(foo bar baz foo )) HMGCGBHCCAGCGBHKCA
|
|
do_test 7 $encode(|$remw("" foo bar baz)) HM
|
|
do_test 8 $encode(|$remw("foo bar" foo bar baz)) HMGCGBHK
|
|
do_test 9 $encode(|$remw("foo bar" foo foo bar baz)) HMGGGPGPCAGCGBHK
|
|
do_test 10 $encode(|$remw(foo foo bar baz)) HMGCGBHCCAGCGBHK
|
|
do_test 11 $encode(|$remw(foo foo bar baz)) HMCAGCGBHCCAGCGBHK
|
|
do_test 12 $encode(|$remw(foo bar foo baz)) HMGCGBHCCAGCGBHK
|
|
do_test 13 $encode(|$remw(foo bar foo baz)) HMGCGBHCAJGCGBHK
|
|
do_test 14 $encode(|$remw(foo bar baz foo)) HMGCGBHCCAGCGBHK
|
|
do_test 15 $encode(|$remw(foo bar baz foo)) HMGCGBHCCAGCGBHK
|
|
do_test 16 $encode(|$remw(foo foo)) HM
|
|
do_test 17 $encode(|$remw(foo bar)) HMGCGBHC
|
|
do_test 18 $encode(|$remw(foo barfoo)) HMGCGBHCGGGPGP
|
|
do_test 19 $encode(|$remw(foo foobar)) HMGGGPGPGCGBHC
|
|
do_test 20 $encode(|$remw(foo bar foobar)) HMGCGBHCCAGGGPGPGCGBHC
|
|
do_test 21 $encode(|$remw(foo barfoo bar)) HMGCGBHCGGGPGPCAGCGBHC
|
|
|
|
xecho -banner remw() tests complete, $tests_failed total failures.
|
|
}
|
|
|
|
/regress_remw
|
|
|