From a71c3714323b6dce2fbeea68c2d007c223467f26 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Tue, 19 Feb 2008 02:44:31 +0100
Subject: Add framework for Kvm test. (This used to be commit
 e4efbb2906f4f3876986e21c12b58791c3526bed)

---
 source4/selftest/target/Kvm.pm | 55 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 source4/selftest/target/Kvm.pm

(limited to 'source4/selftest/target')

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;
-- 
cgit