2012-11-27 09:40:13 +00:00
|
|
|
build "core init test/bomb drivers/timer"
|
|
|
|
|
2015-07-15 11:56:31 +00:00
|
|
|
set timeout 240
|
|
|
|
set rounds 20
|
|
|
|
|
|
|
|
|
|
|
|
if {[have_include "power_on/qemu"]} {
|
|
|
|
append qemu_args "-nographic -m 128"
|
|
|
|
} else {
|
|
|
|
# foc is really slow on native hardware executing this test - limit rounds
|
|
|
|
if {[have_spec foc_x86_32]} { set rounds 6 }
|
|
|
|
if {[have_spec foc_x86_64]} { set rounds 6 }
|
|
|
|
}
|
2012-11-27 09:40:13 +00:00
|
|
|
|
2015-07-15 11:56:31 +00:00
|
|
|
set config {
|
2013-02-20 13:49:16 +00:00
|
|
|
<config prio_levels="2">
|
|
|
|
<parent-provides>
|
|
|
|
<service name="ROM"/>
|
|
|
|
<service name="RAM"/>
|
|
|
|
<service name="IRQ"/>
|
|
|
|
<service name="IO_MEM"/>
|
|
|
|
<service name="IO_PORT"/>
|
|
|
|
<service name="PD"/>
|
|
|
|
<service name="RM"/>
|
|
|
|
<service name="CPU"/>
|
|
|
|
<service name="LOG"/>
|
|
|
|
</parent-provides>
|
|
|
|
<default-route>
|
|
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
|
|
</default-route>
|
|
|
|
<start name="timer">
|
2015-07-15 11:56:31 +00:00
|
|
|
<resource name="CPU" quantum="10"/>
|
2015-07-02 12:24:51 +00:00
|
|
|
<resource name="RAM" quantum="1M"/>
|
2013-02-20 13:49:16 +00:00
|
|
|
<provides><service name="Timer"/></provides>
|
|
|
|
</start>
|
2015-07-02 12:24:51 +00:00
|
|
|
<start name="bomb-master" priority="-1">
|
|
|
|
<binary name="bomb"/>
|
2015-07-15 11:56:31 +00:00
|
|
|
<resource name="CPU" quantum="90"/>
|
|
|
|
<resource name="RAM" quantum="2G"/>}
|
|
|
|
|
|
|
|
append config "
|
|
|
|
<config rounds=\"$rounds\" generations=\"6\" sleep=\"1500\"/>"
|
|
|
|
|
|
|
|
append config {
|
2013-02-20 13:49:16 +00:00
|
|
|
</start>
|
|
|
|
</config>}
|
2012-11-27 09:40:13 +00:00
|
|
|
|
2015-07-15 11:56:31 +00:00
|
|
|
create_boot_directory
|
2012-11-27 09:40:13 +00:00
|
|
|
|
2015-07-15 11:56:31 +00:00
|
|
|
install_config $config
|
|
|
|
|
|
|
|
build_boot_image "core init bomb timer"
|
2012-11-27 09:40:13 +00:00
|
|
|
|
2015-07-15 11:56:31 +00:00
|
|
|
run_genode_until "Done\. Going to sleep\." $timeout
|
2012-11-27 09:40:13 +00:00
|
|
|
|
2013-08-05 10:16:43 +00:00
|
|
|
puts "Test succeeded."
|