1use warnings;
2use strict;
3
4use Config;
5use IPC::Shareable;
6use Test::More;
7
8if ($Config{nvsize} != 8) {
9    plan skip_all => "Storable not compatible with long doubles";
10}
11
12system "$^X t/_spawn";
13
14tie my %h, 'IPC::Shareable', {
15    key       => 'aaaa',
16#    destroy   => 1,
17    mode      => 0666,
18};
19
20is $h{t70}->[1], 5, "hash element ok";
21
22IPC::Shareable->unspawn('aaaa');
23
24is %h, 1, "hash still exists with unspawn and no destroy";
25
26done_testing();
27