Add framework for Kvm test.

(This used to be commit e4efbb2906f4f3876986e21c12b58791c3526bed)

1 files changed, 55 insertions, 0 deletions

diff --git a/source4/selftest/target/Kvm.pm b/source4/selftest/target/Kvm.pm
new file mode 100644
index 0000000000..533fb302d0
--- /dev/null
+++ b/source4/selftest/target/Kvm.pm
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# Start a KVM machine and run a number of tests against it.
+# Copyright (C) 2005-2008 Jelmer Vernooij <jelmer@samba.org>
+# Published under the GNU GPL, v3 or later.
+
+package Kvm;
+
+use strict;
+use Cwd qw(abs_path);
+use FindBin qw($RealBin);
+use POSIX;
+
+sub new($$$$) {
+	my ($classname, $image) = @_;
+	my $self = { 
+		image => $image
+	};
+	bless $self;
+	return $self;
+}
+
+sub teardown_env($$)
+{
+	my ($self, $envvars) = @_;
+
+	return 0;
+}
+
+sub getlog_env($$)
+{
+	my ($self, $envvars) = @_;
+
+	return "";
+}
+
+sub check_env($$)
+{
+	my ($self, $envvars) = @_;
+
+	return 1;
+}
+
+sub setup_env($$$)
+{
+	my ($self, $envname, $path) = @_;
+
+	die("No implemented yet");
+}
+
+sub stop($)
+{
+	my ($self) = @_;
+}
+
+1;