full API for cop hint hashes
[perl.git] / ext / XS-APItest / t / cophh.t
1 use warnings;
2 use strict;
3 use Test::More tests => 2;
4
5 use XS::APItest;
6
7 XS::APItest::test_cophh();
8 ok 1;
9
10 is_deeply XS::APItest::example_cophh_2hv(), {
11     "foo_1" => 111,
12     "foo_\x{aa}" => 123,
13     "foo_\x{bb}" => 456,
14     "foo_\x{cc}" => 789,
15     "foo_\x{666}" => 666,
16 };
17
18 1;