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 => 7; 8use FindBin qw($RealBin); 9use lib "$RealBin"; 10use Util; 11use Parse::Pidl::Util qw(MyDumper); 12use Parse::Pidl::CUtil qw(get_pointer_to get_value_of); 13 14is("&foo", get_pointer_to("foo")); 15is("&(&foo)", get_pointer_to(get_pointer_to("foo"))); 16is("*foo", get_pointer_to("**foo")); 17is("foo", get_pointer_to("*foo")); 18 19is("foo", get_value_of("&foo")); 20is("*foo", get_value_of("foo")); 21is("**foo", get_value_of("*foo")); 22