view release on metacpan or  search on metacpan

t/10_basic.t  view on Meta::CPAN

    },
    expect       => {
        env      => {},
        info     => "normally up",
        pid      => undef,
        seconds  => 636298,
        start_at => 1385696081,
        service  => join('/', $BASE_DIR, 'downdown'),
        status   => "down",
    },
);

test_service(
    service_name => 'upupup',
    desc         => 'another envdir (scalar)',
    new_argv     => {
        base_dir => $BASE_DIR,
    },
    status_argv => {
        env_dir => join('/', $BASE_DIR, 'upupup', 'env2'),
    },
    expect       => {
        env      => {
            BAR => "bar2",
            BAZ => "baz"
        },
        info     => "",
        pid      => 28247,
        seconds  => 4345,
        start_at => 1386328034,
        service  => join('/', $BASE_DIR, 'upupup'),
        status   => "up",
    },
);

test_service(
    service_name => 'upupup',
    desc         => 'another envdir (arrayref)',
    new_argv     => {
        base_dir => $BASE_DIR,
    },
    status_argv => {
        env_dir => [ join('/', $BASE_DIR, 'upupup', 'env2') ],
    },
    expect       => {
        env      => {
            BAR => "bar2",
            BAZ => "baz"
        },
        info     => "",
        pid      => 28247,
        seconds  => 4345,
        start_at => 1386328034,
        service  => join('/', $BASE_DIR, 'upupup'),
        status   => "up",
    },
);

test_service(
    service_name => 'upupup',
    desc         => 'cascade envdir',
    new_argv     => {
        base_dir => $BASE_DIR,
    },
    status_argv => {
        env_dir => [
            join('/', $BASE_DIR, 'upupup', 'env'),
            join('/', $BASE_DIR, 'upupup', 'env2'),
        ],
    },
    expect       => {
        env      => {
            FOO => "foo",
            BAR => "bar2",
            BAZ => "baz"
        },
        info     => "",
        pid      => 28247,
        seconds  => 4345,
        start_at => 1386328034,
        service  => join('/', $BASE_DIR, 'upupup'),
        status   => "up",
    },
);

done_testing;