minor fix for tests

pull/82/head
David Schweikert 9 years ago
parent 07e719d8db
commit 0499ff1ae4

@ -11,3 +11,8 @@ if [[ ! `ifconfig lo0` =~ 127\.0\.0\.2 ]]; then
sudo ifconfig lo0 127.0.0.4/8 alias sudo ifconfig lo0 127.0.0.4/8 alias
sudo ifconfig lo0 127.0.0.5/8 alias sudo ifconfig lo0 127.0.0.5/8 alias
fi fi
if [[ ! $PATH =~ /Users/dws/checkouts/fping/src ]]; then
echo "# WARNING: must set PATH:"
echo PATH=/Users/dws/checkouts/fping/src:\$PATH
fi

@ -7,7 +7,7 @@ use Test::Command tests => 6;
my $cmd = Test::Command->new(cmd => "fping nosuchname.example.com"); my $cmd = Test::Command->new(cmd => "fping nosuchname.example.com");
$cmd->exit_is_num(1); $cmd->exit_is_num(1);
$cmd->stdout_is_eq(""); $cmd->stdout_is_eq("");
$cmd->stderr_like(qr{^nosuchname\.example\.com: (Name or service not known|nodename nor servname provided, or not known)\n}); $cmd->stderr_like(qr{^nosuchname\.example\.com: .*not (known|found)});
} }
# fping6 # fping6
@ -15,5 +15,5 @@ $cmd->stderr_like(qr{^nosuchname\.example\.com: (Name or service not known|noden
my $cmd = Test::Command->new(cmd => "fping6 nosuchname.example.com"); my $cmd = Test::Command->new(cmd => "fping6 nosuchname.example.com");
$cmd->exit_is_num(1); $cmd->exit_is_num(1);
$cmd->stdout_is_eq(""); $cmd->stdout_is_eq("");
$cmd->stderr_like(qr{^nosuchname\.example\.com: (Name or service not known|nodename nor servname provided, or not known)\n}); $cmd->stderr_like(qr{^nosuchname\.example\.com: .*not (known|found)});
} }

Loading…
Cancel
Save