I have pushed my libvirt development branch to GitHub so you can see what's brewing:
https://github.com/fgouget/winetestbot/commits/libvirt or git://github.com/fgouget/winetestbot.git Note that I still rebase the libvirt branch regularly as I realize my mistakes or want to reorganize things so they make sense. So know that basing your work on my libvirt branch will be like trying to build a house on quicksand. This should settle down once WineTestBot is fully working on my test environment. For now it's not quite the case yet: it's missing the code to copy files to/from the VM and run stuff in the VM. But at least the web site works, VMs get started/reverted and I can build tests in the build VM (except for msvcp90 because of bug 30980 :-( ). It turns out that out of the ~30 patches so far only one is for libvirt. The others add documentation (the result of my trying to understand how things work), remove dead code, tweak things a bit and include the odd fix. I have attached one patch that could be worth applying to the current setup: web: Fix a couple of links to the registration page. Maarten, can you confirm that what's in Git corresponds to the code that runs the current production machines? -- Francois Gouget <[email protected]>
commit ba46e1678b5dc4852bf6f8320b0d481f56261e95 Author: Francois Gouget <[email protected]> Date: Thu Jul 12 18:55:14 2012 +0200 FIXME: Traces for the copy/run VM functions. diff --git a/lib/WineTestBot/VMs.pm b/lib/WineTestBot/VMs.pm index ce542bb..23040bf 100644 --- a/lib/WineTestBot/VMs.pm +++ b/lib/WineTestBot/VMs.pm @@ -166,6 +166,7 @@ use ObjectModel::BackEnd; use WineTestBot::Config; use WineTestBot::Engine::Notify; use WineTestBot::WineTestBotObjects; +use WineTestBot::Log; use Sys::Virt; @@ -331,29 +332,39 @@ sub PowerOff($) sub WaitForToolsInGuest($) { my $self = shift; + # FIXME: Stub return undef; } sub CopyFileFromHostToGuest($) { - my ($self) = @_; + my $self = shift; my ($HostPathName, $GuestPathName) = @_; + + LogMsg("CopyFileFromHostToGuest HostPathName=[$HostPathName] GuestPathName=[$GuestPathName]\n"); + my $ls=`ls -l '$HostPathName'`; + LogMsg("host files: $ls\n"); # FIXME: Stub return undef; } sub CopyFileFromGuestToHost($) { - my ($self) = @_; + my $self = shift; my ($GuestPathName, $HostPathName) = @_; + + LogMsg("CopyFileFromHostToGuest GuestPathName=[$GuestPathName] HostPathName=[$HostPathName]\n"); # FIXME: Stub return undef; } sub RunScriptInGuestTimeout($$$$) { - my ($self, $Interpreter, $ScriptText, $Timeout) = @_; + my $self = shift; + my ($Interpreter, $ScriptText, $Timeout) = @_; + + LogMsg("RunScriptInGuestTimeout Timeout=[$Timeout] Interpreter=[$Interpreter] ScriptText=[$ScriptText]\n"); # FIXME: Stub return undef; }
