set use_sd_card_drv [expr [have_spec omap4] || [have_spec exynos5] || [have_spec pl180]] set use_atapi_drv [have_spec x86] if {[have_spec linux]} { puts "Run script does not support this platform"; exit } if {[expr [have_spec 64bit] && $use_atapi_drv]} { puts "ATAPI driver does not support 64 bit."; exit 0 } if {![is_qemu_available]} { puts "\nPlease setup your native sd or hard drive. Remove this fail stop"; puts "check when you have prepared your native environment.\n"; exit 0 } if {[have_spec x86]} { set qemu "qemu-system-i386" if {[have_spec 64bit]} { set qemu "qemu-system-x86_64" } set version [exec $qemu --version] set version [regexp -inline {[0-9]+\.[0-9]+\.[0-9]+} $version] if {$version >= 1.5} { puts "Atapi driver on Qemu $version known to be not working."; puts "For more details see Genode issue 827 on github"; puts stderr "Test requires 'fix for issue 827'" exit 0; } } # # Build # set build_components { core init drivers/timer test/libc_block } lappend_if [have_spec pci] build_components drivers/pci lappend_if [have_spec acpi] build_components drivers/acpi lappend_if $use_atapi_drv build_components drivers/atapi lappend_if $use_sd_card_drv build_components drivers/sd_card build $build_components create_boot_directory # # Generate config # set config { } append_if [have_spec acpi] config { } append_if [expr ![have_spec acpi] && [have_spec pci]] config { } append_if $use_atapi_drv config { } append_if $use_sd_card_drv config { } append config { } install_config $config # # Boot modules # # generic modules set boot_modules { core init timer ld.lib.so libc.lib.so test-libc_block } lappend_if [have_spec pci] boot_modules pci_drv lappend_if [have_spec acpi] boot_modules acpi_drv lappend_if $use_atapi_drv boot_modules atapi_drv lappend_if $use_sd_card_drv boot_modules sd_card_drv build_boot_image $boot_modules # # Execute test case # set disk_image "bin/test.hda" set cmd "dd if=/dev/zero of=$disk_image bs=1024 count=65536" puts "creating disk image: $cmd" catch { exec sh -c $cmd } # # Qemu # append qemu_args " -m 128 -nographic " append_if $use_atapi_drv qemu_args " -hda $disk_image -boot order=d " append_if $use_sd_card_drv qemu_args " -drive file=$disk_image,if=sd,cache=writeback " run_genode_until {.*child exited with exit value 0.*} 60 exec rm -f $disk_image puts "\nTest succeeded\n" # vi: set ft=tcl :