[Perl] DAQ system for the FAPG.
1
#!/usr/bin/env perl
2
3
use v5.32.1;
4
use strict;
5
use warnings;
6
7
use FindBin;
8
use lib "${FindBin::Bin}/lib";
9
use Test2::V0;
10
use FAPG::TestSupport qw(@HOSTS);
11
12
foreach my $h (@HOSTS) {
13
my $cmd = "ping -c 1 $h->{hostname} &> /dev/null";
14
ok system($cmd) == 0, "host $h->{hostname} can be pinged";
15
}
16
17
done_testing();
18