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 lib "$RealBin/target";
   7 use Samba4;
   8
   9 my $s = new Samba4($RealBin."/../source4/bin", undef, $RealBin."/../setup");
  10
  11 ok($s);
  12
  13 is($RealBin."/../source4/bin", $s->{bindir});
  14
  15 ok($s->write_ldb_file("tmpldb", "
  16 dn: a=b
  17 a: b
  18 c: d
  19 "));
  20
  21 unlink("tmpldb");