mirror of
https://github.com/samba-team/samba.git
synced 2024-12-23 17:34:34 +03:00
22 lines
338 B
Perl
Executable File
22 lines
338 B
Perl
Executable File
#!/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");
|