diff --git a/lib/SLUB/LZA/TA/Command/init.pm b/lib/SLUB/LZA/TA/Command/init.pm
index 990df2557fa34e7e6041f357d0bad9993c8feafb..b16ef4dd3c5f4ece0a78d354fd9ffe1a29c995b1 100644
--- a/lib/SLUB/LZA/TA/Command/init.pm
+++ b/lib/SLUB/LZA/TA/Command/init.pm
@@ -44,7 +44,15 @@ sub execute {
     #$config{logdir} = $opt->{logdir};
     $config{http_only} = $opt->{http_only};
     my $in_test = $ENV{TEST_ACTIVE};
-    local *IO::Prompt::Tiny::_is_interactive = sub {$in_test}; # fake it for testing
+    # next lines to fake interactive for testing
+    local *IO::Prompt::Tiny::_is_interactive = *IO::Prompt::Tiny::_is_interactive;
+    if ($in_test) {
+        *IO::Prompt::Tiny::_is_interactive = sub {$in_test};
+    }
+    if (defined $opt->{debug}) {
+        say STDERR "Is test active? ", $ENV{TEST_ACTIVE} ? "true" : "false";
+        say STDERR "Is interactive? ", IO::Prompt::Tiny::_is_interactive() ? "true" : "false";
+    }
     say STDERR "HINT: The password  stored in config file!";
     my $user = prompt('User:');
 RETRY: