diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-04-17 00:30:01 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:50:56 -0500 |
commit | 2c247996a93f86472f34728f4834a3229d6ecf89 (patch) | |
tree | 777955fbbded3f6a1aec21a406f11899b6f6cd46 /source4/script/tests/test_samba4.pl | |
parent | aacabe9c5731009458900c1d6dce9669b3e987be (diff) | |
download | samba-2c247996a93f86472f34728f4834a3229d6ecf89.tar.gz samba-2c247996a93f86472f34728f4834a3229d6ecf89.tar.bz2 samba-2c247996a93f86472f34728f4834a3229d6ecf89.zip |
r22286: Import branch that converted the Samba4 test target code to perl and makes the code a bit clearer.
(This used to be commit e3ba5ced0440e736f0f140e12a8c728f79a20bb2)
Diffstat (limited to 'source4/script/tests/test_samba4.pl')
-rwxr-xr-x | source4/script/tests/test_samba4.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/source4/script/tests/test_samba4.pl b/source4/script/tests/test_samba4.pl new file mode 100755 index 0000000000..8476e6e38f --- /dev/null +++ b/source4/script/tests/test_samba4.pl @@ -0,0 +1,21 @@ +#!/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"); |