The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More tests => 5;

BEGIN { use_ok("WSST::Generator"); }

can_ok("WSST::Generator", qw(generator_names generate));

my $schema = WSST::Schema->new({
    company_name => 'Test',
    service_name => 'TestService',
    methods => [
        {
            name => 'do_something',
            url => 'http://localhost/ws/doSomething',
        },
        {
            name => 'doSomething2',
            url => 'http://localhost/ws/doSomething2',
        },
    ],
});

my $res_test1 = [
    'output/test1/Test.TestService.test',
    'output/test1/Test.TestService.DoSomething.test',
    'output/test1/Test.TestService.DoSomething2.test',
];

my $res_test2 = [
    'output/test2/Test_TestService_DoSomething.test',
    'output/test2/Test_TestService_DoSomething2.test',
    'output/test2/Test_TestService.test',
];

my $obj = WSST::Generator->new('tmpl_dir' => 't/test_templates');
ok(ref $obj, '$obj->new()');
is($obj->{tmpl_dir}, 't/test_templates', '$obj->{tmpl_dir}');
is_deeply($obj->generator_names, [qw(test1 test2)], '$obj->generator_names');
#is_deeply($obj->generate('test1', $schema), $res_test1, '$obj->generate(test1)');
#is_deeply($obj->generate('test2', $schema), $res_test2, '$obj->generate(test2)');

1;