diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-12-24 23:32:50 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:47:42 -0500 |
commit | 68ef82aac72c351f6e166b92bbb4573e8bcdbc86 (patch) | |
tree | b4a7b5518eb5f525f17990b240f121a62283ec29 /source4/pidl/lib/Parse/Pidl/Samba4/NDR | |
parent | ebfbb2a7abe33e47af48d69164c37f4c24b7f8ed (diff) | |
download | samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.tar.gz samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.tar.bz2 samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.zip |
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)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Samba4/NDR')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba4/NDR/Header.pm | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Header.pm index d55a7a12af..1480b42971 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Header.pm @@ -16,19 +16,8 @@ use vars qw($VERSION); $VERSION = '0.01'; my($res); -my($tab_depth); -sub pidl ($) -{ - $res .= shift; -} - -sub tabs() -{ - my $res = ""; - $res .="\t" foreach (1..$tab_depth); - return $res; -} +sub pidl ($) { $res .= shift; } ##################################################################### # prototype a typedef @@ -154,7 +143,6 @@ sub HeaderInterface($) sub Parse($$) { my($idl,$basename) = @_; - $tab_depth = 0; $res = ""; pidl "/* header auto-generated by pidl */\n"; |