negentropy/test/Utils.pm

22 lines
382 B
Perl
Raw Normal View History

2023-09-16 22:51:22 -04:00
package Utils;
use strict;
sub harnessTypeToCmd {
my $harnessType = shift;
if ($harnessType eq 'cpp') {
return './cpp/harness';
} elsif ($harnessType eq 'js') {
return 'node js/harness.js';
} elsif ($harnessType eq 'rust') {
return '../../rust-negentropy/target/debug/harness';
}
die "unknown harness type: $harnessType";
}
1;