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