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/votable_003.cl | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 vo/votest/tests/votable_003.cl (limited to 'vo/votest/tests/votable_003.cl') diff --git a/vo/votest/tests/votable_003.cl b/vo/votest/tests/votable_003.cl new file mode 100644 index 00000000..5fe2a7b3 --- /dev/null +++ b/vo/votest/tests/votable_003.cl @@ -0,0 +1,30 @@ +# +# Get a value from a VOTable cell + +# Set the test description string. +votest.descr = "TABLES support: Get a value from a VOTable cell" + +# Convert the data$logical to a local path. +s1 = data_url // "/usno-b.xml" +s2 = "file://" // data_path // "/usno-b.xml" +s3 = "file:///localhost" // data_path // "/usno-b.xml" + + +fcache init + +# Execute the test commands. +print ("\nLogical Path: data$usno-b.xml") # logical path +tabpar ("data$usno-b.xml", "I2", 10) +print ("cell value at (I2,10) = ", tabpar.value) + +print ("\nHTTP URI: " // s1) # remote http URI +tabpar (s1, "I2", 10) +print ("cell value at (I2,10) = ", tabpar.value) + +print ("\nFile URI: " // s2) # file URI +tabpar (s2, "I2", 10) +print ("cell value at (I2,10) = ", tabpar.value) + +print ("\nFile URI: " // s3) # file URI +tabpar (s3, "I2", 10) +print ("cell value at (I2,10) = ", tabpar.value) -- cgit