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