VERSION: Bump version number up to 3.6.13.
[Samba.git] / pidl / tests / cutil.pl
blob78c8bce45e15964be12b61bfeb6ffe2a07d9f9c5
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;
7 use Test::More tests => 7;
8 use FindBin qw($RealBin);
9 use lib "$RealBin";
10 use Util;
11 use Parse::Pidl::Util qw(MyDumper);
12 use Parse::Pidl::CUtil qw(get_pointer_to get_value_of);
14 is("&foo", get_pointer_to("foo"));
15 is("&(&foo)", get_pointer_to(get_pointer_to("foo")));
16 is("*foo", get_pointer_to("**foo"));
17 is("foo", get_pointer_to("*foo"));
19 is("foo", get_value_of("&foo"));
20 is("*foo", get_value_of("foo"));
21 is("**foo", get_value_of("*foo"));