diff options
author | Stefan Metzmacher <metze@samba.org> | 2007-04-29 20:37:59 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:51:46 -0500 |
commit | 1e84e4026e3c8f0b94cfaf61a089b075f07417f1 (patch) | |
tree | 091ad4a99b9f124ffcbf9dec2f7dcd8727851a11 /source4/selftest/test_samba4.pl | |
parent | 82ad0ea6eaab04cdb1739da468b5ed2169421439 (diff) | |
download | samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.tar.gz samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.tar.bz2 samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.zip |
r22575: move script/tests/ -> selftest/
as discussed with jelmer and abartlet
metze
(This used to be commit e9fe3c40e10accb63d7a2124d3a7e77e499c4209)
Diffstat (limited to 'source4/selftest/test_samba4.pl')
-rwxr-xr-x | source4/selftest/test_samba4.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/source4/selftest/test_samba4.pl b/source4/selftest/test_samba4.pl new file mode 100755 index 0000000000..f2935be66b --- /dev/null +++ b/source4/selftest/test_samba4.pl @@ -0,0 +1,20 @@ +#!/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"); |