pidl/tests/cutil.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 => 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);
  13
  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"));
  18
  19 is("foo", get_value_of("&foo"));
  20 is("*foo", get_value_of("foo"));
  21 is("**foo", get_value_of("*foo"));