Test localhost in config file.

Write localhost into pfresolved config.
Wait until pfresolved creates table regress-pfresolved.
Read IP addresses from pf table with pfctl.
Check that pfresolved added 127.0.0.1 and ::1.
Check that table contains 127.0.0.1 and ::1.

regress/Pfctl.pm

@@ -34,12 +34,16 @@ sub new {
 
 sub child {
 	my $self = shift;
+	my $timeout = $self->{timeout} || 5;
+	my $updates = $self->{updates};
 	my $pfresolved = $self->{pfresolved};
 
-	my $table = "updating addresses for pf table";
-	$pfresolved->loggrep($table, 5)
-	    or die ref($self), " no '$table' in $pfresolved->{logfile} ".
-		"after 5 seconds";
+	my $table = "updated addresses for pf table";
+	my $tomsg = $timeout ? " after $timeout seconds" : "";
+	my $upmsg = $updates ? " for $updates times" : "";
+	$pfresolved->loggrep($table, $timeout, $updates)
+	    or die ref($self), " no '$table' in $pfresolved->{logfile}",
+		$tomsg, $upmsg;
 
 	open(STDOUT, '>&', \*STDERR)
 	    or die ref($self), " dup STDOUT failed: $!";

regress/Pfresolved.pm

@@ -68,7 +68,7 @@ sub child {
 	my @ktrace;
 	@ktrace = ($self->{ktraceexec}, "-i", "-f", $self->{ktracefile})
 	    if $self->{ktraceexec};
-	my @cmd = (@sudo, @ktrace, $self->{execfile}, "-dvv",
+	my @cmd = (@sudo, @ktrace, $self->{execfile}, "-dvvv",
 	    "-f", $self->{conffile});
 	print STDERR "execute: @cmd\n";
 	exec @cmd;

regress/args-localhost.pl

@@ -0,0 +1,27 @@
+# Write localhost into pfresolved config.
+# Wait until pfresolved creates table regress-pfresolved.
+# Read IP addresses from pf table with pfctl.
+# Check that pfresolved added 127.0.0.1 and ::1.
+# Check that table contains 127.0.0.1 and ::1.
+
+use strict;
+use warnings;
+
+our %args = (
+    pfresolved => {
+	address_list => [qw(localhost.)],  # must resolve A and AAAA
+	loggrep => {
+	    qr{added: 127.0.0.1/32,} => 1,
+	    qr{added: ::1/128,} => 1,
+	},
+    },
+    pfctl => {
+	updates => 3,
+	loggrep => {
+	    qr/^   127.0.0.1$/ => 1,
+	    qr/^   ::1$/ => 1,
+	},
+    },
+);
+
+1;