Context Navigation

Changeset 10311

Timestamp:

Nov 30, 2006, 9:02:30 AM (20 years ago)

Author:

eugene

Message:

updated tests from mark pitts

Location:

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

Files:

-              r6265
+              r10311
 list tests
  test1
+ test2
 end
 …
 end
+# i have no idea how to test pwd automatically
+# test that pwd output is correct
+macro test2
+ $PASS = 1
+ exec touch foo.test
+ pwd -var testdir
+ file $testdir\/foo.test exists
+ if ($exists != 1)
+  $PASS = 0
+ end
+ exec rm foo.test
+end

-              r6265
+              r10311
 macro test1
  $PASS = 1
  date var
+ date -var var
  if ($STATUS == 0)
    $PASS = 0
 …
 macro test2
  $PASS = 1
  date date1
+ date -var date1
  $date2 = `date`
  list w1 -split $date1

r6265	r10311
4	4	end
5	5
6		# test that ~~config does not return an error~~
	6	# test that echo actually echoes
7	7	macro test1
8	8	$PASS = 1

-              r9472
+              r10311
    end
   end
+  $PASS = 1
   if (($i != 30) || ($N != 31))
 …
  $endmem = $word:1
+ $PASS = 1
  if ($endmem - $startmem > 10)
    $PASS = 0
 …
  $endmem = $word:1
+ $PASS = 1
  if ($i != 9999)
    $PASS = 0

-              r9197
+              r10311
  $endmem = $word:1
  if ("$endmem - $startmem" < 10)
+ if ($endmem - $startmem < 10)
    $PASS = 1
  else
    $PASS = 0
+   echo growth: {$endmem - $startmem}
+   echo kB/loop: {($endmem - $startmem)/1000}
  end
 end

-              r6265
+              r10311
 end
 # test that config does not return an error
+# index test
 macro test1
  $PASS = 1
 …
 end
 # test that config does not return an error
+# null test
 macro test2
  $PASS = 1
  getchr "a long string.string" a var
  if ($var != 0)
+ getchr "a long string.string" x var
+ if ($var != -1)
    $PASS = 0
  end

-              r9197
+              r10311
  test10
  test11
+ test12
+ test13
+ test14
 end
 …
+# basic logical test
+macro test11
+ local a b
+ $a = 1
+ $b = 2
+ if (($a <= 0) || ($b >= 3))
+   $PASS = 0
+ else
+   $PASS = 1
+ end
+end
+# basic logical test
+macro test12
+ local a
+ $a = 1
+ if ($a != 1)
+   $PASS = 0
+ else
+   $PASS = 1
+ end
+end
 # check memleaks
 macro test11
+macro test13
  local a b i N
 …
  end
 end
+# memory test using break
+macro test14
+ local a b i N
+ list word -x "ps -p $PID -o rss"
+ $startmem = $word:1
+ output /dev/null
+ $a = 1
+ $b = 2
+ for i 0 10000
+   if (($a == 1) && ($b == 2))
+    break
+    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)/10000}"
+ end
+end

-              r9360
+              r10311
 list tests
  test1
+ test2
  testmem1
  testmem2
 …
 end
+# test subtraction
 macro test1
+  $PASS = 1
   local i
 …
 end
+# test addition, division, and multiplication
+macro test2
+ $PASS = 1
+ local a b c
+ $a = {2 + 4}
+ $b = {12 / 2}
+ $c = {2 * 3}
+ if (($a != 6) || ($b != 6) || ($c != 6))
+   $PASS = 0
+   echo "ALL VALUES NOT 6: a=$a\ b=$b\ c=$c\"
+ end
+end
 # check memleaks (set global)
 macro testmem1
+ $PASS = 1
  local i
 …
 macro testmem2
+ $PASS = 1
  local i N
 …
  for i 0 10000
    $N = 99 - 98
+   $N = 1 + 1
+   $N = 2 * 2
+   $N = 22/7
  end
  output stdout
 …
 macro testmem3
+ $PASS = 1
  local i N
 …
 macro testmem4
+ $PASS = 1
  local i N

-              r6231
+              r10311
 list tests
  test1
+ test2
+ test3
+ test4
+ memtest1
 end
+# Does sprintf work?
 macro test1
+ sprintf line "test %03d" 50
+ if ("$line" == "test 050")
+   $PASS = 1
+ else
+   $PASS = 0
+ $PASS = 1
+ local test_var
+ sprint test_var "%7s %5.2f %9.3e" float 34.5 12630000
+ if ("$test_var" != "  float 34.50 1.263e+07")
+  $PASS = 0
  end
 end
+macro test2
+ sprintf line "test %6.3f" 123.45678
+ if ("$line" == "test 123.457")
+   $PASS = 1
+ else
+# Memory test
+macro memtest1
+ local i
+ list word -x "ps -p $PID -o rss"
+ $startmem = $word:1
+ for i 0 10000
+  sprint test_var "%7s %5.2f %9.3e" float 34.5 12630000
+ end
+ list word -x "ps -p $PID -o rss"
+ $endmem = $word:1
+ $PASS = 1
+ if ($endmem - $startmem > 10)
    $PASS = 0
+   echo "growth: {$endmem-$startmem}"
+   echo "kB/loop: {($endmem-$startmem)/10000}"
  end
 end
-macro test3
- sprintf line "test %x" 32
- if ("$line" == "test 20")
-   $PASS = 1
- else
-   $PASS = 0
- end
-end
-macro test4
- sprintf line "test %10s" foobar
- if ("$line" == "test     foobar")
-   $PASS = 1
- else
-   $PASS = 0
- end
-end

-              r9197
+              r10311
  test12
  test13
+ test14
  testmem1
  testmem2
 …
 end
+#
+# do math expressions assign the correct value (test2 -> test8)
 macro test2
 …
 end
-# do we loop up in small steps correctly?
 macro test3
 …
 end
-# do we loop down in small steps correctly?
 macro test4
 …
 end
-# do we loop down in small steps correctly?
 macro test5
 …
 end
-# do we loop down in small steps correctly?
 macro test6
 …
 end
 # do we loop down in small steps correctly?
+# testing operation priority
 macro test7
   local i
+  local i j
   $i = 2 - 3*2
+ if ($i == -4)
+  $j = 10/2*5+5
+ if (($i == -4) && ($j == 30))
+   $PASS = 1
+ else
+   $PASS = 0
+   echo "i: $i\ j: $j"
+ end
+end
+# testing math on negative numbers
+macro test8
+  local i
+  $i = -2 - -3
+ if ($i == 1)
    $PASS = 1
  else
 …
 end
+# do we loop down in small steps correctly?
+macro test8
+  local i
+  $i = -2 - -3
+ if ($i == 1)
+   $PASS = 1
+ else
+   $PASS = 0
+   echo "i: $i"
+ end
+end
+# do we loop down in small steps correctly?
+# testing the existance of variables
 macro test9
 …
 end
+# test local variables
+macro test14
+ $PASS = 1
+ if (($?i == 1) || ($?N == 1))
+  $PASS = 0
+ end
+end
 # check memleaks (set global)
 macro testmem1
 …
  end
 end

Note: See TracChangeset for help on using the changeset viewer.