Changeset 16894

Timestamp:

Mar 8, 2008, 11:30:10 AM (18 years ago)

Author:

eugene

Message:

minor fixes to tests to improve speed

Location:

trunk/Ohana/src/opihi/cmd.basic/test

Files:

• if.sh (modified) (6 diffs)
• list.sh (modified) (4 diffs)
• output.sh (modified) (2 diffs)
• variable.sh (modified) (1 diff)

trunk/Ohana/src/opihi/cmd.basic/test/if.sh

@@ -13 +13 @@
  test11
  test12
+ test13a
  test13
-# test14
+ test14
 end
 
@@ -201 +202 @@
 end
 
+
+# check memleaks
+macro test13a
+
+ local a b i N
+
+ list word -x "ps -p $PID -o rss"
+ $startmem = $word:1
+
+ output /dev/null
+ $a = 1
+ for i 0 1000
+   if ($a == 1)
+    echo "run"    
+   end
+ end    
+ output stdout
+  
+ list word -x "ps -p $PID -o rss"
+ $endmem = $word:1
+
+ if ({$endmem - $startmem} < 10)
+   $PASS = 1
+ else
+   $PASS = 0
+   echo "growth: {$endmem-$startmem}"
+   echo "kB/loop: {($endmem-$startmem)/1000}"
+ end
+end
 
 # check memleaks
@@ -213 +243 @@
  $a = 1
  $b = 2
- for i 0 10000
+ for i 0 1000
    if (($a == 1) && ($b == 2))
     echo "run"    
@@ -228 +258 @@
    $PASS = 0
    echo "growth: {$endmem-$startmem}"
-   echo "kB/loop: {($endmem-$startmem)/10000}"
- end
-end
-
-# memory test using break
+   echo "kB/loop: {($endmem-$startmem)/1000}"
+ end
+end
+
+# memory test using continue
 macro test14
 
@@ -243 +273 @@
  $a = 1
  $b = 2
- for i 0 10000
+ for i 0 1000
    if (($a == 1) && ($b == 2))
-    break
+    continue
     echo "run"    
    end
@@ -259 +289 @@
    $PASS = 0
    echo "growth: {$endmem-$startmem}"
-   echo "kB/loop: {($endmem-$startmem)/10000}"
- end
-end
+   echo "kB/loop: {($endmem-$startmem)/1000}"
+ end
+end
+
+# memory test using continue
+macro test15
+
+ local a b i N bool
+
+ list word -x "ps -p $PID -o rss"
+ $startmem = $word:1
+
+ output /dev/null
+ $a = 1
+ $b = 2
+ for i 0 1000
+   $bool = (($a == 1) && ($b == 2))
+ end    
+ output stdout
+  
+ list word -x "ps -p $PID -o rss"
+ $endmem = $word:1
+
+ if ({$endmem - $startmem} < 10)
+   $PASS = 1
+ else
+   $PASS = 0
+   echo "growth: {$endmem-$startmem}"
+   echo "kB/loop: {($endmem-$startmem)/1000}"
+ end
+end

trunk/Ohana/src/opihi/cmd.basic/test/list.sh

@@ -117 +117 @@
  $startmem = $word:1
 
- for i 0 1000
+ for i 0 100
   list check3 -x "ls /dev/null"
  end    
@@ -129 +129 @@
    $PASS = 0
    echo "growth: {$endmem-$startmem}"
-   echo "kB/loop: {($endmem-$startmem)/1000}"
+   echo "kB/loop: {($endmem-$startmem)/100}"
  end
 
@@ -153 +153 @@
  $startmem = $word:1
 
- for i 0 1000
+ for i 0 100
   list check4 -x "cat list_test.txt"
  end    
@@ -165 +165 @@
    $PASS = 0
    echo "growth: {$endmem-$startmem}"
-   echo "kB/loop: {($endmem-$startmem)/1000}"
+   echo "kB/loop: {($endmem-$startmem)/100}"
  end
 

trunk/Ohana/src/opihi/cmd.basic/test/output.sh

@@ -45 +45 @@
 
  output /dev/null
- for i 0 1000
+ for i 0 100
   output testout.txt
   echo "This is a test."
@@ -59 +59 @@
    $PASS = 0
    echo "growth: {$endmem-$startmem}"
-   echo "kB/loop: {($endmem-$startmem)/1000}"
+   echo "kB/loop: {($endmem-$startmem)/100}"
  end
 end

trunk/Ohana/src/opihi/cmd.basic/test/variable.sh

@@ -240 +240 @@
  $PASS = 1
 
- if (($?i == 1) || ($?N == 1))
+ # a slightly weak test: depends on no prior macros defining variables
+ # with the names below
+ if (($?very_obscure_name == 1) || ($?another_obscure_name == 1))
   $PASS = 0
  end