source4/selftest/test_samba4.pl

   1 #!/usr/bin/perl
   2
   3 use Test::More tests => 3;
   4 use FindBin qw($RealBin);
   5 use lib $RealBin;
   6 use Samba4;
   7
   8 my $s = new Samba4($RealBin."/../bin", undef, $RealBin."/../setup");
   9
  10 ok($s);
  11
  12 is($RealBin."/../bin", $s->{bindir});
  13
  14 ok($s->write_ldb_file("tmpldb", "
  15 dn: a=b
  16 a: b
  17 c: d
  18 "));
  19
  20 unlink("tmpldb");