diff options
author | dgp <dgp@users.sourceforge.net> | 2018-11-19 17:29:12 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-11-19 17:29:12 (GMT) |
commit | cc6faa155b3ac525cab5b017159361b62c4a9c6a (patch) | |
tree | 7fcee0f1e0eb5fa165d2af2f118b1cd52c6352f8 /tests/source.test | |
parent | 274d86b2ec1d33d42ce059946338c6e6e1086ea8 (diff) | |
parent | 1fae54c8c004d072d62e3d867ef4e66b238d0bcd (diff) | |
download | tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.zip tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.tar.gz tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.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 { |