Commit 887939c3 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

test: fixed non-root test for storage

parent 16b72eb2
...@@ -12,6 +12,7 @@ use feature qw(signatures); ...@@ -12,6 +12,7 @@ use feature qw(signatures);
use lib 't/lib'; use lib 't/lib';
use Test::Ravada; use Test::Ravada;
my $DIR = "/var/tmp";
########################################################### ###########################################################
...@@ -31,7 +32,7 @@ sub test_storage_pools($vm) { ...@@ -31,7 +32,7 @@ sub test_storage_pools($vm) {
} }
sub _add_fstab($vm) { sub _add_fstab($vm) {
my $dir = "/mnt/".base_domain_name(); my $dir = "$DIR/".base_domain_name();
if (!-e $dir) { if (!-e $dir) {
mkdir $dir; mkdir $dir;
} }
...@@ -79,7 +80,7 @@ sub test_storage_pools_fail($vm) { ...@@ -79,7 +80,7 @@ sub test_storage_pools_fail($vm) {
} }
sub _clean_local { sub _clean_local {
my $dir = "/mnt/".base_domain_name(); my $dir = "$DIR/".base_domain_name();
my $file = "$dir/check_storage";# or die "$!"; my $file = "$dir/check_storage";# or die "$!";
unlink $file or die "$! $file" if -e $file; unlink $file or die "$! $file" if -e $file;
} }
......
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