test1.tcl a basic test scratch script

scriptlib/test1.tcl

@@ -0,0 +1,32 @@
+puts -nonewline stdout "info script\r\n"
+puts stdout "[info script]"
+puts stdout "::argc"
+puts stdout $::argc
+puts stdout "::argv"
+puts stdout "$::argv"
+puts stdout "NS"
+puts stdout "[namespace current]"
+
+if {[info exists ::test]} {
+    puts stdout "::test has existing value"
+    puts stdout "$::test"
+}
+
+puts stdout "setting ::test to showargs-ran"
+set ::test "showargs-ran"
+puts stdout "doing basic check of stdin for data"
+chan configure stdin -blocking 0
+set indata ""
+if {![chan eof stdin]} {
+    #set indata [read stdin]
+}
+if {[string length $indata]} {
+    puts stdout "read from stdin:"
+    puts stdout $indata
+} else {
+puts stdout "-no stdin data read-"
+}
+
+
+
+