t/00-ping-from-dev.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env perl
# -*- mode: perl-ts; -*-

use 5.32.0;
use strict;
use warnings;

use FindBin;
use lib "${FindBin::Bin}/lib";
use Test2::V0;
use FAPG::TestSupport qw(@HOSTS);

foreach my $h (@HOSTS) {
  my $cmd = "ping -c 1 $h->{hostname} &> /dev/null";
  ok system($cmd) == 0, "host $h->{hostname} can be pinged";
}

done_testing();