2
# (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3
# Published under the GNU General Public License
7
use Test::More tests => 7;
8
use FindBin qw($RealBin);
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"));