Changeset 27373 for branches/eam_branches/largefiles.20100314/Ohana

Timestamp:

Mar 21, 2010, 7:58:32 AM (16 years ago)

Author:

eugene

Message:

fix test

File:

• branches/eam_branches/largefiles.20100314/Ohana/src/addstar/test/relastro.dvo (modified) (7 diffs)

branches/eam_branches/largefiles.20100314/Ohana/src/addstar/test/relastro.dvo

@@ -1 +1 @@
 
 input tap.dvo
+
+# this set fails because the match radius does not equal the keep radius:
+list offset
+  0.0
+ -1.0
+  1.0
+  0.5
+  1.0
+  2.99
+end
 
 # offset values are in pixels
@@ -23 +33 @@
 macro test.relastro
 
-  tapPLAN 28
+  tapPLAN 42
 
   exec rm -rf catdir.test
@@ -29 +39 @@
   $RA = 10.0
   $DEC = 20.0
+  $dOFF = 0.15
 
   for i 0 $offset:n
@@ -45 +56 @@
   create n 0 RA[]
 
+  echo raw
   for i 0 $offset:n
-    subset dr = dR if (n % 4 == $i)
+    subset dr = dR if (n % $offset:n == $i)
     vstat -q dr
-    tapOK {abs($offset:0 - $MEAN / (3600*$cdelt) - $offset:$i) < 0.1} "raw dX $i = {$MEAN / (3600*$cdelt)}"
+    # echo $offset:0 {$MEAN / (3600*$cdelt)} $offset:$i {abs($offset:0 - $MEAN / (3600*$cdelt) - $offset:$i)} 
+    tapOK {abs($offset:0 - $MEAN / (3600*$cdelt) - $offset:$i) < $dOFF} "raw dX $i = {$MEAN / (3600*$cdelt)} : {abs($offset:0 - $MEAN / (3600*$cdelt) - $offset:$i)}"
   end
 
@@ -62 +75 @@
     $dXmean = $dXmean / $offset:n
   
+    echo objects
     for i 0 $offset:n
-      subset dr = dR if (n % 4 == $i)
+      subset dr = dR if (n % $offset:n == $i)
       vstat -q dr
   
@@ -70 +84 @@
         $dXexpect = $dXmean - $MEAN / (3600*$cdelt) - $offset:$i 
       end
-      tapOK {abs($dXexpect) < 0.1} "update objects dX $i = {$MEAN / (3600*$cdelt)}"
+      # echo $dXmean {$MEAN / (3600*$cdelt)} $offset:$i  {$dXmean - $MEAN / (3600*$cdelt) - $offset:$i}
+      tapOK {abs($dXexpect) < $dOFF} "update objects dX $i = {$MEAN / (3600*$cdelt)} : $dXexpect"
   
-      # subset ms = mag if (n % 4 == $i)
+      # subset ms = mag if (n % $offset:n == $i)
       # lim ms dr; clear; box; plot ms dr
       # cursor
@@ -81 +96 @@
     create n 0 RA[]
   
+    echo simple
     for i 0 $offset:n
-      subset dr = dR if (n % 4 == $i)
+      subset dr = dR if (n % $offset:n == $i)
       vstat -q dr
   
       $dXexpect = $MEAN / (3600*$cdelt)
-      tapOK {abs($dXexpect) < 0.1} "update simple dX $i = {$MEAN / (3600*$cdelt)}"
+      # echo {$MEAN / (3600*$cdelt)}
+      tapOK {abs($dXexpect) < $dOFF} "update simple dX $i = {$MEAN / (3600*$cdelt)}"
   
-      # subset ms = mag if (n % 4 == $i)
+      # subset ms = mag if (n % $offset:n == $i)
       # lim ms dr; clear; box; plot ms dr
       # cursor