r12463: Rename 'Samba' namespace to 'Samba4'

[samba.git] / source4 / pidl / tests / ndr_simple.pl

diff --git a/source4/pidl/tests/ndr_simple.pl b/source4/pidl/tests/ndr_simple.pl
index 7d48c9f4d7149d138f42cb03ddf48082adb12103..2c2c910a569d51a2739c57d6ad44412c3a67ad97 100755 (executable)
--- a/source4/pidl/tests/ndr_simple.pl
+++ b/source4/pidl/tests/ndr_simple.pl
@@ -5,12 +5,18 @@
 use strict;
 
 use Parse::Pidl::Test;
+use Parse::Pidl::IDL;
+use Parse::Pidl::NDR;
+use Parse::Pidl::Samba::NDR;
 
 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'];
 
+my $pidl = Parse::Pidl::IDL::parse_string('void Test();');
+my $pndr = Parse::Pidl::NDR::Parse($pidl);
+
 Parse::Pidl::Test::test_idl(
        # Name
        'UInt8',
@@ -18,8 +24,6 @@ Parse::Pidl::Test::test_idl(
        # Settings
        \%settings,
        
-       # IDL 
-       'void Test();',
        
        # C Test
        '