From fbae151a467c846286da9a2129226b547dd8f752 Mon Sep 17 00:00:00 2001
From: Francesc Guasch <frankie@ebdsoft.com>
Date: Mon, 20 Nov 2017 18:13:27 +0100
Subject: [PATCH] [#441] test copy

---
 t/vm/c10_copy.t | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 t/vm/c10_copy.t

diff --git a/t/vm/c10_copy.t b/t/vm/c10_copy.t
new file mode 100644
index 000000000..7c21fdc0b
--- /dev/null
+++ b/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();
+