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