diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-10-29 15:37:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-10-29 15:37:07 (GMT) |
| commit | f7dfeb706fb75bccd0aae6cd6119fccdfb6bd8d0 (patch) | |
| tree | adc5bd58d36d1e644901db91fda9cae4929e9168 /tests/source.test | |
| parent | f338047c195aac7e3ac7bb3485da02b33fd868a2 (diff) | |
| parent | 78ef9a971b84f12fb89a8351cf5328961bee8088 (diff) | |
| download | tcl-f7dfeb706fb75bccd0aae6cd6119fccdfb6bd8d0.zip tcl-f7dfeb706fb75bccd0aae6cd6119fccdfb6bd8d0.tar.gz tcl-f7dfeb706fb75bccd0aae6cd6119fccdfb6bd8d0.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/source.test')
| -rw-r--r-- | tests/source.test | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/source.test b/tests/source.test index 0235bd1..8b146d3 100644 --- a/tests/source.test +++ b/tests/source.test @@ -12,8 +12,8 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -if {[catch {package require tcltest 2.1}]} { - puts stderr "Skipping tests in [info script]. tcltest 2.1 required." +if {[catch {package require tcltest 2.5}]} { + puts stderr "Skipping tests in [info script]. tcltest 2.5 required." return } @@ -103,10 +103,9 @@ test source-2.6 {source error conditions} -setup { set sourcefile [makeFile {} _non_existent_] removeFile _non_existent_ } -body { - list [catch {source $sourcefile} msg] $msg $::errorCode -} -match listGlob -result [list 1 \ - {couldn't read file "*_non_existent_": no such file or directory} \ - {POSIX ENOENT {no such file or directory}}] + source $sourcefile +} -match glob -result {couldn't read file "*_non_existent_": no such file or directory} \ + -errorCode {POSIX ENOENT {no such file or directory}} test source-2.7 {utf-8 with BOM} -setup { set sourcefile [makeFile {} source.file] } -body { |