r12464: Add simple IDL parsing tests for pidl using the standard perl

testing framework (Test::Simple, distributed with perl itself).
Run these tests from 'make test'
(This used to be commit 975d8816db6697dab828941b69a740e3a0a2c272)

1 files changed, 3 insertions, 13 deletions

diff --git a/source4/pidl/tests/ndr_alloc.pl b/source4/pidl/tests/ndr_alloc.pl
index 4f6eddbfb9..4786d96971 100755
--- a/source4/pidl/tests/ndr_alloc.pl
+++ b/source4/pidl/tests/ndr_alloc.pl
@@ -3,12 +3,7 @@
 # (C) 2005 Jelmer Vernooij. Published under the GNU GPL
 use strict;
 
-use Parse::Pidl::Test;
-
-my %settings = Parse::Pidl::Test::GetSettings(@ARGV);
-$settings{'IDL-Arguments'} = ['--quiet', '--parse', '--parser=ndr_test.c', '--header=ndr_test.h'];
-$settings{'IncludeFiles'} = ['ndr_test.h'];
-$settings{'ExtraFiles'} = ['ndr_test.c'];
+use Test::Simple tests => 1;
 
 # Check that an outgoing scalar pointer is allocated correctly
 
@@ -39,14 +34,9 @@ Parse::Pidl::Test::test_idl("alloc-scalar", \%settings,
 # Check that an outgoing buffer pointer is allocated correctly
 Parse::Pidl::Test::test_idl("alloc-buffer", \%settings, 
 '	
-	typedef struct {
-		uint8 data;
-	} blie;
+	typedef struct { uint8 data; } blie;
+	typedef struct { blie *x; } bla; 
 
-	typedef struct {
-		blie *x;
-	} bla;
-	
 	[public] void TestAlloc([in] bla foo);
 ','
 	uint8_t data[] = { 0xde, 0xad, 0xbe, 0xef, 0x03 };