<h2>Edit File: 02-WebApp.t</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/env perl
use strict;
use warnings;

use FindBin;

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

if ( use_ok(&#039;PUC::Collector&#039;) and use_ok(&#039;PUC::Module::WebApp&#039;) ) {

    my $app_config;
    my $domains;

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

        lives_ok {
            $app_config = PUC::Collector::parse_config(
                bindir   =&gt; $bindir,
                debug    =&gt; $debug,
                dryrun   =&gt; $dryrun,
                dataroot =&gt; $dataroot,
            );
        }
        &#039;Lives through parsing PUC::Collector config&#039;;

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

    if ($app_config) {

        subtest &#039;new&#039; =&gt; sub {
            my $module;
            lives_ok {
                $module = PUC::Module::WebApp-&gt;new( app_config =&gt; $app_config );
            }
            &#039;Lives through init&#039;;

            cmp_ok(
                scalar( keys %{ $module-&gt;{webapps} } ),
                &#039;==&#039;, 4, &#039;Found 4 webapp definitions&#039;
            );
        };

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

                    if ( cmp_ok( ref($result), &#039;eq&#039;, &#039;HASH&#039;, &#039;Got a hash&#039; ) ) {
                        cmp_ok(
                            $result-&gt;{webApp}-&gt;{name}, &#039;eq&#039;, &#039;wordpress&#039;,
                            &#039;found wordpress&#039;
                        );
                    }
                }
            }
        };

    }

}

done_testing;
</textarea><br><input type="hidden" name="edit_file" value="02-WebApp.t"><input type="submit" value="Save"></form>