s4-selftest: support 'make testenv SCREEN=1'
[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 lib "$RealBin/target";
7 use Samba4;
8
9 my $s = new Samba4($RealBin."/../source4/bin", undef, $RealBin."/../setup");
10
11 ok($s);
12
13 is($RealBin."/../source4/bin", $s->{bindir});
14
15 ok($s->write_ldb_file("tmpldb", "
16 dn: a=b
17 a: b
18 c: d
19 "));
20
21 unlink("tmpldb");