- fixed interactive checking

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: