Repatch (from linux) of OSX IRAF

1 files changed, 36 insertions, 0 deletions

diff --git a/vo/votest/tests/req_4.5.cl b/vo/votest/tests/req_4.5.cl
new file mode 100644
index 00000000..a35ace57
--- /dev/null
+++ b/vo/votest/tests/req_4.5.cl
@@ -0,0 +1,36 @@
+#
+#  Select DAL results for download.
+
+# Set the test description string.
+votest.descr = "Select DAL results for download"
+
+print ("------------------------------------------------------------------")
+print ("Req  4.5:  Users shall be able to select which data returned by a")
+print ("	   DAL service query is to be downloaded to local disk.")
+print ("------------------------------------------------------------------")
+
+
+fcache init
+
+# Execute the test commands.
+
+string  ofn1, ofn2
+
+ofn1 = mktemp ("tmp$req45")
+ofn2 = mktemp ("tmp$req45") // ".fits"
+
+# Get an SIA service result.
+getimg ("dss", "m83", size=0.1, output=ofn1, format="raw")
+
+# Select only the FITS data.  Note the use of the column name here
+# implies some knowledge of the table schema.
+tselect (ofn1, ofn2, expr="Format ?= 'fits'")
+
+# Print the URLs we would like to download.
+tdump (ofn2, columns="URL", cdfile="",  pfile="",  datafile="STDOUT")
+
+# Clean up.
+delete (ofn1, verify-, >& "dev$null")
+delete (ofn2, verify-, >& "dev$null")
+
+