From 23dcbc3adee2c6ea4e6c1149ef9fc6b59de581fa Mon Sep 17 00:00:00 2001
From: Stewart Smith <stewart@linux.vnet.ibm.com>
Date: Mon, 25 May 2015 14:33:42 +1000
Subject: Refactor mambo test running

we now properly control the simulation rather than just killing off
Mambo. For boot test, we wait for petitboot and actually shut down
the simulation properly with 'halt'.

Signed-off-by: Stewart Smith <stewart@linux.vnet.ibm.com>
---
 test/hello_world/run_hello_world.sh  |  7 +++----
 test/hello_world/run_hello_world.tcl |  4 ++++
 test/run_boot_test.sh                |  9 ++++-----
 test/run_boot_test.tcl               | 16 ++++++++++++++++
 4 files changed, 27 insertions(+), 9 deletions(-)
 create mode 100644 test/hello_world/run_hello_world.tcl
 create mode 100644 test/run_boot_test.tcl

(limited to 'test')

diff --git a/test/hello_world/run_hello_world.sh b/test/hello_world/run_hello_world.sh
index f72c402..e6f4d86 100755
--- a/test/hello_world/run_hello_world.sh
+++ b/test/hello_world/run_hello_world.sh
@@ -34,14 +34,13 @@ ulimit -c 0
 ( cd external/mambo; 
 cat <<EOF | expect
 set timeout 30
-spawn $MAMBO_PATH/$MAMBO_BINARY -n -f skiboot.tcl
+spawn $MAMBO_PATH/$MAMBO_BINARY -n -f ../../test/hello_world/run_hello_world.tcl
 expect {
 timeout { send_user "\nTimeout waiting for hello world\n"; exit 1 }
 eof { send_user "\nUnexpected EOF\n;" exit 1 }
-"Hello World!"
+"ATTN"
 }
-
-close
+wait
 exit 0
 EOF
 )
diff --git a/test/hello_world/run_hello_world.tcl b/test/hello_world/run_hello_world.tcl
new file mode 100644
index 0000000..e44fe16
--- /dev/null
+++ b/test/hello_world/run_hello_world.tcl
@@ -0,0 +1,4 @@
+source ../../external/mambo/skiboot.tcl
+
+mysim go
+exit
\ No newline at end of file
diff --git a/test/run_boot_test.sh b/test/run_boot_test.sh
index 5a386a2..d1fb6d0 100755
--- a/test/run_boot_test.sh
+++ b/test/run_boot_test.sh
@@ -36,17 +36,16 @@ fi
 OLD_ULIMIT_C=`ulimit -c`
 ulimit -c 0
 
-( cd external/mambo; 
+( cd external/mambo;
 cat <<EOF | expect
 set timeout 600
-spawn $MAMBO_PATH/$MAMBO_BINARY -n -f skiboot.tcl
+spawn $MAMBO_PATH/$MAMBO_BINARY -n -f ../../test/run_boot_test.tcl
 expect {
 timeout { send_user "\nTimeout waiting for petitboot\n"; exit 1 }
 eof { send_user "\nUnexpected EOF\n;" exit 1 }
-"Welcome to Petitboot"
+"Execution stopped: Sim Support exit requested stop"
 }
-
-close
+wait
 exit 0
 EOF
 )
diff --git a/test/run_boot_test.tcl b/test/run_boot_test.tcl
new file mode 100644
index 0000000..81f2852
--- /dev/null
+++ b/test/run_boot_test.tcl
@@ -0,0 +1,16 @@
+source ../../external/mambo/skiboot.tcl
+
+proc console_trigger {response args} {
+    array set triginfo $args
+    set sim $triginfo(sim)
+    $sim trigger clear console $triginfo(match)
+
+    puts "console trigger: putting $response to console"
+    $sim console create input in string $response
+}
+
+mysim trigger set console "Welcome to Petitboot" { console_trigger "x" }
+mysim trigger set console "# "  { console_trigger "halt\n" }
+
+mysim go
+exit
\ No newline at end of file
-- 
cgit v1.1