r22377: implement check_env() for samba4

metze

diff --git a/source/script/tests/Samba4.pm b/source/script/tests/Samba4.pm
index 4ab720c7bfccf1be18a9a349cb4e63c8aebbefb6..ae6e6b326ca4d00de58583a6217b8f00cf5d116f 100644 (file)
--- a/source/script/tests/Samba4.pm
+++ b/source/script/tests/Samba4.pm
@@ -679,8 +679,9 @@ sub check_env($$)
 {
        my ($self, $envvars) = @_;
 
-       # TODO ...
-       return 1;
+       return 1 if (-p $envvars->{SMBD_TEST_FIFO});
+
+       return 0;
 }
 
 sub setup_env($$$)