summaryrefslogtreecommitdiffstats
path: root/selftest/test_samba4.pl
blob: 59763afdaa92273157a8257e4540901dc9ec3956 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl

use Test::More tests => 3;
use FindBin qw($RealBin);
use lib $RealBin;
use lib "$RealBin/target";
use Samba4;

my $s = new Samba4($RealBin."/../source4/bin", undef, $RealBin."/../setup");

ok($s);

is($RealBin."/../source4/bin", $s->{bindir});

ok($s->write_ldb_file("tmpldb", "
dn: a=b
a: b
c: d
"));

unlink("tmpldb");