use Test::More 'no_plan';

use strict;
use warnings;

{
    package A;
    use Coat;
    has x => (is => 'rw', isa => 'Num', default => 42);

    package B;
    use Coat;
    extends 'A';
    has '+x' => (default => 23);
}

my $a = A->new;
my $b = B->new;

is ($a->x, 42, 'default value for a->x is 42' );
is ($b->x, 23, 'default value for b->x is 23' );