use strictures;
use Test::More;

{
    package Page;
    use HTML::FormHandler::Moose;
    extends 'HTML::FormHandler';
    has_field wizard_id => ( type => 'Text' );
}

{
    package Page1;
    use HTML::FormHandler::Moose;
    extends 'Page';
    has_field page1_data => ( type => 'Text' );
}

{
    package Page2;
    use HTML::FormHandler::Moose;
    extends 'Page';
    has_field page2_data => (
        type => 'Repeatable'
    );
    has_field 'page2_data.text' => ( type => 'Text' );
}

my $initial_data = {
    wizard_id => rand(),
    page1_data => 'Hello'
};

my @pages = map { $_->new } qw( Page1 Page2 );
$_->process(params => $initial_data) for @pages;

ok(@{ $pages[1]->field('page2_data')->fields } > 0);
diag(scalar @{ $pages[1]->field('page2_data')->fields });

done_testing;