#!/usr/bin/perl
use strict;
use warnings;
use 5.008; # CLONE only supported in Perl > 5.8

use Test::More tests => 7;

require_ok( "SafeObject" );

my $obj = SafeObject->new;
isa_ok( $obj, "SafeObject" );

is( $obj->name( "Charlie" ), "Charlie", "mutator returns value"  );
is( $obj->name()           , "Charlie", "accessor returns value" );

my $child_pid = fork;
if ( !$child_pid ) { # we're in the child
        is( $obj->name(        ), "Charlie", "got right name in child");
        is( $obj->name( "Fred" ), "Fred"   , "changed name in child"  );
        exit;
}

# wait for child to finish
waitpid $child_pid, 0;

# Test counter is off due to the fork
Test::More->builder->current_test( 6 );

is( $obj->name(), "Charlie", "parent still has original name" );