[pkg-kolab] r1401 - pkg-kolab_testsuite

[Mathieu Parent]

Author: sathieu
Date: 2009-11-15 22:23:00 +0000 (Sun, 15 Nov 2009)
New Revision: 1401

Modified:
   pkg-kolab_testsuite/testsuite
Log:
Prepare for Expect


Modified: pkg-kolab_testsuite/testsuite
===================================================================
--- pkg-kolab_testsuite/testsuite	2009-11-15 22:11:08 UTC (rev 1400)
+++ pkg-kolab_testsuite/testsuite	2009-11-15 22:23:00 UTC (rev 1401)
@@ -75,6 +75,7 @@
 use Getopt::Long;
 use Pod::Usage;
 
+use Expect;
 use UUID;
 use Sys::Virt;
 
@@ -179,6 +180,17 @@
         "| grep -v '^TAP version' | grep -v '^1..' | grep -v '^ok '");
 }
 
+#-------------------------------------------------------
+sub console_create
+{
+    my $domid = shift;
+    my $domname = shift;
+    my $domip = domain_ip($domid, $domname);
+    
+    $Expect::Log_Stdout = 0;
+    return Expect->spawn("ssh -i '".$config{'storagepooldir'}."/key' root\@$domip")
+}
+
 #=======================================================
 # Actions
 #-------------------------------------------------------