svn commit: samba r12776 - in branches/SAMBA_4_0/source/pidl/tests: .

metze at samba.org metze at samba.org
Sun Jan 8 20:20:22 GMT 2006


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.";
 



More information about the samba-cvs mailing list