[UPC#441] test copy

t/vm/c10_copy.t

@@ -0,0 +1,49 @@
+use warnings;
+use strict;
+
+use Data::Dumper;
+use Test::More;
+use Test::SQL::Data;
+
+use lib 't/lib';
+use Test::Ravada;
+
+my $test = Test::SQL::Data->new(config => 't/etc/sql.conf');
+init($test->connector);
+
+use_ok('Ravada');
+
+my $FILE_CONFIG = 't/etc/ravada.conf';
+
+##########################################################################3
+
+sub test_copy {
+}
+
+##########################################################################3
+
+clean();
+
+
+for my $vm_name ('Void', 'KVM') {
+    my $vm = rvd_back->search_vm($vm_name);
+
+    SKIP: {
+
+        my $msg = "SKIPPED: No virtual managers found";
+        if ($vm && $vm_name =~ /kvm/i && $>) {
+            $msg = "SKIPPED: Test must run as root";
+            $vm = undef;
+        }
+
+        skip($msg,10)   if !$vm;
+
+        test_copy($vm_name);
+    }
+
+}
+
+clean();
+
+done_testing();
+