diff options
Diffstat (limited to 'vo/votest/tests/req_1.2.1.cl')
| -rw-r--r-- | vo/votest/tests/req_1.2.1.cl | 108 |
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") |