Add tests.

1 files changed, 18 insertions, 0 deletions

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();