git.samba.org
/
samba.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f2935be66bcd85d349cdcdb218cba54d0a173b74
[samba.git]
/
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");