#
# Build
#

build "core init drivers/timer test/cpu_quota"

#
# Boot image
#

create_boot_directory

install_config {
<config prio_levels="4">
	<parent-provides>
		<service name="ROM"/>
		<service name="RAM"/>
		<service name="IRQ"/>
		<service name="IO_MEM"/>
		<service name="CAP"/>
		<service name="PD"/>
		<service name="RM"/>
		<service name="CPU"/>
		<service name="LOG"/>
		<service name="SIGNAL"/>
	</parent-provides>
	<default-route>
		<any-service><parent/><any-child/></any-service>
	</default-route>

	<start name="timer">
		<resource name="RAM" quantum="10M"/>
		<provides><service name="Timer"/></provides>
	</start>

	<start name="init_1" priority="-1">
		<binary name="init"/>
		<resource name="RAM" quantum="10M"/>
		<resource name="CPU" quantum="10"/>
		<config prio_levels="2">
			<parent-provides>
				<service name="ROM"/>
				<service name="RAM"/>
				<service name="IRQ"/>
				<service name="IO_MEM"/>
				<service name="CAP"/>
				<service name="PD"/>
				<service name="RM"/>
				<service name="CPU"/>
				<service name="LOG"/>
				<service name="SIGNAL"/>
				<service name="Timer"/>
			</parent-provides>
			<default-route>
				<any-service><parent/><any-child/></any-service>
			</default-route>

			<!-- should receive 10 % of the CPU time -->
			<start name="test_slow" priority="-1">
				<binary name="test-cpu_quota"/>
				<resource name="RAM" quantum="10M"/>
				<resource name="CPU" quantum="50"/>
			</start>

		</config>
	</start>

	<start name="init_2" priority="-2">
		<binary name="init"/>
		<resource name="RAM" quantum="100M"/>
		<resource name="CPU" quantum="80"/>
		<config>
			<parent-provides>
				<service name="ROM"/>
				<service name="RAM"/>
				<service name="CPU"/>
				<service name="RM"/>
				<service name="CAP"/>
				<service name="PD"/>
				<service name="LOG"/>
				<service name="SIGNAL"/>
				<service name="Timer"/>
			</parent-provides>
			<default-route>
				<any-service><parent/></any-service>
			</default-route>

			<!-- should receive 25 % of the CPU time -->
			<start name="test_middle">
				<binary name="test-cpu_quota"/>
				<resource name="RAM" quantum="10M"/>
				<resource name="CPU" quantum="25"/>
			</start>

			<!-- should receive 65 % of the CPU time -->
			<start name="test_fast">
				<binary name="test-cpu_quota"/>
				<resource name="RAM" quantum="10M"/>
				<resource name="CPU" quantum="75"/>
			</start>

		</config>
	</start>
</config>
}

build_boot_image "core init timer test-cpu_quota"

#
# Execution
#

append qemu_args "-nographic -m 64"

run_genode_until "test.*\n.*test.*\n.*test.*\n" 60

#
# Conclusion
#

set slow_opt 0.10
set middle_opt 0.25
set fast_opt 0.65
set err 0.02

regexp {[0-9]+} [regexp -inline {slow.*[0-9]+} $output] slow_cnt
regexp {[0-9]+} [regexp -inline {middle.*[0-9]+} $output] middle_cnt
regexp {[0-9]+} [regexp -inline {fast.*[0-9]+} $output] fast_cnt
set total_cnt [expr $fast_cnt + $middle_cnt + $slow_cnt]

set slow_fac   [expr $slow_cnt /   double($total_cnt) ]
set middle_fac [expr $middle_cnt / double($total_cnt) ]
set fast_fac   [expr $fast_cnt /   double($total_cnt) ]

set failed 0
if {[expr $slow_fac > $slow_opt + $err || $slow_fac < $slow_opt - $err]} {
	set is_pc  [expr round($slow_fac * 10000) / 100]
	set opt_pc [expr round($slow_opt * 10000) / 100]
	puts stderr "Error: Slow counter received $is_pc% of the CPU time."
	puts stderr "       Should receive $opt_pc%."
	set failed 1
}
if {[expr $middle_fac > $middle_opt + $err || $middle_fac < $middle_opt - $err]} {
	set is_pc  [expr round($middle_fac * 10000) / 100]
	set opt_pc [expr round($middle_opt * 10000) / 100]
	puts stderr "Error: Middle counter received $is_pc% of the CPU time."
	puts stderr "       Should receive $opt_pc%."
	set failed 1
}
if {[expr $fast_fac > $fast_opt + $err || $fast_fac < $fast_opt - $err]} {
	set is_pc  [expr round($fast_fac * 10000) / 100]
	set opt_pc [expr round($fast_opt * 10000) / 100]
	puts stderr "Error: Fast counter received $is_pc% of the CPU time."
	puts stderr "       Should receive $opt_pc%."
	set failed 1
}
if {$failed} {
	exit -1
} else {
	puts "Test succeeded"
}