# Commands covered: source # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id: source.test,v 1.2 2001/09/14 01:43:48 zlaski Exp $ if {[string compare test [info procs test]] == 1} then {source defs} test source-1.1 {source command} { set x "old x value" set y "old y value" set z "old z value" makeFile { set x 22 set y 33 set z 44 } source.file source source.file list $x $y $z } {22 33 44} test source-1.2 {source command} { makeFile {list result} source.file source source.file } result # The mac version of source returns a different result for # the next two tests. if {$tcl_platform(platform) == "macintosh"} { set retMsg1 {1 {wrong # args: should be "source fileName" or "source -rsrc name ?fileName?" or "source -rsrcid id ?fileName?"}} set retMsg2 {1 {bad argument: should be "source fileName" or "source -rsrc name ?fileName?" or "source -rsrcid id ?fileName?"}} } else { set retMsg1 {1 {wrong # args: should be "source fileName"}} set retMsg2 {1 {wrong # args: should be "source fileName"}} } test source-2.1 {source error conditions} { list [catch {source} msg] $msg } $retMsg1 test source-2.2 {source error conditions} { list [catch {source a b} msg] $msg } $retMsg2 test source-2.3 {source error conditions} { makeFile { set x 146 error "error in sourced file" set y $x } source.file list [catch {source source.file} msg] $msg $errorInfo } {1 {error in sourced file} {error in sourced file while executing "error "error in sourced file"" (file "source.file" line 3) invoked from within "source source.file"}} test source-2.4 {source error conditions} { makeFile {break} source.file catch {source source.file} } 3 test source-2.5 {source error conditions} { makeFile {continue} source.file catch {source source.file} } 4 test source-2.6 {source error conditions} { normalizeMsg [list [catch {source _non_existent_} msg] $msg $errorCode] } {1 {couldn't read file "_non_existent_": no such file or directory} {posix enoent {no such file or directory}}} test source-3.1 {return in middle of source file} { makeFile { set x new-x return allDone set y new-y } source.file set x old-x set y old-y set z [source source.file] list $x $y $z } {new-x old-y allDone} test source-3.2 {return with special code etc.} { makeFile { set x new-x return -code break "Silly result" set y new-y } source.file list [catch {source source.file} msg] $msg } {3 {Silly result}} test source-3.3 {return with special code etc.} { makeFile { set x new-x return -code error "Simulated error" set y new-y } source.file list [catch {source source.file} msg] $msg $errorInfo $errorCode } {1 {Simulated error} {Simulated error while executing "source source.file"} NONE} test source-3.4 {return with special code etc.} { makeFile { set x new-x return -code error -errorinfo "Simulated errorInfo stuff" set y new-y } source.file list [catch {source source.file} msg] $msg $errorInfo $errorCode } {1 {} {Simulated errorInfo stuff invoked from within "source source.file"} NONE} test source-3.5 {return with special code etc.} { makeFile { set x new-x return -code error -errorinfo "Simulated errorInfo stuff" \ -errorcode {a b c} set y new-y } source.file list [catch {source source.file} msg] $msg $errorInfo $errorCode } {1 {} {Simulated errorInfo stuff invoked from within "source source.file"} {a b c}} # Test for the Macintosh specfic features of the source command test source-4.1 {source error conditions} {macOnly} { list [catch {source -rsrc _no_exist_} msg] $msg } [list 1 "The resource \"_no_exist_\" could not be loaded from application."] test source-4.2 {source error conditions} {macOnly} { list [catch {source -rsrcid bad_id} msg] $msg } [list 1 "expected integer but got \"bad_id\""] test source-4.3 {source error conditions} {macOnly} { list [catch {source -rsrc rsrcName fileName extra} msg] $msg } $retMsg1 test source-4.4 {source error conditions} {macOnly} { list [catch {source non_switch rsrcName} msg] $msg } $retMsg2 test source-4.5 {source error conditions} {macOnly} { list [catch {source -bad_switch argument} msg] $msg } $retMsg2 test source-5.1 {source resource files} {macOnly} { list [catch {source -rsrc rsrcName bad_file} msg] $msg } [list 1 "Error finding the file: \"bad_file\"."] test source-5.2 {source resource files} {macOnly} { makeFile {return} source.file list [catch {source -rsrc rsrcName source.file} msg] $msg } [list 1 "Error reading the file: \"source.file\"."] test source-5.3 {source resource files} {macOnly} { testWriteTextResource -rsrc rsrcName -file rsrc.file {set msg2 ok; return} set result [catch {source -rsrc rsrcName rsrc.file} msg] removeFile rsrc.file list $msg2 $result $msg } [list ok 0 {}] test source-5.4 {source resource files} {macOnly} { catch {unset msg2} testWriteTextResource -rsrc fileRsrcName -file rsrc.file {set msg2 ok; return} source -rsrc fileRsrcName rsrc.file set result [catch {source -rsrc fileRsrcName} msg] removeFile rsrc.file list $msg2 $result $msg } [list ok 1 {The resource "fileRsrcName" could not be loaded from application.}] test source-5.5 {source resource files} {macOnly} { testWriteTextResource -rsrcid 200 -file rsrc.file {set msg2 hello; set msg3 bye} set result [catch {source -rsrcid 200 rsrc.file} msg] removeFile rsrc.file list $msg2 $result $msg } [list hello 0 bye] test source-5.6 {source resource files} {macOnly} { testWriteTextResource -rsrcid 200 -file rsrc.file {set msg2 hello; error bad; set msg3 bye} set result [catch {source -rsrcid 200 rsrc.file} msg] removeFile rsrc.file list $msg2 $result $msg } [list hello 1 bad] test source-6.1 {source is binary ok} { set x {} makeFile [list set x "a b\0c"] source.file source source.file string length $x } 5 catch {removeFile source.file} # Generate null final value concat {}