1#!/usr/bin/perl 2# (C) 2007 Jelmer Vernooij <jelmer@samba.org> 3# Published under the GNU General Public License 4use strict; 5use warnings; 6 7use Test::More tests => 1; 8use FindBin qw($RealBin); 9use lib "$RealBin"; 10use Util; 11use Parse::Pidl::Util qw(MyDumper); 12use Parse::Pidl::NDR qw(ValidElement); 13 14# Case 1 15 16my $e = { 17 'FILE' => 'foo.idl', 18 'NAME' => 'v', 19 'PROPERTIES' => {"subcontext" => 1}, 20 'POINTERS' => 0, 21 'TYPE' => 'uint8', 22 'PARENT' => { TYPE => 'STRUCT' }, 23 'LINE' => 42 }; 24 25test_warnings("foo.idl:42: subcontext() is deprecated. Use represent_as() or transmit_as() instead\n", 26 sub { ValidElement($e); }); 27