Repatch (from linux) of OSX IRAF

1 files changed, 61 insertions, 0 deletions

diff --git a/vo/votest/tests/samp.tests/req_2.2.cl b/vo/votest/tests/samp.tests/req_2.2.cl
new file mode 100644
index 00000000..e42fa0aa
--- /dev/null
+++ b/vo/votest/tests/samp.tests/req_2.2.cl
@@ -0,0 +1,61 @@
+#
+#  Demonstrate ability to execute remote IRAF cmds via SAMP
+
+# Set the test description string.
+votest.descr = "Demonstrate ability to execute remote IRAF cmds via SAMP"
+
+print ("------------------------------------------------------------------")
+print ("Req  2.2:  Users shall be able to execute IRAF tasks and set or")
+print ("           retrieve information in/from the IRAF environment via")
+print ("           SAMP messaging from clients that implement the required")
+print ("           message types.")
+print ("------------------------------------------------------------------")
+
+
+string  res
+
+# Execute the test commands.
+print ("")
+print ("")
+print ("")
+
+
+###########################################
+#  Broadcast to all clients.
+###########################################
+
+# Remote command execution
+res = sampCmdExec ("imstat dev$pix")
+
+# Environment Set/Get
+res = sampEnvSet ("foo", "bar")
+res = sampEnvGet ("foo")
+print ("Result = " // res)
+
+# Task Parameter Set/Get
+res = sampParamSet ("imstat.images", "dev$pix")
+res = sampParamGet ("imstat.images")
+print ("Parameter = " // res)
+
+
+
+###########################################
+#  Targeted message to specific client.
+###########################################
+
+
+# Remote command execution
+res = sampCmdExec ("imstat dev$pix", 		"iraf2")
+
+# Environment Set/Get
+res = sampEnvSet ("foo", "bar", 		"iraf2")
+res = sampEnvGet ("foo", 			"iraf2")
+print ("Result = " // res)
+
+# Task Parameter Set/Get
+res = sampParamSet ("imstat.images", "dev$pix", "iraf2")
+res = sampParamGet ("imstat.images", 		"iraf2")
+print ("Parameter = " // res)
+
+
+