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