2005-11-08 Martin Hunt <hunt@redhat.com>

	* pmaps/*: Add new pmaps tests.

1 files changed, 375 insertions, 0 deletions

diff --git a/runtime/tests/pmaps/pmap.test b/runtime/tests/pmaps/pmap.test
new file mode 100644
index 00000000..a8f82506
--- /dev/null
+++ b/runtime/tests/pmaps/pmap.test
@@ -0,0 +1,375 @@
+package require tcltest
+namespace import -force tcltest::*
+
+cd $tcltest::testsDirectory
+
+set CFLAGS "-Os"
+set KPATH "/lib/modules/[exec uname -r]/build/include"
+set MPATH "/lib/modules/[exec uname -r]/build/include/asm/mach-default"
+set PATH "../../user"
+
+test ii {Test of int64 keys and int64 values} -setup {
+	puts "gcc $CFLAGS -I $KPATH -I $PATH -I $MPATH -o test ii.c"
+        exec gcc $CFLAGS -I $KPATH -I $PATH -I $MPATH -o test ii.c
+} -body {
+	exec ./test
+} -result {CPU #0
+map[2] = 1
+map[4] = 1
+
+CPU #1
+map[1] = 1
+map[2] = 11
+map[3] = 1
+map[4] = 1
+
+CPU #2
+map[1] = 2
+map[2] = 21
+map[3] = 4
+map[4] = 1
+
+CPU #3
+map[1] = 3
+map[2] = 31
+map[3] = 9
+map[4] = 1
+
+CPU #4
+map[1] = 4
+map[2] = 41
+map[3] = 16
+map[4] = 1
+
+CPU #5
+map[1] = 5
+map[2] = 51
+map[3] = 25
+map[4] = 1
+
+CPU #6
+map[1] = 6
+map[2] = 61
+map[3] = 36
+map[4] = 1
+
+CPU #7
+map[1] = 7
+map[2] = 71
+map[3] = 49
+map[4] = 1
+
+map[2] = 288
+map[4] = 8
+map[1] = 28
+map[3] = 140
+}
+
+test is {Test of int64 keys and string values} -setup {
+        exec gcc $CFLAGS -I $KPATH -I $PATH -I $MPATH -o test is.c
+} -body {
+	exec ./test
+} -result {CPU #0
+map[1] = 0,
+map[2] = 1,
+map[3] = 0,
+map[4] = 1,
+
+CPU #1
+map[1] = 1,
+map[2] = 11,
+map[3] = 1,
+map[4] = 1,
+
+CPU #2
+map[1] = 2,
+map[2] = 21,
+map[3] = 4,
+map[4] = 1,
+
+CPU #3
+map[1] = 3,
+map[2] = 31,
+map[3] = 9,
+map[4] = 1,
+
+CPU #4
+map[1] = 4,
+map[2] = 41,
+map[3] = 16,
+map[4] = 1,
+
+CPU #5
+map[1] = 5,
+map[2] = 51,
+map[3] = 25,
+map[4] = 1,
+
+CPU #6
+map[1] = 6,
+map[2] = 61,
+map[3] = 36,
+map[4] = 1,
+
+CPU #7
+map[1] = 7,
+map[2] = 71,
+map[3] = 49,
+map[4] = 1,
+
+map[2] = 1,11,21,31,41,51,61,71,
+map[4] = 1,1,1,1,1,1,1,1,
+map[1] = 0,1,2,3,4,5,6,7,
+map[3] = 0,1,4,9,16,25,36,49,
+}
+
+test si {Test of string keys and int64 values} -setup {
+        exec gcc $CFLAGS -I $KPATH -I $PATH -I $MPATH -o test si.c
+} -body {
+	exec ./test
+} -result {CPU #0
+map[TWO] = 1
+map[FOUR] = 1
+
+CPU #1
+map[ONE] = 1
+map[TWO] = 11
+map[THREE] = 1
+map[FOUR] = 1
+
+CPU #2
+map[ONE] = 2
+map[TWO] = 21
+map[THREE] = 4
+map[FOUR] = 1
+
+CPU #3
+map[ONE] = 3
+map[TWO] = 31
+map[THREE] = 9
+map[FOUR] = 1
+
+CPU #4
+map[ONE] = 4
+map[TWO] = 41
+map[THREE] = 16
+map[FOUR] = 1
+
+CPU #5
+map[ONE] = 5
+map[TWO] = 51
+map[THREE] = 25
+map[FOUR] = 1
+
+CPU #6
+map[ONE] = 6
+map[TWO] = 61
+map[THREE] = 36
+map[FOUR] = 1
+
+CPU #7
+map[ONE] = 7
+map[TWO] = 71
+map[THREE] = 49
+map[FOUR] = 1
+
+map[FOUR] = 8
+map[TWO] = 288
+map[THREE] = 140
+map[ONE] = 28
+}
+
+test ix {Test of int64 keys and string values} -setup {
+        exec gcc $CFLAGS -I $KPATH -I $PATH -I $MPATH -o test ix.c
+} -body {
+	exec ./test
+} -result {CPU #0
+map[1] = count:1  sum:0  avg:0  min:0  max:0
+map[2] = count:1  sum:1  avg:1  min:1  max:1
+map[3] = count:1  sum:0  avg:0  min:0  max:0
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #1
+map[1] = count:1  sum:1  avg:1  min:1  max:1
+map[2] = count:1  sum:11  avg:11  min:11  max:11
+map[3] = count:1  sum:1  avg:1  min:1  max:1
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #2
+map[1] = count:1  sum:2  avg:2  min:2  max:2
+map[2] = count:1  sum:21  avg:21  min:21  max:21
+map[3] = count:1  sum:4  avg:4  min:4  max:4
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #3
+map[1] = count:1  sum:3  avg:3  min:3  max:3
+map[2] = count:1  sum:31  avg:31  min:31  max:31
+map[3] = count:1  sum:9  avg:9  min:9  max:9
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #4
+map[1] = count:1  sum:4  avg:4  min:4  max:4
+map[2] = count:1  sum:41  avg:41  min:41  max:41
+map[3] = count:1  sum:16  avg:16  min:16  max:16
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #5
+map[1] = count:1  sum:5  avg:5  min:5  max:5
+map[2] = count:1  sum:51  avg:51  min:51  max:51
+map[3] = count:1  sum:25  avg:25  min:25  max:25
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #6
+map[1] = count:1  sum:6  avg:6  min:6  max:6
+map[2] = count:1  sum:61  avg:61  min:61  max:61
+map[3] = count:1  sum:36  avg:36  min:36  max:36
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+CPU #7
+map[1] = count:1  sum:7  avg:7  min:7  max:7
+map[2] = count:1  sum:71  avg:71  min:71  max:71
+map[3] = count:1  sum:49  avg:49  min:49  max:49
+map[4] = count:1  sum:1  avg:1  min:1  max:1
+
+map[2] = count:8  sum:288  avg:36  min:1  max:71
+value |-------------------------------------------------- count
+    0 |@                                                  1
+   10 |@                                                  1
+   20 |@                                                  1
+   30 |@                                                  1
+   40 |@                                                  1
+   50 |@                                                  1
+   60 |@                                                  1
+   70 |@                                                  1
+   80 |                                                   0
+   90 |                                                   0
+
+map[4] = count:8  sum:8  avg:1  min:1  max:1
+value |-------------------------------------------------- count
+    0 |@@@@@@@@                                           8
+   10 |                                                   0
+   20 |                                                   0
+   30 |                                                   0
+   40 |                                                   0
+   50 |                                                   0
+   60 |                                                   0
+   70 |                                                   0
+   80 |                                                   0
+   90 |                                                   0
+
+map[1] = count:8  sum:28  avg:3  min:0  max:7
+value |-------------------------------------------------- count
+    0 |@@@@@@@@                                           8
+   10 |                                                   0
+   20 |                                                   0
+   30 |                                                   0
+   40 |                                                   0
+   50 |                                                   0
+   60 |                                                   0
+   70 |                                                   0
+   80 |                                                   0
+   90 |                                                   0
+
+map[3] = count:8  sum:140  avg:17  min:0  max:49
+value |-------------------------------------------------- count
+    0 |@@@@                                               4
+   10 |@                                                  1
+   20 |@                                                  1
+   30 |@                                                  1
+   40 |@                                                  1
+   50 |                                                   0
+   60 |                                                   0
+   70 |                                                   0
+   80 |                                                   0
+   90 |                                                   0
+
+}
+
+test map_format {Test of map formatting and histograms} -setup {
+        exec gcc $CFLAGS -I $KPATH -I $PATH -I $MPATH -o test map_format.c
+} -body {
+	exec ./test
+} -result {Columbus -> mapiis 1 2 Ohio
+Salem -> mapiis 7 8 Oregon
+Olympia -> mapiis 5 6 Washington
+Sacramento -> mapiis 3 4 California
+
+Columbus % Ohio
+Salem % Oregon
+Olympia % Washington
+Sacramento % California
+
+Columbus -> mapiis    
+Salem -> mapiis    
+Olympia -> mapiis    
+Sacramento -> mapiis    
+
+The capitol of Riga is Latvia and the nerd population is 212063400820736
+The capitol of Sofia is Bulgaria and the nerd population is -2400999087387945352
+The capitol of Nicosia is Cyprus and the nerd population is -1
+The capitol of Valletta is Malta and the nerd population is 1
+
+The capitol of Riga is Latvia and the nerd population is c0dedbad0000
+The capitol of Sofia is Bulgaria and the nerd population is deadf00d12345678
+The capitol of Nicosia is Cyprus and the nerd population is ffffffffffffffff
+The capitol of Valletta is Malta and the nerd population is 1
+
+The capitol of Riga is Latvia and the nerd population is C0DEDBAD0000
+The capitol of Sofia is Bulgaria and the nerd population is DEADF00D12345678
+The capitol of Nicosia is Cyprus and the nerd population is FFFFFFFFFFFFFFFF
+The capitol of Valletta is Malta and the nerd population is 1
+
+Bogons per packet for Riga
+count:49600  sum:3288450  avg:66  min:0  max:99
+value |-------------------------------------------------- count
+    0 |@@                                                  460
+   10 |@@@@@@@                                            1460
+   20 |@@@@@@@@@@@@                                       2460
+   30 |@@@@@@@@@@@@@@@@@@                                 3460
+   40 |@@@@@@@@@@@@@@@@@@@@@@@                            4460
+   50 |@@@@@@@@@@@@@@@@@@@@@@@@@@@@                       5460
+   60 |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@                 6460
+   70 |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@            7460
+   80 |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@       8460
+   90 |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  9460
+
+Bogons per packet for Sofia
+count:100  sum:2025  avg:20  min:0  max:81
+value |-------------------------------------------------- count
+    0 |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@         42
+   10 |@@@@@@@@@@@@@@@@@                                  17
+   20 |@@@@@@@@@@@@@                                      13
+   30 |@@@@@@@@@                                           9
+   40 |@@@@@@@@@                                           9
+   50 |@@@@                                                4
+   60 |@@@                                                 3
+   70 |@@                                                  2
+   80 |@                                                   1
+   90 |                                                    0
+
+Bogons per packet for Valletta
+count:45  sum:2850  avg:63  min:10  max:90
+value |-------------------------------------------------- count
+    0 |                                                   0
+   10 |@                                                  1
+   20 |@@                                                 2
+   30 |@@@                                                3
+   40 |@@@@                                               4
+   50 |@@@@@                                              5
+   60 |@@@@@@                                             6
+   70 |@@@@@@@                                            7
+   80 |@@@@@@@@                                           8
+   90 |@@@@@@@@@                                          9
+
+
+49600 was the count for Riga, Latvia
+100 was the count for Sofia, Bulgaria
+45 was the count for Valletta, Malta
+
+mapssx[     Riga,   Latvia] = 322D82
+mapssx[    Sofia, Bulgaria] = 7E9
+mapssx[ Valletta,    Malta] = B22}
+
+catch {exec rm test}
+
+cleanupTests