From b8881057b64c6d0eedcfa2b07c138908ef2b6f76 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 2 Jul 2026 17:54:07 +0200 Subject: Add tests. --- t/00-ping-from-dev.t | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 t/00-ping-from-dev.t (limited to 't/00-ping-from-dev.t') diff --git a/t/00-ping-from-dev.t b/t/00-ping-from-dev.t new file mode 100755 index 0000000..583db09 --- /dev/null +++ b/t/00-ping-from-dev.t @@ -0,0 +1,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(); -- cgit v1.2.3