mirror of
https://github.com/genodelabs/genode.git
synced 2024-12-28 09:38:53 +00:00
605a5d7df2
By using priorities, we make sure that the timer gets scheduled whenever it is able to run regardless of how much load is on the system.
327 lines
8.9 KiB
Plaintext
327 lines
8.9 KiB
Plaintext
#
|
||
# This script is used to test the shared folder support of Vbox@Genode/NOVA.
|
||
#
|
||
# Requirements to run this script:
|
||
# - hard disk with 4 primary partitions
|
||
# - on the 4. partition an ext2 filesystem is expected with following files:
|
||
# -- /win7.vdi
|
||
# -- /ram/overlay-original.vdi
|
||
#
|
||
# The overlay file must be generated beforehand, e.g.:
|
||
#
|
||
# vboxmanage showhdinfo win7.vdi
|
||
#
|
||
# to find out the size of the vdi and then to create the overlay:
|
||
#
|
||
# vboxmanage createhd --filename overlay-original.vdi --size [vdi_size] --format vdi
|
||
#
|
||
#
|
||
#
|
||
#
|
||
# The Windows image (win7.vdi) is prepared to contain a bat file with following
|
||
# content:
|
||
#
|
||
# :check
|
||
# IF EXIST E:\test.bat (GOTO start) ELSE (timeout /t 3 >nul)
|
||
# GOTO check
|
||
#
|
||
# :start
|
||
#
|
||
# call E:\test.bat
|
||
#
|
||
# This file must be configured to be autostarted by Windows, e.g change the
|
||
# value in the registry entry at
|
||
#
|
||
# HKEY_CURRENT_USER\Software/Microsoft\Windows\CurrentVersion\Run
|
||
#
|
||
# to the batch file in the Windows vdi image as described above.
|
||
#
|
||
#
|
||
# What this script does:
|
||
#
|
||
# A VM containing a Win7 image is started configured with two different
|
||
# Virtualbox fileshares (D: and E:). One contains a test file (test.bin),
|
||
# which will be copied by the Windows VM from the one file share over to the
|
||
# second one.
|
||
# On Genode side a Noux instance is running a bash shell with the two
|
||
# filesystems mounted. The shell is scripted by this script to wait for
|
||
# completion of the copy operation performed by the Windows VM. If this is
|
||
# detected, the bash scripts use sha1sum to generate hashes of the original
|
||
# test file of the one file system share and of the copy on the second file
|
||
# system share. This run scripts then compares the hashes and reports
|
||
# "Test succeeded" if they are identical.
|
||
#
|
||
# This script generates the test file out of /dev/urandom and generates a
|
||
# batch file test.bat which is placed in the shared folder for the VM. test.bat
|
||
# is invoked by the batch file running already in the Windows VM as described
|
||
# beforehand. test.bat contains the actual instructions to be performed by
|
||
# the VM - for this script to copy the test.bin file from D: to E:.
|
||
|
||
|
||
|
||
|
||
# Tested for nova 64bit solely.
|
||
assert_spec nova
|
||
assert_spec 64bit
|
||
|
||
#
|
||
# Build Noux packages only once
|
||
#
|
||
foreach pkg {bash coreutils} {
|
||
lappend_if [expr ![file exists bin/$pkg]] build_components noux-pkg/$pkg }
|
||
|
||
#
|
||
# Create .bat file to be executed by Win VM
|
||
#
|
||
set template_bat_fd [open "bin/template.bat" w]
|
||
puts $template_bat_fd {:check
|
||
IF EXIST E:\start.txt (GOTO start) ELSE (timeout /t 3 >nul)
|
||
GOTO check
|
||
|
||
:start
|
||
|
||
copy D:\test.bin E:\test.bin
|
||
copy D:\template.bat E:\done.txt
|
||
shutdown /s /t 00}
|
||
|
||
close $template_bat_fd
|
||
|
||
# Convert bat file to dos format
|
||
catch { exec unix2dos bin/template.bat }
|
||
|
||
#
|
||
# Create random test binary to be copied via shared folder of vbox
|
||
#
|
||
catch { exec dd if=/dev/urandom of=bin/test.bin bs=4096 count=8160 }
|
||
|
||
|
||
#
|
||
# Step 0: prepare overlay.vdi for a clean run of the VM
|
||
#
|
||
set config_of_app {
|
||
<start name="vbox-auto-test-helper" priority="-1">
|
||
<resource name="RAM" quantum="10M"/>
|
||
<route>
|
||
<service name="File_system"> <child name="rump_fs"/> </service>
|
||
<any-service> <parent/> <any-child /> </any-service>
|
||
</route>
|
||
<config>
|
||
<libc stdout="/dev/log" stderr="/dev/log">
|
||
<vfs>
|
||
<fs />
|
||
<dir name="dev"> <log/> </dir>
|
||
</vfs>
|
||
</libc>
|
||
</config>
|
||
</start>
|
||
}
|
||
|
||
source ${genode_dir}/repos/ports/run/virtualbox_auto.inc
|
||
|
||
run_genode_until "vbox_auto_test_helper is done." 20
|
||
exec kill [exp_pid −i $spawn_id]
|
||
|
||
|
||
|
||
#
|
||
# Step 1: prepare and start the actual VM
|
||
#
|
||
exec tar cfv bin/bash.tar -h -C bin/bash .
|
||
exec tar cfv bin/coreutils.tar -h -C bin/coreutils .
|
||
|
||
set build_components {
|
||
server/ram_fs
|
||
server/tcp_terminal drivers/nic
|
||
noux/minimal
|
||
}
|
||
|
||
set boot_modules {
|
||
ram_fs
|
||
noux libc_noux.lib.so bash.tar coreutils.tar
|
||
tcp_terminal lwip.lib.so nic_drv
|
||
test.bin template.bat
|
||
}
|
||
|
||
set config_of_app {
|
||
<start name="nic_drv" priority="-1">
|
||
<resource name="RAM" quantum="4M"/>
|
||
<provides> <service name="Nic"/> </provides>
|
||
<route>
|
||
<service name="IRQ"><child name="acpi" /></service>
|
||
<any-service> <parent /> <any-child /></any-service>
|
||
</route>
|
||
</start>
|
||
|
||
<start name="tcp_terminal" priority="-1">
|
||
<resource name="RAM" quantum="5M"/>
|
||
<provides> <service name="Terminal"/> </provides>
|
||
<config>
|
||
<policy label="noux" port="8888"/>
|
||
</config>
|
||
</start>
|
||
|
||
<start name="noux" priority="-1">
|
||
<resource name="RAM" quantum="32M" />
|
||
<config>
|
||
<fstab>
|
||
<tar name="coreutils.tar" />
|
||
<tar name="bash.tar" />
|
||
|
||
<dir name="from"> <fs label="share_from" /> </dir>
|
||
<dir name="to"> <fs label="share_to" /> </dir>
|
||
</fstab>
|
||
<start name="/bin/bash">
|
||
<env name="TERM" value="linux" />
|
||
</start>
|
||
</config>
|
||
<route>
|
||
<service name="File_system">
|
||
<if-arg key="label" value="share_from" />
|
||
<child name="ram_fs_from"/>
|
||
</service>
|
||
<service name="File_system">
|
||
<if-arg key="label" value="share_to" />
|
||
<child name="ram_fs_to"/>
|
||
</service>
|
||
<any-service> <parent/> <any-child /> </any-service>
|
||
</route>
|
||
</start>
|
||
|
||
<start name="ram_fs_from" priority="-1">
|
||
<binary name="ram_fs" />
|
||
<resource name="RAM" quantum="64M"/>
|
||
<provides><service name="File_system"/></provides>
|
||
<config>
|
||
<content>
|
||
<rom name="test.bin" />
|
||
<rom name="template.bat" />
|
||
</content>
|
||
<policy label="" root="/" writeable="no" />
|
||
</config>
|
||
</start>
|
||
|
||
<start name="ram_fs_to" priority="-1">
|
||
<binary name="ram_fs" />
|
||
<resource name="RAM" quantum="64M"/>
|
||
<provides><service name="File_system"/></provides>
|
||
<config>
|
||
<policy label="" root="/" writeable="yes" />
|
||
</config>
|
||
</start>
|
||
|
||
<start name="vbox" priority="-2">
|
||
<binary name="virtualbox" />
|
||
<resource name="RAM" quantum="1536M"/>
|
||
<config>
|
||
<share host="/from" guest="from" />
|
||
<share host="/to" guest="to" />
|
||
<image type="vdi" file="win7.vdi" overlay="yes"/>
|
||
<libc stdout="/dev/log" stderr="/dev/log">
|
||
<vfs>
|
||
<dir name="dev"> <log/> </dir>
|
||
<dir name="from"> <fs label="share_ram_fs_from"/> </dir>
|
||
<dir name="to"> <fs label="share_ram_fs_to"/> </dir>
|
||
<fs />
|
||
</vfs>
|
||
</libc>
|
||
</config>
|
||
<route>
|
||
<service name="File_system">
|
||
<if-arg key="label" value="share_ram_fs_from" />
|
||
<child name="ram_fs_from"/>
|
||
</service>
|
||
<service name="File_system">
|
||
<if-arg key="label" value="share_ram_fs_to" />
|
||
<child name="ram_fs_to"/>
|
||
</service>
|
||
<service name="File_system"> <child name="rump_fs"/> </service>
|
||
<any-service> <parent/> <any-child /> </any-service>
|
||
</route>
|
||
</start>
|
||
}
|
||
|
||
source ${genode_dir}/repos/ports/run/virtualbox_auto.inc
|
||
|
||
#
|
||
# Step 2: Read out TCP/IP address of tcp_terminal running on Genode target
|
||
#
|
||
run_genode_until {\[init -> tcp_terminal\] listening on port 8888\.\.\.} 20
|
||
set serial_id $spawn_id
|
||
|
||
regexp {\[init -> tcp_terminal\] .{1,5}got IP address [0-9]+\.[0-9]+\.[0-9]+\.[0-9]+} $output serial_ip_addr
|
||
regexp {[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+} $serial_ip_addr serial_ip_addr
|
||
|
||
#
|
||
# Step 3: Wait until Windows is up for sure
|
||
#
|
||
run_genode_until {\[init -\> vbox\].*Guest Additions capability report:.*seamless: yes, hostWindowMapping: no, graphics: yes} 300 $serial_id
|
||
|
||
|
||
#
|
||
# Step 4 : connect to Noux of the running Genode target and issue bash commands
|
||
# via netcat
|
||
#
|
||
puts "\nTest shared folder\n"
|
||
|
||
spawn netcat $serial_ip_addr 8888
|
||
set noux_id $spawn_id
|
||
|
||
run_genode_until {\[init -> tcp_terminal\] connection established} 20 $serial_id
|
||
|
||
#
|
||
# Step 5 : interact with netcat -> ... -> tcp_terminal -> Noux -> bash
|
||
#
|
||
|
||
# Windows does not like trailing zeros introduced by our ROM service.
|
||
# -> .bat script does not find labels like 'check' with zero bytes
|
||
# so - delete zero bytes
|
||
puts $noux_id "cat from/template\.bat | tr -d \"\\0\" >to/test\.bat"
|
||
|
||
# SHA1 of original file
|
||
puts $noux_id "sha1sum from/test.bin"
|
||
|
||
# Tell Windows VM to start copying
|
||
puts $noux_id "echo \"start\" > to/start\.txt"
|
||
|
||
# Wait until Windows finished copying
|
||
puts $noux_id "while \[ ! -f to/done\.txt ]"
|
||
puts $noux_id "do"
|
||
puts $noux_id "sleep 5"
|
||
puts $noux_id "done"
|
||
|
||
# Wait until VM signaled shutdown state
|
||
run_genode_until {\[init -\> vbox\].*Changing the VM state from 'POWERING_OFF' to 'OFF'} 120 $serial_id
|
||
|
||
# SHA1 of copied file
|
||
puts $noux_id "sha1sum to/test.bin"
|
||
|
||
# Wait for output of bash shell until last SHA1 sum is calculated
|
||
run_genode_until {[[:xdigit:]]+ to/test\.bin} 50 $noux_id
|
||
|
||
|
||
# cleanup created files
|
||
foreach pkg {bash coreutils} { exec rm -f bin/$pkg.tar }
|
||
exec rm -f bin/test.bin
|
||
exec rm -f bin/template.bat
|
||
|
||
|
||
#
|
||
# Step 5: Compare sha1sum of original file and of copy made by .bat file in VM
|
||
#
|
||
set sha1sum_original [regexp -inline {[[:xdigit:]]+ from/test\.bin} $output]
|
||
set sha1sum_copy [regexp -inline {[[:xdigit:]]+ to/test\.bin} $output]
|
||
set sha1sum_original [regexp -inline {[[:xdigit:]]+} $sha1sum_original]
|
||
set sha1sum_copy [regexp -inline {[[:xdigit:]]+} $sha1sum_copy]
|
||
|
||
puts -nonewline "\n$sha1sum_original ?= $sha1sum_copy --> "
|
||
if {$sha1sum_original eq ""} {
|
||
puts " empty -> no "
|
||
} else {
|
||
if {$sha1sum_original != $sha1sum_copy} {
|
||
puts "no"
|
||
} else {
|
||
puts "yes"
|
||
puts "\nTest succeeded"
|
||
}
|
||
}
|