Changeset 27141 for trunk/pstamp

Timestamp:

Mar 2, 2010, 12:20:13 PM (16 years ago)

Author:

bills

Message:

updates to a little test script

File:

• trunk/pstamp/test/test_lookup.pl (modified) (4 diffs)

trunk/pstamp/test/test_lookup.pl

@@ -19 +19 @@
 my $img_type;
 my $id;
-my $class_id;
 my $x;
 my $y;
@@ -25 +24 @@
 my $mjd_max;
 my $filter;
+my $skycell_id;
+my $tess_id;
+my $component;
+my $data_group;
+my $inverse;
+my $need_magic = 1;
 
 
@@ -33 +38 @@
     'img_type=s'=>  \$img_type,
     'id=s'      =>  \$id,
-    'class_id=s'=>  \$class_id,
+    'component=s'=>  \$component,
     'x=s'       =>  \$x,
     'y=s'       =>  \$y,
@@ -53 +58 @@
 }
 
-$class_id = "null" if !defined($class_id);
+$component = "null" if !defined($component);
 
-my $results = locate_images($ipprc, $image_db, $req_type, $img_type, $id, $class_id,
-            $x, $y, $mjd_min, $mjd_max, $filter, $verbose);
+my $results = locate_images($ipprc, $image_db, $req_type, $img_type, $id, $tess_id, $component,
+            $inverse, $need_magic, 
+            $x, $y, $mjd_min, $mjd_max, $filter, $data_group, $verbose);
 
 foreach my $i (@$results) {
-    print "${img_type}_id: $id";
+    print "${img_type}_id: $id" if $id;
     if ($i->{exp_id}) {
         print " exp_id $i->{exp_id}\n"