[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