diff options
| author | Steve Bennett <steveb@workware.net.au> | 2023-07-10 08:27:58 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2023-07-10 08:27:58 +1000 |
| commit | 7615825fcb937ee6963442176c882ad52a52e7ff (patch) | |
| tree | 10b1c6ea35b66ed125866e18fbdf892dbc1872ab /tests | |
| parent | d765fc5bfd0643d4af928e538715beb32c2111db (diff) | |
| download | jimtcl-7615825fcb937ee6963442176c882ad52a52e7ff.zip jimtcl-7615825fcb937ee6963442176c882ad52a52e7ff.tar.gz jimtcl-7615825fcb937ee6963442176c882ad52a52e7ff.tar.bz2 | |
info script: return real current source file
And allow current source file to be set
Fixes: #268
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/jim.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/jim.test b/tests/jim.test index 8151712..16e56fa 100644 --- a/tests/jim.test +++ b/tests/jim.test @@ -3339,6 +3339,16 @@ test info-7.5 {info vars with temporary variables} { } t1 } {a} +test info-8.1 {info script} { + file tail [info script] +} {jim.test} +test info-8.2 {info script - set} { + set save [info script] + list [info script abc] [info script] [file tail [info script $save]] +} {abc abc jim.test} +test info-8.3 {info script - usage} -body { + info script too many args +} -returnCodes error -result {wrong # args: should be "info script ?filename?"} ################################################################################ # RANGE |