Initial commit

1 files changed, 108 insertions, 0 deletions

diff --git a/vo/votest/tests/req_1.2.1.cl b/vo/votest/tests/req_1.2.1.cl
new file mode 100644
index 00000000..10111452
--- /dev/null
+++ b/vo/votest/tests/req_1.2.1.cl
@@ -0,0 +1,108 @@
+#
+#  Demonstrate column selection by id/name/ucd <FIELD> attribute.
+
+# Set the test description string.
+votest.descr = "Demonstrate column selection by id/name/ucd <FIELD> attribute"
+
+# 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"
+
+print ("------------------------------------------------------------------")
+print ("Req  1.2.1: Users shall be able to identify a column in a VOTable")
+print ("            by the 'id', 'name' or 'ucd' attribute of a <FIELD> or")
+print ("            by column number.")
+print ("------------------------------------------------------------------")
+
+
+fcache init
+
+int	ra_col, dec_col
+
+# Execute the test commands.
+
+unlearn ("colbyid")	; colbyid.print   = yes
+unlearn ("colbyname")	; colbyname.print = yes
+unlearn ("colbyucd")	; colbyucd.print  = yes
+
+
+########################################################################
+
+print ("\n------  Identify RA,DEC col by 'id' string  ------\n")
+
+print ("\nLogical Path:  data$usno-b.xml")		# logical path
+  colbyid ("data$usno-b.xml", "RA") | scan (ra_col)
+  colbyid ("data$usno-b.xml", "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nHTTP URI:  " // s1)				# remote http URI
+  colbyid (s1, "RA") | scan (ra_col)
+  colbyid (s1, "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nFile URI:  " // s2)				# file URI
+  colbyid (s2, "RA") | scan (ra_col)
+  colbyid (s2, "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nFile URI:  " // s3)				# file URI
+  colbyid (s3, "RA") | scan (ra_col)
+  colbyid (s3, "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+unlearn ("colbyid")
+
+
+########################################################################
+
+print ("\n------  Identify RA,DEC col by 'name' string  ------\n")
+
+print ("\nLogical Path:  data$usno-b.xml")		# logical path
+  colbyname ("data$usno-b.xml", "RA") | scan (ra_col)
+  colbyname ("data$usno-b.xml", "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nHTTP URI:  " // s1)				# remote http URI
+  colbyname (s1, "RA") | scan (ra_col)
+  colbyname (s1, "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nFile URI:  " // s2)				# file URI
+  colbyname (s2, "RA") | scan (ra_col)
+  colbyname (s2, "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nFile URI:  " // s3)				# file URI
+  colbyname (s3, "RA") | scan (ra_col)
+  colbyname (s3, "DEC") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+unlearn ("colbyname")
+
+
+########################################################################
+
+print ("\n------  Identify RA,DEC col by 'ucd' string  ------\n")
+
+print ("\nLogical Path:  data$usno-b.xml")		# logical path
+  colbyucd ("data$usno-b.xml", "POS_EQ_RA_MAIN") | scan (ra_col)
+  colbyucd ("data$usno-b.xml", "POS_EQ_DEC_MAIN") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nHTTP URI:  " // s1)				# remote http URI
+  colbyucd (s1, "POS_EQ_RA_MAIN") | scan (ra_col)
+  colbyucd (s1, "POS_EQ_DEC_MAIN") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nFile URI:  " // s2)				# file URI
+  colbyucd (s2, "POS_EQ_RA_MAIN") | scan (ra_col)
+  colbyucd (s2, "POS_EQ_DEC_MAIN") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+print ("\nFile URI:  " // s3)				# file URI
+  colbyucd (s3, "POS_EQ_RA_MAIN") | scan (ra_col)
+  colbyucd (s3, "POS_EQ_DEC_MAIN") | scan (dec_col)
+  printf ("RA,DEC are cols: %d and %d\n", ra_col, dec_col)
+
+unlearn ("colbyucd")