moxi_all.pl

#!/usr/bin/perl

# Run this main test driver program from the project's
# top directory, which has t as a subdirectory.
#
my $exe = "./moxi";

use Carp qw(croak);

croak("moxi binary doesn't exist.  Haven't run 'make' ?\n") unless -e $exe;
croak("moxi binary not executable\n") unless -x _;

sub go {
  my ($topology, $protocol) = @_;
  print "------------------------------------\n";
  print "testing $topology $protocol\n";
  my $result = system("./t/moxi.pl $topology $protocol");
  if ($result != 0) {
    print("fail moxi.pl $topology $protocol test\n");
    exit $result;
  }
}

# Ascii protocol compatibility tests.
#
go('simple',   'ascii');
go('chain',    'ascii');
go('fanout',   'ascii');
go('fanoutin', 'ascii');

# Binary protocol compatibility tests.
#
go('simple', 'binary');
go('fanout', 'binary');

print "------------------------------------\n";

my $res = system("./t/moxi_mock.pl ascii");

exit $res;