#!/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();