From 8f61e253d3f0fba718cbbae9ec650d88759ff6ce Mon Sep 17 00:00:00 2001 From: Klas Lindfors Date: Tue, 7 Apr 2015 09:21:00 +0200 Subject: [PATCH] more debugging on mocks --- tests/aux/ldap.pl | 2 ++ tests/aux/ykval.pl | 2 ++ 2 files changed, 4 insertions(+) diff --git a/tests/aux/ldap.pl b/tests/aux/ldap.pl index 169d5fe..55be4d6 100755 --- a/tests/aux/ldap.pl +++ b/tests/aux/ldap.pl @@ -97,6 +97,8 @@ $sock->listen(); my $sel = IO::Select->new($sock); my %handlers; +warn "LDAP mockup started"; + while (my @ready = $sel->can_read) { foreach my $fh (@ready) { if ($fh == $sock) { diff --git a/tests/aux/ykval.pl b/tests/aux/ykval.pl index a766689..d7f2b1c 100755 --- a/tests/aux/ykval.pl +++ b/tests/aux/ykval.pl @@ -49,6 +49,8 @@ my $socket = new IO::Socket::INET ( Reuse => 1 ) or die "Oops: $! \n"; +warn "YKVAL mockup started on $port"; + while(1) { my $clientsocket = $socket->accept(); my $clientdata = <$clientsocket>;