selftest: add target::Template
[jra/samba/.git] / selftest / target / Template.pm
1 #!/usr/bin/perl
2 # Copyright (C) 2009 Stefan Metzmacher <metze@samba.org>
3 # Published under the GNU GPL, v3 or later.
4
5 package Template;
6
7 use strict;
8
9 sub new($$) {
10         my ($classname) = @_;
11         my $self = {
12                 classname => $classname
13         };
14         bless $self;
15         return $self;
16 }
17
18 sub teardown_env($$)
19 {
20         my ($self, $envvars) = @_;
21
22         return 0;
23 }
24
25 sub getlog_env($$)
26 {
27         my ($self, $envvars) = @_;
28
29         return "";
30 }
31
32 sub check_env($$)
33 {
34         my ($self, $envvars) = @_;
35
36         return 1;
37 }
38
39 sub setup_env($$$)
40 {
41         my ($self, $envname, $path) = @_;
42         my $envvars = undef;
43
44         return $envvars;
45 }
46
47 sub stop($)
48 {
49         my ($self) = @_;
50 }
51
52 1;