40 lines
855 B
Perl
Executable file
40 lines
855 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
use strict;
|
|
|
|
print("\n\nRunning Cluster Hash Table self test.\n");
|
|
print("-------------------------------------\n");
|
|
|
|
mkdir 'coord';
|
|
mkdir 'sub0';
|
|
mkdir 'sub1';
|
|
mkdir 'sub2';
|
|
mkdir 'sub3';
|
|
|
|
chdir 'coord';
|
|
system ("rm *.txt");
|
|
system ("../coordinator ../cluster.conf > /dev/null &");
|
|
chdir '..';
|
|
chdir 'sub0';
|
|
system ("rm *.txt");
|
|
system ("../subordinate 0 ../cluster.conf > /dev/null &");
|
|
chdir '..';
|
|
chdir 'sub1';
|
|
system ("rm *.txt");
|
|
system ("../subordinate 1 ../cluster.conf > /dev/null &");
|
|
chdir '..';
|
|
chdir 'sub2';
|
|
system ("rm *.txt");
|
|
system ("../subordinate 2 ../cluster.conf > /dev/null &");
|
|
chdir '..';
|
|
chdir 'sub3';
|
|
system ("rm *.txt");
|
|
system ("../subordinate 3 ../cluster.conf > /dev/null &");
|
|
chdir '..';
|
|
|
|
system ("rm *.txt");
|
|
my $ret = system ("./client 2>&1");
|
|
|
|
`killall coordinator`;
|
|
`killall subordinate`;
|
|
|
|
exit $ret;
|