xref: /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/cophh.t (revision 898184e3e61f9129feb5978fad5a8c6865f00b92)
1*898184e3Ssthenuse warnings;
2*898184e3Ssthenuse strict;
3*898184e3Ssthenuse Test::More tests => 2;
4*898184e3Ssthen
5*898184e3Ssthenuse XS::APItest;
6*898184e3Ssthen
7*898184e3SsthenXS::APItest::test_cophh();
8*898184e3Ssthenok 1;
9*898184e3Ssthen
10*898184e3Ssthenis_deeply XS::APItest::example_cophh_2hv(), {
11*898184e3Ssthen    "foo_1" => 111,
12*898184e3Ssthen    "foo_\x{aa}" => 123,
13*898184e3Ssthen    "foo_\x{bb}" => 456,
14*898184e3Ssthen    "foo_\x{cc}" => 789,
15*898184e3Ssthen    "foo_\x{666}" => 666,
16*898184e3Ssthen};
17*898184e3Ssthen
18*898184e3Ssthen1;
19