1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/perl -w
# $Id: //info.ravenbrook.com/project/mps/master/test/test/script/useful#3 $
# Various subroutines that the MMQA harness finds useful.
#

1;

sub debug {
 local ($text) = @_;
 if ($DEBUG_INFO eq "on") {
  print $text."\n";
 }
}

sub mysystem {
 local ($command) = @_;
 $command = &convdirseps($command);
 &debug("SYSTEM >>$command<<");
 system($command);
}

sub convdirseps {
 local ($a) = @_;
 $a =~ s/(\S)\//$1$dirsep/g;
 return $a;
}

sub mailfile {
 local ($file, $subj) = @_;

 if ($MAIL_RESULTS eq "on") {
  &$platmailfile($file, $MAIL_TO, $subj);
 }
}

#
# comparison of harness version numbers
#

sub vleq {
 local ($a, $b, @a, @b) = @_;
 @a = split /\./, $a;
 @b = split /\./, $b;
 while (defined $a[0] && defined $b[0]) {
  if ($a[0] == $b[0]) {
   shift @a; shift @b;
  } else {
   return ($a[0] < $b[0]);
  }
 }
 if (! defined $a[0]) { $a[0] = -1 }
 if (! defined $b[0]) { $b[0] = -1 }
 return ($a[0] <= $b[0]);
}