diff options
| author | Jörg Mayer <jmayer@loplof.de> | 2006-01-16 16:31:54 +0000 |
|---|---|---|
| committer | Jörg Mayer <jmayer@loplof.de> | 2006-01-16 16:31:54 +0000 |
| commit | 1b47d723509f750e2d3437a52388b74fdfe6b2fa (patch) | |
| tree | c50fc6c450069975ed6e4a18f79ef3061750780a /tools/pidl/tests/Util.pm | |
| parent | 1900bf87fc2baf1a4528617090be21deee760131 (diff) | |
Update from samba tree revision 12761 to 12961
============================ Samba log start ============
------------------------------------------------------------------------
r12776 | metze | 2006-01-08 21:20:18 +0100 (Sun, 08 Jan 2006) | 3 lines
Changed paths:
M /branches/SAMBA_4_0/source/pidl/tests/Util.pm
use $ENV{TEST_DATA_PREFIX} for test files if available
metze
------------------------------------------------------------------------
============================ Samba log end ==============
svn path=/trunk/; revision=17039
Diffstat (limited to 'tools/pidl/tests/Util.pm')
| -rw-r--r-- | tools/pidl/tests/Util.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tools/pidl/tests/Util.pm b/tools/pidl/tests/Util.pm index c85ef72d0a..cd2ba2a37e 100644 --- a/tools/pidl/tests/Util.pm +++ b/tools/pidl/tests/Util.pm @@ -25,7 +25,7 @@ sub test_samba4_ndr($$$) my ($name,$idl,$c) = @_; my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "<$name>"); - ok (defined($pidl), "($name) parse idl"); + ok(defined($pidl), "($name) parse idl"); my $header = Parse::Pidl::Samba4::Header::Parse($pidl); ok(defined($header), "($name) generate generic header"); my $pndr = Parse::Pidl::NDR::Parse($pidl); @@ -45,7 +45,14 @@ SKIP: { skip "no sane C compiler, skipping compilation", 3 if not $sanecc; - my $outfile = "test-$name"; + my $test_data_prefix = $ENV{TEST_DATA_PREFIX}; + + my $outfile; + if (defined($test_data_prefix)) { + $outfile = "$test_data_prefix/test-$name"; + } else { + $outfile = "test-$name"; + } #my $cflags = $ENV{CFLAGS}; my $cflags = "-Iinclude -Ilib -I."; |