[xen-tools-dev] [PATCH] Skip Xen::Tools tests

Stéphane Jourdois sjourdois at gmail.com
Sun Jul 11 15:38:42 CEST 2010


Those modules are not used for now.
---
 t/xen-tools-log.t |   13 ++++++++-----
 t/xen-tools.t     |    7 +++++--
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/t/xen-tools-log.t b/t/xen-tools-log.t
index f515909..adf3bcf 100755
--- a/t/xen-tools-log.t
+++ b/t/xen-tools-log.t
@@ -7,11 +7,14 @@ use File::Temp;
 
 use Xen::Tools::Log;
 
-my $dir = File::Temp::tempdir( CLEANUP => 1 );
+SKIP: {
+	skip "Xen::Tools::Log is not used for now", 1;
 
-my $xtl = Xen::Tools::Log->new( hostname => 'xen-tools-log-test',
-                                logpath  => $dir,
-                              );
+	my $dir = File::Temp::tempdir( CLEANUP => 1 );
 
-ok( $xtl->isa('Xen::Tools::Log') );
+	my $xtl = Xen::Tools::Log->new( hostname => 'xen-tools-log-test',
+					logpath  => $dir,
+				      );
 
+	ok( $xtl->isa('Xen::Tools::Log') );
+}
diff --git a/t/xen-tools.t b/t/xen-tools.t
index 8a30b68..54f5758 100755
--- a/t/xen-tools.t
+++ b/t/xen-tools.t
@@ -10,6 +10,9 @@ use Test::More tests => 1;
 
 use Xen::Tools;
 
-my $xt = Xen::Tools->new( hostname => 'xen-tools-test' );
+SKIP: {
+	skip "Xen::Tools is not used for now", 1;	
 
-ok( $xt->isa('Xen::Tools') );
+	my $xt = Xen::Tools->new( hostname => 'xen-tools-test' );
+	ok( $xt->isa('Xen::Tools') );
+}
-- 
1.5.6.5



More information about the xen-tools-dev mailing list