source4/script/tests/testenv.pl

   1 #!/usr/bin/perl
   2
   3 use FindBin qw($RealBin);
   4 use lib "$RealBin";
   5
   6 use Samba4;
   7 use SocketWrapper;
   8
   9 my $vars = Samba4::provision("st");
  10 foreach (keys %$vars) { $ENV{$_} = $vars->{$_}; }
  11 SocketWrapper::set_default_iface(1);
  12 my $test_fifo = "st/smb_test.fifo";
  13 my $socket_wrapper_dir = SocketWrapper::setup_dir("$vars->{PREFIX_ABS}/w");
  14 Samba4::smbd_check_or_start("bin", $test_fifo, $ENV{SMBD_TEST_LOG}, $socket_wrapper_dir, undef, $ENV{CONFFILE});
  15 SocketWrapper::set_default_iface(6);
  16 my $interfaces = join(',', ("127.0.0.6/8",
  17                                  "127.0.0.7/8",
  18                                                  "127.0.0.8/8",
  19                                                  "127.0.0.9/8",
  20                                                  "127.0.0.10/8",
  21                                                  "127.0.0.11/8"));
  22
  23 push (@torture_options, "--option=interfaces=$interfaces",
  24                             $ENV{CONFIGURATION},
  25                                                 "--target=samba4");
  26
  27 $ENV{TORTURE_OPTIONS} = join(' ', @torture_options);
  28
  29 open(DATA, ">$test_fifo");
  30 Samba4::wait_for_start();
  31 system("xterm -e 'echo -e \"Welcome to the Samba4 Test environment
  32 This matches the client environment used in make test
  33 smbd is pid `cat \$PIDDIR/smbd.pid`
  34
  35 Some useful environment variables:
  36 AUTH=\$AUTH
  37 TORTURE_OPTIONS=\$TORTURE_OPTIONS
  38 CONFIGURATION=\$CONFIGURATION
  39 SERVER=\$SERVER
  40 NETBIOSNAME=\$NETBIOSNAME\" && bash'");
  41 close(DATA);
  42