diff options
| author | Steve Bennett <steveb@workware.net.au> | 2020-05-04 23:27:39 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2020-05-06 11:23:10 +1000 |
| commit | 3c99fff83e7224ebe348c4840e13444e74f185a3 (patch) | |
| tree | e652aa403bbc1cc2d45c81975666e570993176c2 /tests/jimsh.test | |
| parent | 19b84b6891082f4ab7e852beb8f9f7671e19c32a (diff) | |
| download | jimtcl-3c99fff83e7224ebe348c4840e13444e74f185a3.zip jimtcl-3c99fff83e7224ebe348c4840e13444e74f185a3.tar.gz jimtcl-3c99fff83e7224ebe348c4840e13444e74f185a3.tar.bz2 | |
tests: jimsh.tests additional tests
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/jimsh.test')
| -rw-r--r-- | tests/jimsh.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/jimsh.test b/tests/jimsh.test index eabd248..a02ed9f 100644 --- a/tests/jimsh.test +++ b/tests/jimsh.test @@ -37,4 +37,20 @@ test jimsh-1.7 {jimsh prompt} -body { . 4 . } +test jimsh-1.8 {jimsh prompt - error} -body { + exec [info nameofexecutable] << "blah\n" +} -match glob -result {Welcome to Jim version * +. invalid command name "blah" +\[error\] . } + +test jimsh-1.9 {jimsh prompt - error} -body { + exec [info nameofexecutable] << "throw 99\n" +} -match glob -result {Welcome to Jim version * +. \[99\] . } + +test jimsh-1.10 {jimsh prompt - continuation} -body { + exec [info nameofexecutable] << "set x {\nabc\n}\n" +} -match glob -result "Welcome to Jim version *\n. {> {> \nabc\n\n. " + + testreport |