From a701484230bf1119900287326f7a57c07776e4e9 Mon Sep 17 00:00:00 2001 From: Stefan Metzmacher Date: Wed, 25 Aug 2010 10:07:54 +0200 Subject: pidl:Samba3/ClientNDR: remove unused ParseOutputArgument function metze --- pidl/tests/samba3-cli.pl | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'pidl/tests') diff --git a/pidl/tests/samba3-cli.pl b/pidl/tests/samba3-cli.pl index 319f1dd7c3..c758ef4542 100755 --- a/pidl/tests/samba3-cli.pl +++ b/pidl/tests/samba3-cli.pl @@ -4,12 +4,12 @@ use strict; use warnings; -use Test::More tests => 9; +use Test::More tests => 8; use FindBin qw($RealBin); use lib "$RealBin"; use Util; use Parse::Pidl::Util qw(MyDumper); -use Parse::Pidl::Samba3::ClientNDR qw(ParseFunction ParseOutputArgument); +use Parse::Pidl::Samba3::ClientNDR qw(ParseFunction); use Parse::Pidl::Samba4::Header qw(GenerateFunctionInEnv GenerateFunctionOutEnv); # Make sure GenerateFunctionInEnv and GenerateFunctionOutEnv work @@ -234,11 +234,3 @@ NTSTATUS rpccli_bar(struct rpc_pipe_client *cli, "); -$x = new Parse::Pidl::Samba3::ClientNDR(); - -$fn = { NAME => "bar", ELEMENTS => [ ], RETURN_TYPE => "WERROR" }; -my $e = { NAME => "foo", ORIGINAL => { FILE => "f", LINE => -1 }, - LEVELS => [ { TYPE => "ARRAY", SIZE_IS => "mysize" }, { TYPE => "DATA", DATA_TYPE => "int" } ]}; - -$x->ParseOutputArgument($fn, $e); -is($x->{res}, "memcpy(foo, r.out.foo, (mysize) * sizeof(*foo));\n"); -- cgit