diff options
Diffstat (limited to 'test/run_boot_test.tcl')
| -rw-r--r-- | test/run_boot_test.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
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 |