Changeset 40772

Timestamp:

Jun 1, 2019, 10:28:14 AM (7 years ago)

Author:

eugene

Message:

adding tests for mem leaks

Location:

branches/eam_branches/ohana.20190329/src/opihi

Files:

• cmd.basic/test/if.sh (modified) (1 diff)
• cmd.basic/test/macro.sh (modified) (2 diffs)
• cmd.data/test/cut.sh (modified) (1 diff)
• cmd.data/test/set.sh (added)
• cmd.data/test/vsigmoid.sh (modified) (1 diff)
• cmd.data/test/vstat.sh (added)
• mana/deimos_mkobj.c (modified) (2 diffs)
• mana/test (added)
• mana/test/deimos_fitprofile.sh (added)
• mana/test/deimos_fitslit.sh (added)
• mana/test/deimos_mkalt.sh (added)
• mana/test/deimos_mkobj.sh (added)
• mana/test/deimos_mkslit.sh (added)

branches/eam_branches/ohana.20190329/src/opihi/cmd.basic/test/if.sh

@@ -320 +320 @@
  end
 end
+
+# check memleaks
+macro memtest1
+
+ local a b i N
+
+ $i = 0
+ $a = 1
+
+ memory check
+ output /dev/null 
+ for i 0 1000
+   if ($a == 1)
+    echo "run"    
+   end
+ end    
+ output stdout
+ memory check
+end
+
+# check memleaks
+macro memtest2
+
+ local a b i N
+
+ $i = 0
+ $a = 1
+ $b = 2
+
+ memory check
+ output /dev/null
+ for i 0 1000
+   if (($a == 1) && ($b == 2))
+    echo "run"    
+   end
+ end    
+ output stdout
+ memory check
+end
+
+# memory test using continue
+macro memtest3
+
+ local a b i N
+
+ $i = 0
+ $a = 1
+ $b = 2
+
+ memory check
+ output /dev/null
+ for i 0 1000
+   if (($a == 1) && ($b == 2))
+    continue
+    echo "run"    
+   end
+ end    
+ output stdout
+ memory check
+end
+
+# memory test using continue
+macro memtest4
+
+ local a b i N bool
+
+
+ $i = 0
+ $a = 1
+ $b = 2
+ $bool = 0
+
+ memory check
+ output /dev/null
+ for i 0 1000
+   $bool = (($a == 1) && ($b == 2))
+ end    
+ output stdout
+ memory check
+end

branches/eam_branches/ohana.20190329/src/opihi/cmd.basic/test/macro.sh

@@ -7 +7 @@
 # Is the macro working?
 macro test_prep
+ $test_var1 = check1
+ $test_var2 = check2
+ $var_count = $0
+end
+
+# Is the macro working?
+macro test_local
+ local test_var test_var2 var_count
+
  $test_var1 = check1
  $test_var2 = check2
@@ -47 +56 @@
  end
 end
+
+# Memory Test for macro
+macro memtest2
+
+ $i = 0
+ test_prep
+
+ memory check
+ for i 0 10000
+  test_prep
+ end    
+ memory check
+  
+end
+
+# Memory Test for macro
+macro memtest3
+
+ $i = 0
+ test_local
+
+ memory check
+ for i 0 10000
+  test_local
+ end    
+ memory check
+  
+end

branches/eam_branches/ohana.20190329/src/opihi/cmd.data/test/cut.sh

@@ -37 +37 @@
  end
 end
+
+macro memtest1
+
+ $i = 0
+ mcreate tim 100 100
+ cut tim xdir imx X 40 4 60 6
+ # do one to set up memory that should stay used
+
+ memory check
+ for i 0 100
+   cut tim xdir imx X 40 4 60 6
+ end
+ memory check
+   
+ for i 0 100
+   cut tim xdir imx y 40 4 60 6
+ end
+ memory check
+   
+ for i 0 100
+   cut -median tim xdir imx X 40 4 60 6
+ end
+ memory check
+   
+ for i 0 100
+   cut -median tim xdir imx y 40 4 60 6
+ end
+ memory check
+   
+ for i 0 100
+   cut -mean tim xdir imx X 40 4 60 6
+ end
+ memory check
+   
+ for i 0 100
+   cut -mean tim xdir imx y 40 4 60 6
+ end
+ memory check
+   
+end

branches/eam_branches/ohana.20190329/src/opihi/cmd.data/test/vsigmoid.sh

@@ -217 +217 @@
  end
 end
+
+macro memtest1
+
+ create x -10 10 0.1
+ set y = 0 + 5 / (1 + exp((x - 3)/4))
+
+ $C0 = 1
+ $C1 = 2
+ $C2 = 10
+ $C3 = 1
+ set dy = sqrt(y)
+ set yfit = zero(y)
+
+ $i = 0
+
+ memory check
+ for i 0 1000
+   vsigmoid -q x y dy yfit
+ end
+ memory check
+   
+end
+
+macro memtest2
+
+ create x -10 10 0.1
+ set y = 0 + 5 / (1 + exp((x - 3)/4))
+
+ $C0 = 1
+ $C1 = 2
+ $C2 = 10
+ $C3 = 1
+ set dy = sqrt(y)
+ set yfit = zero(y)
+
+ $i = 0
+
+ memory check
+ for i 0 1000
+   vsigmoid -q -r x y dy yfit
+ end
+ memory check
+   
+end
+

branches/eam_branches/ohana.20190329/src/opihi/mana/deimos_mkobj.c

@@ -86 +86 @@
     Nwave = atoi (argv[N]);
     remove_argument (N, &argc, argv);
+  }
+
+  int VERBOSE = FALSE;
+  if ((N = get_argument (argc, argv, "-v"))) {
+    remove_argument (N, &argc, argv);
+    VERBOSE = TRUE;
   }
 
@@ -200 +206 @@
       dxr = 1 - dxf;
       Npof += dxi;
-      if (iy % 200 == 0) { fprintf (stderr, "%d : %f : %d : %f %f\n", iy, dx, dxi, dxf, dxr); }
+      if (VERBOSE && (iy % 200 == 0)) { gprint (GP_ERR, "%d : %f : %d : %f %f\n", iy, dx, dxi, dxf, dxr); }
     }