From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 vo/votest/tests/votable_006.cl | 44 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 vo/votest/tests/votable_006.cl

(limited to 'vo/votest/tests/votable_006.cl')

diff --git a/vo/votest/tests/votable_006.cl b/vo/votest/tests/votable_006.cl
new file mode 100644
index 00000000..0770c9f0
--- /dev/null
+++ b/vo/votest/tests/votable_006.cl
@@ -0,0 +1,44 @@
+#
+#  Print VOTable column information
+
+# Set the test description string.
+votest.descr = "TABLES support: Print VOTable column info"
+
+# 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
+reset clobber = yes
+
+# Create the output table name.
+string out
+out = "/tmp/out_006"
+if (access (out) == yes) {
+    delete (out, verify-, >& "dev$null")
+}
+;
+
+# Execute the test commands.
+print ("\nLogical Path:  data$usno-b.xml")		# logical path
+tcopy ("data$usno-b.xml", out, verb-)
+tinfo ("data$usno-b.xml,"//out)
+delete (out)
+
+print ("\nHTTP URI:  " // s1)				# remote http URI
+tcopy (s1, out, verb-)
+tinfo (s1//","//out)
+delete (out)
+
+print ("\nFile URI:  " // s2)				# file URI
+tcopy (s2, out, verb-)
+tinfo (s2//","//out)
+delete (out)
+
+print ("\nFile URI:  " // s3)				# file URI
+tcopy (s3, out, verb-)
+tinfo (s3//","//out)
+delete (out)
+
-- 
cgit