The intereactions between selftest.pl and the target are now too
complex to unit test like this any more.
Andrew Bartlett
+++ /dev/null
-#!/usr/bin/perl
-
-use Test::More tests => 3;
-use FindBin qw($RealBin);
-use lib $RealBin;
-use lib "$RealBin/target";
-use Samba4;
-
-my $s = new Samba4("bin", undef, undef, undef, $RealBin."/../setup");
-
-ok($s);
-
-is("bin", $s->{bindir});
-
-ok($s->write_ldb_file("tmpldb", "
-dn: a=b
-a: b
-c: d
-"));
-
-unlink("tmpldb");
for f in sorted(os.listdir(os.path.join(samba4srcdir, "../pidl/tests"))):
if f.endswith(".pl"):
planperltestsuite("pidl.%s" % f[:-3], os.path.normpath(os.path.join(samba4srcdir, "../pidl/tests", f)))
-planperltestsuite("selftest.samba4", os.path.normpath(os.path.join(samba4srcdir, "../selftest/test_samba4.pl")))
# Blackbox Tests:
# tests that interact directly with the command-line tools rather than using