mirror of
https://github.com/samba-team/samba.git
synced 2025-11-14 12:23:52 +03:00
21 lines
295 B
Perl
Executable File
21 lines
295 B
Perl
Executable File
#!/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");
|