← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to pidl/tests/ndr_deprecations.pl

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
pidl/tests/ndr_deprecations.pl
 
1
#!/usr/bin/perl
 
2
# (C) 2007 Jelmer Vernooij <jelmer@samba.org>
 
3
# Published under the GNU General Public License
 
4
use strict;
 
5
use warnings;
 
6
 
 
7
use Test::More tests => 1;
 
8
use FindBin qw($RealBin);
 
9
use lib "$RealBin";
 
10
use Util;
 
11
use Parse::Pidl::Util qw(MyDumper);
 
12
use Parse::Pidl::NDR qw(ValidElement);
 
13
 
 
14
# Case 1
 
15
 
 
16
my $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
 
 
25
test_warnings("foo.idl:42: subcontext() is deprecated. Use represent_as() or transmit_as() instead\n", 
 
26
        sub { ValidElement($e); });