[pkg-kolab] r1413 - pkg-kolab_testsuite

[Mathieu Parent]

Author: sathieu
Date: 2009-11-18 18:43:09 +0000 (Wed, 18 Nov 2009)
New Revision: 1413

Modified:
   pkg-kolab_testsuite/testsuite
Log:
testsuite: new action "login"


Modified: pkg-kolab_testsuite/testsuite
===================================================================
--- pkg-kolab_testsuite/testsuite	2009-11-17 22:47:51 UTC (rev 1412)
+++ pkg-kolab_testsuite/testsuite	2009-11-18 18:43:09 UTC (rev 1413)
@@ -36,6 +36,10 @@
 
 Extra step: Chroot to the mounted root partition
 
+=item I<login>
+
+Extra step: Log in via ssh
+
 =back
 
 =head1 OPTIONS
@@ -699,6 +703,16 @@
         '/usr/share/php/tests/Kolab_FreeBusy/Horde/Kolab/FreeBusy/AllTests.php');
 }
 
+#-------------------------------------------------------
+sub domain_login
+{
+    my $domid = shift;
+    my $domname = shift;
+    my $domip = domain_ip($domid, $domname);
+    
+    system("ssh -i '".$config{'storagepooldir'}."/key' root\@$domip");
+}
+
 #=======================================================
 # Main
 #-------------------------------------------------------
@@ -764,6 +778,8 @@
             domain_test($domid, $domname);
         } elsif ($action eq 'chroot') {
             domain_chroot($domid, $domname);
+        } elsif ($action eq 'login') {
+            domain_login($domid, $domname);
         } else {
             print "Unknow action: $action\n";
         }