1#!perl
2
3use strict;
4use warnings;
5use Test::More tests => 6;
6
7use XS::APItest;
8
9sub foo () { "abc" }
10
11sub bar { }
12
13is(XS::APItest::gv_const_sv(*foo), "abc", "on const glob");
14is(XS::APItest::gv_const_sv("foo"), "abc", "on const by name");
15is(XS::APItest::gv_const_sv($::{"foo"}), "abc", "on const by lookup");
16is(XS::APItest::gv_const_sv(*bar), undef, "on non-const glob");
17is(XS::APItest::gv_const_sv("bar"), undef, "on non-const by name");
18is(XS::APItest::gv_const_sv($::{"bar"}), undef, "on non-const by lookup");
19