diff --git a/tests/aux/ykval.pl b/tests/aux/ykval.pl
index f4aa33b..e745d8f 100755
--- a/tests/aux/ykval.pl
+++ b/tests/aux/ykval.pl
@@ -38,7 +38,7 @@ my %otps = (
 );
 
 my $port = shift;
-$port |= 8888;
+die "no port specified" unless $port;
 
 my $socket = new IO::Socket::INET (
   LocalHost => '127.0.0.1',
diff --git a/tests/pam_test.c b/tests/pam_test.c
index 27c0086..dbeae06 100644
--- a/tests/pam_test.c
+++ b/tests/pam_test.c
@@ -159,13 +159,13 @@ static int test_fail_authenticate2(void) {
     "authfile=aux/authfile",
     "debug"
   };
-  return pam_sm_authenticate(4, 0, sizeof(cfg) / sizeof(char*), cfg);
+  return pam_sm_authenticate(2, 0, sizeof(cfg) / sizeof(char*), cfg);
 }
 
 static pid_t run_mock(const char *port) {
   pid_t pid = fork();
   if(pid == 0) {
-    execlp("aux/ykval.pl", port, NULL);
+    execlp("aux/ykval.pl", "aux/ykval.pl", port, NULL);
   }
   return pid;
 }