1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / opt / PUC / t /
Filename : 02-WebApp.t
back
#!/usr/bin/env perl
use strict;
use warnings;

use FindBin;

use Test::More;
use Test::Exception;

if ( use_ok('PUC::Collector') and use_ok('PUC::Module::WebApp') ) {

    my $app_config;
    my $domains;

    subtest 'Get PUC::Collector config' => sub {
        my $bindir   = $FindBin::Bin . '/..';
        my $debug    = $ENV{TEST_VERBOSE} || 0;
        my $dryrun   = 1;
        my $dataroot = $FindBin::Bin . '/../testdata/';

        lives_ok {
            $app_config = PUC::Collector::parse_config(
                bindir   => $bindir,
                debug    => $debug,
                dryrun   => $dryrun,
                dataroot => $dataroot,
            );
        }
        'Lives through parsing PUC::Collector config';

        lives_ok {
            $domains = PUC::Collector::get_domain_list($app_config);
        }
        ' Lives through getting domains';
    };

    if ($app_config) {

        subtest 'new' => sub {
            my $module;
            lives_ok {
                $module = PUC::Module::WebApp->new( app_config => $app_config );
            }
            'Lives through init';

            cmp_ok(
                scalar( keys %{ $module->{webapps} } ),
                '==', 4, 'Found 4 webapp definitions'
            );
        };

        # find_web_app will fail if init failed.
        subtest 'find_web_app - should find wordpress' => sub {
            for my $domain ( @{$domains} ) {
                if ( $domain->{docroot} =~ /add.osshareddec4.com/ ) {
                    my $result;
                    lives_ok {
                        $result = PUC::Module::WebApp->new($app_config)
                          ->find_web_app( $domain, 'wordpress' );
                    }
                    'Lives through finding wordpress';

                    if ( cmp_ok( ref($result), 'eq', 'HASH', 'Got a hash' ) ) {
                        cmp_ok(
                            $result->{webApp}->{name}, 'eq', 'wordpress',
                            'found wordpress'
                        );
                    }
                }
            }
        };

    }

}

done_testing;