diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-03 16:24:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-03 16:24:01 (GMT) |
commit | e69d8e8e92d1212f636f7e4bf4e70d4c66be5305 (patch) | |
tree | 07c53722ab26dbab745953c460b109c966633600 /tests | |
parent | 8607752aa65f484ab844296ce90d2d2e5bfc2259 (diff) | |
download | tcl-e69d8e8e92d1212f636f7e4bf4e70d4c66be5305.zip tcl-e69d8e8e92d1212f636f7e4bf4e70d4c66be5305.tar.gz tcl-e69d8e8e92d1212f636f7e4bf4e70d4c66be5305.tar.bz2 |
Correct casing in some error-messages
Diffstat (limited to 'tests')
-rw-r--r-- | tests/load.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/load.test b/tests/load.test index f6e68b9..674d2a5 100644 --- a/tests/load.test +++ b/tests/load.test @@ -90,7 +90,7 @@ test load-2.3 {loading with no _Init procedure} -constraints [list $dll $loaded] {TCL LOOKUP LOAD_SYMBOL *Foo_Init}] test load-2.4 {loading with no _SafeInit procedure} [list $dll $loaded] { list [catch {load [file join $testDir pkga$ext] {} child} msg] $msg -} {1 {can't use package in a safe interpreter: no pkga_SafeInit procedure}} +} {1 {can't use package in a safe interpreter: no Pkga_SafeInit procedure}} test load-3.1 {error in _Init procedure, same interpreter} \ [list $dll $loaded] { @@ -164,7 +164,7 @@ test load-7.2 {Tcl_StaticPackage procedure} [list teststaticpkg] { child eval {set x "not loaded"} list [catch {load {} another child} msg] $msg \ [child eval set x] [set x] -} {1 {can't use package in a safe interpreter: no another_SafeInit procedure} {not loaded} loaded} +} {1 {can't use package in a safe interpreter: no Another_SafeInit procedure} {not loaded} loaded} test load-7.3 {Tcl_StaticPackage procedure} [list teststaticpkg] { set x "not loaded" teststaticpkg more 0 1 |