2014-03-10 11:19:52 +00:00
|
|
|
|
# Tested for nova 64bit solely.
|
|
|
|
|
assert_spec 64bit
|
|
|
|
|
|
2014-02-12 12:53:42 +00:00
|
|
|
|
set use_vdi 1
|
|
|
|
|
set use_iso 0
|
|
|
|
|
set vdi_image "win7.vdi"
|
|
|
|
|
|
|
|
|
|
set config_of_app {
|
|
|
|
|
<start name="vbox-auto-test-helper">
|
|
|
|
|
<resource name="RAM" quantum="10M"/>
|
|
|
|
|
<route>
|
|
|
|
|
<service name="File_system"> <child name="rump_fs"/> </service>
|
|
|
|
|
<any-service> <parent/> <any-child /> </any-service>
|
|
|
|
|
</route>
|
2014-04-14 09:57:22 +00:00
|
|
|
|
<config>
|
|
|
|
|
<libc stdout="/dev/log" stderr="/dev/log">
|
|
|
|
|
<vfs>
|
|
|
|
|
<fs />
|
|
|
|
|
<dir name="dev"> <log/> </dir>
|
|
|
|
|
</vfs>
|
|
|
|
|
</libc>
|
|
|
|
|
</config>
|
2014-02-12 12:53:42 +00:00
|
|
|
|
</start>
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
source ${genode_dir}/ports/run/virtualbox_auto.inc
|
|
|
|
|
|
|
|
|
|
run_genode_until "vbox_auto_test_helper is done." 20
|
|
|
|
|
exec kill [exp_pid −i $spawn_id]
|
|
|
|
|
|
|
|
|
|
set config_of_app {
|
|
|
|
|
<start name="vbox">
|
|
|
|
|
<binary name="virtualbox" />
|
|
|
|
|
<resource name="RAM" quantum="2G"/>
|
|
|
|
|
<config>}
|
|
|
|
|
|
|
|
|
|
if {$use_iso} {
|
|
|
|
|
append config_of_app "
|
|
|
|
|
<image type=\"iso\" file=\"/$iso_image\"/>"
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if {$use_vdi} {
|
|
|
|
|
append config_of_app "
|
|
|
|
|
<image type=\"vdi\" file=\"/$vdi_image\" overlay=\"yes\"/>"
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
append config_of_app {
|
2014-04-14 09:57:22 +00:00
|
|
|
|
<libc stdout="/dev/log" stderr="/dev/log">
|
|
|
|
|
<vfs>
|
|
|
|
|
<fs />
|
|
|
|
|
<dir name="dev"> <log/> </dir>
|
|
|
|
|
</vfs>
|
|
|
|
|
</libc>
|
2014-02-12 12:53:42 +00:00
|
|
|
|
</config>
|
|
|
|
|
<route>
|
|
|
|
|
<service name="File_system"> <child name="rump_fs"/> </service>
|
|
|
|
|
<any-service> <parent/> <any-child /> </any-service>
|
|
|
|
|
</route>
|
|
|
|
|
</start>
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
source ${genode_dir}/ports/run/virtualbox_auto.inc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
run_genode_until "ignore resize request to 720x400" 20
|
|
|
|
|
run_genode_until "ignore resize request to 640x480" 15 $spawn_id
|
2014-03-10 11:19:52 +00:00
|
|
|
|
run_genode_until "ignore resize request to 800x600" 35 $spawn_id
|
|
|
|
|
run_genode_until "ignore resize request to 800x600" 90 $spawn_id
|
2014-02-12 12:53:42 +00:00
|
|
|
|
run_genode_until "ignore resize request to 720x400" 10 $spawn_id
|
|
|
|
|
|
|
|
|
|
puts "\nTest succeeded"
|