Author: metze
Date: 2006-01-08 20:20:18 +0000 (Sun, 08 Jan 2006)
New Revision: 12776

WebSVN: 
http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=12776

Log:
use $ENV{TEST_DATA_PREFIX} for test files if available

metze
Modified:
   branches/SAMBA_4_0/source/pidl/tests/Util.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/tests/Util.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/Util.pm        2006-01-08 18:25:40 UTC 
(rev 12775)
+++ branches/SAMBA_4_0/source/pidl/tests/Util.pm        2006-01-08 20:20:18 UTC 
(rev 12776)
@@ -25,7 +25,7 @@
        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,8 +45,15 @@
        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.";
 

Reply via email to