# Action functions (return zero on success).

sub find_in_file
{
   my $fname  = shift;
   my $str    = shift;
   my $nfound = 0;
   open( my $fh, '<', $fname ) or die "error: open '$fname': $!";
   while ( my $line = <$fh> ) {
      if ( $line =~ /$str/ ) {
         print $line;
         ++$nfound;
      }
   }
   close $fh;
   return $nfound;
}

# ...

# ------------------------------------------------------------------------
# Globals (mostly set by command line arguments)

my $bldtype = 'rel';

# ------------------------------------------------------------------------
# The action table @action_tab below defines the commands/functions
# to be run by this program and the order of running them.

my @action_tab = (
   {
      id      => 'svninfo',
      desc    => 'svn working copy information',
      cmdline => 'svn info',
      workdir => '',
      logfile => 'minbld_svninfo.log',
      tee     => 1,
      prompt  => 0,
      run     => 1,
   },
   {
      id      => 'svnup',
      desc    => 'Run full svn update',
      cmdline => 'svn update',
      workdir => '',
      logfile => 'minbld_svnupdate.log',
      tee     => 1,
      prompt  => 0,
      run     => 1,
   },
   # ...
   {
      id      => "bld",
      desc    => "Build unit tests ${bldtype}",
      cmdline => qq{bldnt ${bldtype}dll UnitTests.sln},
      workdir => '',
      logfile => "minbld_${bldtype}bldunit.log",
      tee     => 0,
      prompt  => 0,
      run     => 1,
   },
   {
      id      => "findbld",
      desc    => 'Call find_strs_in_file',
      fn      => \&find_in_file,
      fnargs  => [ "minbld_${bldtype}bldunit.log", '[1-9][0-9]* errors' ],
      workdir => '',
      logfile => '',
      tee     => 1,
      prompt  => 0,
      run     => 1,
   }
   # ...
);

##</code><code>##

<Test>
   <Node>Muss</Node>
   <Query>Execute some-command</Query>
   <Valid>True</Valid>
   <MinimumRows>1</MinimumRows>
   <TestColumn>
      <ColumnName>CommandResponse</ColumnName>
      <MatchesRegex row="0">THRESHOLD STARTED.*Taffy</MatchesRegex>
   </TestColumn>
   <TestColumn>
      <ColumnName>CommandExitCode</ColumnName>
      <Compare function="Equal" row="0">0</Compare>
   </TestColumn>
</Test>