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