commit ba46e1678b5dc4852bf6f8320b0d481f56261e95
Author: Francois Gouget <fgouget@codeweavers.com>
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;
 }