# # \brief Test for using netperf # \author Alexander Boettcher # \date 2013-04-18 # if {[have_include "power_on/qemu"]} { puts "\nNetperf running on Qemu is not recommended.\n" exit } if {[have_spec hw_odroid_xu] || [have_spec hw_wand_quad]} { puts "Run script does not support this platform." exit 0 } if {![info exists use_usb_driver]} { set use_usb_driver [expr [have_spec omap4] || [have_spec arndale] || [have_spec rpi]] } set use_nic_driver [expr !$use_usb_driver && ![have_spec imx53] && !$use_wifi_driver] if {[expr !$use_usb_driver && !$use_nic_driver && !$use_wifi_driver]} { puts "Run script is not supported on this platform."; exit 0 } # provide wifi related variables in case we do not use the wifi driver if {!$use_wifi_driver} { set wifi_ssid "" set wifi_psk "" } # # Build # set version "2.6.0" # sanity check that the right version is used set wrong_version [catch { spawn netperf-$version -V expect { {Netperf version 2.6.0} { } eof { return } timeout { return } } }] if {$wrong_version} { puts -nonewline "\nPlease compile a netperf client of version $version " puts "for your host system." puts "The sources are available in 'ports/contrib/netperf'." puts "Please name the binary netperf-$version\n" exit 1; } # netperf configuration set packet_size 1024 set netperf_tests "TCP_STREAM TCP_MAERTS" # start run script generation if {$use_usb_driver} { set network_driver "usb_drv" } if {$use_nic_driver} { set network_driver "nic_drv" } if {$use_wifi_driver} { set network_driver "wifi_drv" } set build_components { core init drivers/timer } append build_components " $netperf_target " lappend_if $use_nic_driver build_components drivers/nic lappend_if $use_usb_driver build_components drivers/usb lappend_if $use_nic_bridge build_components server/nic_bridge lappend_if [have_spec gpio] build_components drivers/gpio append_if $use_wifi_driver build_components { drivers/wifi server/fs_rom server/ram_fs server/report_rom lib/vfs/jitterentropy } source ${genode_dir}/repos/base/run/platform_drv.inc append_platform_drv_build_components build $build_components create_boot_directory # # Generate config # set lx_ip_addr "10.0.2.55" set config { } append_if [have_spec gpio] config { } append_if $use_nic_bridge config { } append_if [expr $use_nic_bridge && [have_spec linux]] config " " append_if $use_nic_bridge config { } append_if $use_nic_bridge config " " append_if $use_nic_bridge config { } append_if $use_usb_driver config { } append_if $use_usb_driver config " " append_if $use_usb_driver config { } append_if $use_nic_driver config { } append_if $use_wifi_driver config { } append_if $use_wifi_driver config " " append_if $use_wifi_driver config { } append_platform_drv_config append config { } append config "" append config { } append_if $use_nic_bridge config { } append config { } install_config $config # # Boot modules # # generic modules set boot_modules { core init timer ld.lib.so libc.lib.so libm.lib.so } append boot_modules " $netperf_app " append boot_modules " $netperf_stack " lappend_if $use_nic_bridge boot_modules nic_bridge # platform-specific modules lappend_if [have_spec gpio] boot_modules gpio_drv lappend_if $use_usb_driver boot_modules usb_drv lappend_if $use_nic_driver boot_modules nic_drv append_if $use_wifi_driver boot_modules { ram_fs fs_rom report_rom libcrypto.lib.so libssl.lib.so wpa_driver_nl80211.lib.so wpa_supplicant.lib.so vfs_jitterentropy.lib.so wifi.lib.so wifi_drv iwlwifi-6000-6.ucode iwlwifi-6000g2a-6.ucode iwlwifi-6000g2b-6.ucode iwlwifi-7260-8.ucode iwlwifi-7265-8.ucode } append_platform_drv_boot_modules build_boot_image $boot_modules # # Execute test case # # qemu config append qemu_args " -m 128 " append_if [have_spec x86] qemu_args " -net nic,model=e1000 " append_if [have_spec lan9118] qemu_args " -net nic,model=lan9118 " append qemu_args " -net user -redir tcp:12865::12865 -redir tcp:49153::49153 " if {[have_spec linux]} { run_genode_until {.*family AF_INET.*\n} 60 } else { run_genode_until $ip_match_string 60 } set serial_id [output_spawn_id] set force_ports "" if {[have_include "power_on/qemu"]} { set ip_addr "localhost" set force_ports "-P 49153,49153" } elseif [have_spec linux] { set ip_addr $lx_ip_addr } else { regexp $ip_match_string $output all ip_addr puts "" } # give the TCP/IP stack some time to settle down sleep 3 # start netperf client connecting to netperf server running native on Genode foreach netperf_test $netperf_tests { puts "\n---------------------------- $netperf_test -----------------------" spawn netperf-$version -H $ip_addr -P 1 -v 2 -t $netperf_test -c -C -- -m $packet_size $force_ports set netperf_id $spawn_id set spawn_id_list [list $netperf_id $serial_id] # reset output, so that we get on the second run not the result of the first set output "" run_genode_until "Segment" 60 $spawn_id_list # get throughput from netperf output set throughput [regexp -all -inline {([0-9]+[ ]+){3}[0-9]+\.[0-9]+[ ]+[0-9]+\.[0-9]+} $output] set throughput [regexp -all -inline {[0-9]+\.[0-9]+} $throughput] # calculate packets per second rate set all_bytes [regexp -all -inline {([0-9]+[ ]+){5}} $output] set all_bytes [lindex $all_bytes 0 4] set elapsed_time [regexp -all -inline {([0-9]+[ ]+){3}[0-9]+\.[0-9]+[ ]+} $output] set elapsed_time [lindex $elapsed_time 0 3] set packets_second [expr $all_bytes / $packet_size / $elapsed_time] puts "\ncalculation: overall bytes / size per packet / time = packets per second" puts -nonewline " $all_bytes Bytes / $packet_size Bytes / $elapsed_time s = " puts "[format %8.0f $packets_second] packets/s\n" # format output parseable for post proccessing scripts puts -nonewline "! PERF: $netperf_test" if {$use_nic_bridge} { puts -nonewline "_bridge" } if {$use_usb_driver} { if {![string compare $use_usb_11 "yes"]} { puts -nonewline "_uhci" } if {![string compare $use_usb_20 "yes"]} { puts -nonewline "_ohci" } if {![string compare $use_usb_30 "yes"]} { puts -nonewline "_xhci" } } puts " [lindex $throughput 1] MBit/s ok" }