Commit 58b2156a authored by Francesc Guasch's avatar Francesc Guasch
Browse files

LXC disabled

parent 728a4bef
......@@ -7,8 +7,14 @@ use Test::More;
use Test::SQL::Data;
use_ok('Ravada');
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
my $CAN_LXC = 0;
SKIP: {
skip("LXC disabled in this release",3);
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
$CAN_LXC = 1;
};
my $test = Test::SQL::Data->new( config => 't/etc/sql.conf');
my $RAVADA= Ravada->new( connector => $test->connector);
......@@ -179,7 +185,7 @@ sub remove_old_domains {
}
################################################################
eval { $vm_lxc = Ravada::VM::LXC->new() };
eval { $vm_lxc = Ravada::VM::LXC->new() } if $CAN_LXC;
SKIP: {
my $msg = ($@ or "No LXC vitual manager found");
......
......@@ -6,9 +6,14 @@ use IPC::Run3;
use Test::More;
use Test::SQL::Data;
my $CAN_LXC = 0;
use_ok('Ravada');
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
SKIP: {
skip("LXC disabled in this release",2);
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
$CAN_LXC = 1;
}
my $test = Test::SQL::Data->new( config => 't/etc/sql.conf');
my $RAVADA= Ravada->new( connector => $test->connector);
......@@ -137,7 +142,7 @@ sub test_domain{
################################################################
eval { $vm_lxc = Ravada::VM::LXC->new() };
eval { $vm_lxc = Ravada::VM::LXC->new() } if $CAN_LXC;
SKIP: {
my $msg = ($@ or "No LXC vitual manager found");
......
......@@ -7,8 +7,14 @@ use Test::More;
use Test::SQL::Data;
use_ok('Ravada');
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
my $CAN_LXC = 0;
SKIP: {
skip("LXC disabled in this release",2);
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
$CAN_LXC = 1;
}
my $test = Test::SQL::Data->new( config => 't/etc/sql.conf');
my $RAVADA= Ravada->new( connector => $test->connector);
......@@ -93,7 +99,7 @@ sub test_domain{
################################################################
eval { $vm_lxc = Ravada::VM::LXC->new() };
eval { $vm_lxc = Ravada::VM::LXC->new() } if $CAN_LXC;
SKIP: {
my $msg = ($@ or "No LXC vitual manager found");
......
......@@ -6,9 +6,15 @@ use IPC::Run3;
use Test::More;
use Test::SQL::Data;
my $CAN_LXC = 0;
use_ok('Ravada');
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
SKIP: {
skip("LXC disabled in this release",2);
use_ok('Ravada::Domain::LXC');
use_ok('Ravada::VM::LXC');
$CAN_LXC = 1;
}
my $test = Test::SQL::Data->new( config => 't/etc/sql.conf');
my $RAVADA= Ravada->new( connector => $test->connector);
......@@ -74,9 +80,9 @@ sub test_vm_lxc {
################################################################
eval { $vm_lxc = Ravada::VM::LXC->new() };
SKIP: {
eval { $vm_lxc = Ravada::VM::LXC->new() } if $CAN_LXC;
my $msg = "No LXC backend found $@";
diag($msg) if !$vm_lxc;
skip ($msg,10) if !$vm_lxc;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment