From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- vo/votest/tests/req_4.5.cl | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 vo/votest/tests/req_4.5.cl (limited to 'vo/votest/tests/req_4.5.cl') 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") + + -- cgit