bootstrap jimsh: pass all tests

In order to test bootstrap jimsh, it is very helpful
if it can pass all the unit tests.

- Set tcl_platform(bootstrap) to 1 for bootstrap jimsh or 0 otherwise
- Use getref to determine in we have references, not ref since we
  implement a poor-man's ref for bootstrap jimsh
- bootstrap jimsh package doesn't return a "Can't load package"
  message if loading the package fails
- exec tests using [open |command] need pipe
- bootstrap jimsh can't set file times with [file mtime]

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/package.test b/tests/package.test
index 940ed74..b8afa18 100644
--- a/tests/package.test
+++ b/tests/package.test
@@ -3,6 +3,10 @@ source [file dirname [info script]]/testing.tcl
 needs constraint jim
 needs cmd package
 
+if {[exists -proc package]} {
+	skiptest " (bootstrap jimsh)"
+}
+
 test package-1.1 {provide} -body {
 	package provide new-package-name
 	expr {"new-package-name" in [package names]}
@@ -12,5 +16,9 @@ test package-1.2 {provide, duplicate} -body {
 	package provide new-package-name
 } -returnCodes error -result {package "new-package-name" was already provided}
 
+test package-1.3 {package names} -body {
+	expr {"stdlib" in [package names]}
+} -result 1
+
 testreport