Add various test scripts

- also useful for normal debugging, not just PM

9 files changed, 272 insertions, 0 deletions

diff --git a/scripts/README b/scripts/README
new file mode 100644
index 0000000..915df06
--- /dev/null
+++ b/scripts/README
@@ -0,0 +1,24 @@
+This directory contains some scripts used for bug hunting, general testing
+of Litmus and LibLitmus, Preemption and Migration overhead measurements etc.
+
+When you add a script, please also add a brief description of the script here.
+
+pm_test_script:
+        main preemption and migration testing script; can iterate on
+        multiple WSS and multiple plugins. Some assumtion on filenames and
+        taskset filenames are made. More information direcly in the script.
+
+pm_test_single_taskset*:
+        preemption and migration test scripts. Mainly for debugging / bug hunting
+
+test_find:
+        test script which spawns "find" tasks (which suspend frequently).
+        Mainly for debugging / bug hunting
+
+uni1_050_0.ts:
+        taskset used by pm_test_single_taskset* and test_find (this ts is one of the
+        smallest ts used by John and Bjoern for preemption and migration evaluation
+        on Niagara
+
+test_get_arrays.py:
+        simple python test to verify C to Python PM interface
diff --git a/scripts/pm_test_script b/scripts/pm_test_script
new file mode 100755
index 0000000..c76947b
--- /dev/null
+++ b/scripts/pm_test_script
@@ -0,0 +1,79 @@
+#!/bin/bash
+#
+# pm_test_script:
+#       Batch script for running (all?) pm benchmarking experiments.
+#       Run it as root!
+#
+#       Original script by John Calandrino 2008
+#       Changes by Andrea Bastoni 2010
+#
+# Distribution A can be in "PFAIR" "GSN-EDF" "C-EDF" "PSN-EDF";
+
+launchpolluter()
+{
+        NCPU=`cat /sys/devices/system/cpu/present | cut -d - -f 2`
+
+        for i in `seq 0 $NCPU`;
+        do
+                taskset -pc $i ./pm_polluter &
+        done
+}
+
+run_taskset()
+{
+        rm -f curr_taskset
+        cat $1 | sed "s/task //" | sed "s/\#.*//" | sed "/^$/d" >> curr_taskset
+        # Read task set from some source and start all tasks.
+        TASK=0
+        while read inputline;
+        do
+                e=`echo $inputline | awk -F' ' '{print $1}'`
+                p=`echo $inputline | awk -F' ' '{print $2}'`
+                ./rt_launch -w $e $p ./pm_task "./$2/res_plugin=`expr $A`_wss=`expr $W`_tss=`expr $X`_`expr $Y`_`expr $TASK`.raw"
+                TASK=`expr $TASK + 1`
+        done < ./curr_taskset
+        echo "($A, $W, $X, $Y)"
+        # try to see if this solves the problem of the task which is not released at every run
+        # speculation: not properly set up when release put it in the queue
+        sleep 5
+        ./release_ts -d 3000
+        # launchpolluter
+        # Sleep for 150 seconds. This includes ~60 seconds
+        # of run time followed by 90 seconds of "tear down" time. (to save files)
+        # NOTE: may need to sleep longer than this...
+        sleep 150
+        sync
+        # killall pm_be_polluter
+        # sleep 2
+        killall pm_task
+        sleep 1
+        killall rt_launch
+}
+
+for A in "GSN-EDF";
+do
+        echo "Setting plugin $A..."
+        ./setsched $A
+        sleep 1
+
+        for W in 1024;
+        do
+                echo "Experiments for WSS of `expr $W`KB"
+                scons ARCH=x86_64 WSS=$W
+                sleep 1
+
+                SET1=$(echo `seq 10 10 40`)
+                SET2=$(echo `seq 50 25 125`)
+                SET3=$(echo `seq 150 50 250`)
+                for X in $SET1 $SET2 $SET3; # Number of tasks
+                do
+                        for Y in `seq 0 9`; # Taskset number
+                        do
+                                run_taskset "`expr ../$A`-ts/ts-uni_light-`expr $X`-`expr $Y`.ts" "pm_raw_results"
+                        done
+                done
+        done
+        DATE=`date +%Y%m%d-%H%M`
+        mkdir pm_raw_results/$DATE
+        mv pm_raw_results/*.raw pm_raw_results/$DATE
+done
diff --git a/scripts/pm_test_single_taskset b/scripts/pm_test_single_taskset
new file mode 100755
index 0000000..232dc3b
--- /dev/null
+++ b/scripts/pm_test_single_taskset
@@ -0,0 +1,12 @@
+#!/bin/bash
+rm -f res-*.bin
+TASK=0
+while read inputline;
+do
+        e=`echo $inputline | awk -F' ' '{print $1}'`
+        p=`echo $inputline | awk -F' ' '{print $2}'`
+        c=`echo $inputline | awk -F' ' '{print $3}'`
+        ./rt_launch -w $e $p -p $c ./pm_task ./res-$TASK.bin
+        TASK=`expr $TASK + 1`
+done < uni1_050_0.ts
+./release_ts -d 5000
diff --git a/scripts/pm_test_single_taskset_mtimes_long b/scripts/pm_test_single_taskset_mtimes_long
new file mode 100755
index 0000000..1b8100d
--- /dev/null
+++ b/scripts/pm_test_single_taskset_mtimes_long
@@ -0,0 +1,8 @@
+#!/bin/bash
+for i in `seq 0 200` ; do
+                echo -n "$i) ";
+                ./test_single_taskset ;
+                sleep 100;
+                cat res-*.bin >> result-all-$i.bin
+done
+
diff --git a/scripts/pm_test_single_taskset_mtimes_short b/scripts/pm_test_single_taskset_mtimes_short
new file mode 100755
index 0000000..0ae2093
--- /dev/null
+++ b/scripts/pm_test_single_taskset_mtimes_short
@@ -0,0 +1,8 @@
+#!/bin/bash
+for i in `seq 0 100` ; do
+                echo -n "$i) ";
+                ./test_single_taskset ;
+                sleep 20;
+                cat res-*.bin >> result-all-$i.bin
+done
+
diff --git a/scripts/test_find b/scripts/test_find
new file mode 100755
index 0000000..003cbb4
--- /dev/null
+++ b/scripts/test_find
@@ -0,0 +1,15 @@
+#!/bin/bash
+#
+# test_find: stress test with lot of suspending tasks
+#            main purpose: bug hunting
+
+TASK=0
+while read inputline;
+do
+        e=`echo $inputline | awk -F' ' '{print $1}'`
+        p=`echo $inputline | awk -F' ' '{print $2}'`
+        c=`echo $inputline | awk -F' ' '{print $3}'`
+        ./rt_launch -w $e $p -p $c find /
+        TASK=`expr $TASK + 1`
+done < uni1_050_0.ts-psn-edf
+./release_ts -d 5000
diff --git a/scripts/test_get_arrays.py b/scripts/test_get_arrays.py
new file mode 100644
index 0000000..cfe9fa7
--- /dev/null
+++ b/scripts/test_get_arrays.py
@@ -0,0 +1,26 @@
+#!/usr/bin/python
+#
+# test_get_arrays: test program to verify and test C to Python pm interface
+#
+# recall: PYTHONPATH=".." python test_get_arrays.py :)
+#
+import sys, pm
+
+args = sys.argv[1:]
+if len(args) != 1:
+    print "Filename required"
+    sys.exit(-1)
+
+pm.load(args[0],0,4)
+x = pm.getPreemption()
+y = pm.getOnChipMigration()
+z = pm.getL2Migration()
+w = pm.getOffChipMigration()
+print "preemption: "
+print x
+print "samechip:"
+print y
+print "l2:"
+print z
+print "offchip"
+print w
diff --git a/scripts/uni1_050_0.ts b/scripts/uni1_050_0.ts
new file mode 100644
index 0000000..b6768d8
--- /dev/null
+++ b/scripts/uni1_050_0.ts
@@ -0,0 +1,50 @@
+7 75 0
+2 34 0
+1 78 0
+7 86 0
+1 22 0
+1 12 0
+3 63 0
+4 37 0
+8 89 0
+4 58 0
+1 50 0
+6 52 0
+4 68 0
+3 80 0
+4 49 0
+1 30 0
+2 63 0
+1 14 0
+1 12 0
+2 61 0
+4 58 0
+1 41 0
+6 53 0
+4 37 0
+8 99 0
+1 33 0
+1 79 0
+7 75 0
+1 27 0
+3 38 0
+3 54 0
+2 24 0
+1 32 0
+1 82 0
+6 79 0
+4 48 0
+3 65 0
+7 83 0
+2 95 0
+2 13 0
+1 21 0
+4 78 0
+3 65 0
+6 97 0
+2 92 0
+4 37 0
+1 67 0
+7 93 0
+3 57 0
+2 71 0
diff --git a/scripts/uni1_050_0.ts-psn-edf b/scripts/uni1_050_0.ts-psn-edf
new file mode 100644
index 0000000..d4bd8e0
--- /dev/null
+++ b/scripts/uni1_050_0.ts-psn-edf
@@ -0,0 +1,50 @@
+7 75 0
+2 34 1
+1 78 2
+7 86 3
+1 22 4
+1 12 5
+3 63 6
+4 37 7
+8 89 0
+4 58 1
+1 50 2
+6 52 3
+4 68 4
+3 80 5
+4 49 6
+1 30 7
+2 63 0
+1 14 1
+1 12 2
+2 61 3
+4 58 4
+1 41 5
+6 53 6
+4 37 7
+8 99 0
+1 33 1
+1 79 2
+7 75 3
+1 27 4
+3 38 5
+3 54 6
+2 24 7
+1 32 0
+1 82 1
+6 79 2
+4 48 3
+3 65 4
+7 83 5
+2 95 6
+2 13 7
+1 21 0
+4 78 1
+3 65 2
+6 97 3
+2 92 4
+4 37 5
+1 67 6
+7 93 7
+3 57 0
+2 71 1