package Form::Factory::Test::CustomClassNames;

use Test::Class::Moose;
use Test::More;
use Test::Moose;

use Form::Factory;
use TestApp::Control::Null;
use TestApp::Feature::Null;
use TestApp::Feature::Control::Null;
use TestApp::Interface::Null;

sub custom_interface : Tests(1) {
    my $interface = Form::Factory->new_interface('Null');
    isa_ok($interface, 'TestApp::Interface::Null');
};

sub custom_control : Tests(1) {
    my $control = Form::Factory->control_class('null');
    is($control, 'TestApp::Control::Null');
};

sub custom_feature : Tests(1) {
    my $feature = Form::Factory->feature_class('null');
    is($feature, 'TestApp::Feature::Null');
};

sub custom_control_features : Tests(1) {
    my $feature = Form::Factory->control_feature_class('null');
    is($feature, 'TestApp::Feature::Control::Null');
};

1;