diff options
Diffstat (limited to 'test/unit/quote.exp')
| -rw-r--r-- | test/unit/quote.exp | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/test/unit/quote.exp b/test/unit/quote.exp deleted file mode 100644 index 1764e6b0..00000000 --- a/test/unit/quote.exp +++ /dev/null @@ -1,65 +0,0 @@ -proc setup {} { - save_env -} - - -proc teardown {} { - assert_env_unmodified -} - - -setup - - -set cmd {quote "a b"} -set test {quote "a b" should output 'a b'} -send "$cmd\r" -expect -ex "$cmd\r\n" -expect { - -re {'a b'} { pass $test } - default { fail $test } -} -sync_after_int - -set cmd {quote "a b"} -set test {quote "a b" should output 'a b'} -send "$cmd\r" -expect -ex "$cmd\r\n" -expect { - -re {'a b'} { pass $test } - default { fail $test } -} -sync_after_int - -set cmd {quote " a "} -set test {quote " a " should output ' a '} -send "$cmd\r" -expect -ex "$cmd\r\n" -expect { - -re {' a '} { pass $test } - default { fail $test } -} -sync_after_int - -set cmd {quote "a'b'c"} -set test {quote "a'b'c" should output 'a'\''b'\''c'} -send "$cmd\r" -expect -ex "$cmd\r\n" -expect { - -re {'a'\\''b'\\''c'} { pass $test } - default { fail $test } -} -sync_after_int - -set cmd {quote "a'"} -set test {quote "a'" should output 'a'\'''} -send "$cmd\r" -expect -ex "$cmd\r\n" -expect { - -re {'a'\\'''} { pass $test } - default { fail $test } -} -sync_after_int - - -teardown |