#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

use File::Spec;
use Test::Run::Trap::Obj;

my $switches = "-I" . File::Spec->catdir(File::Spec->curdir(), "t", "test-libs", "lib1");
my $switches_lib2 = "-I" . File::Spec->catdir(File::Spec->curdir(), "t", "test-libs", "lib2");


# Test Switches()
{
    my $got = Test::Run::Trap::Obj->trap_run(
        {
            args =>
            [
                test_files => ["t/sample-tests/with-myhello"],
                Switches => $switches,
            ],
        }
    );

    # TEST
    $got->field_like("stdout", qr/All tests successful\./,
        "with-myhello - 'All tests successful.' string as is"
    );
}

# Test Switches_Env()
{
    my $got = Test::Run::Trap::Obj->trap_run(
        {
            args =>
            [
                test_files => ["t/sample-tests/with-myhello"],
                Switches_Env => $switches,
            ]
        }
    );

    # TEST
    $got->field_like("stdout", qr/All tests successful\./, 
        "With Switches_Env - 'All tests successful.' string as is"
    );
}

# Test both Switches() and Switches_Env().
{
    my $got = Test::Run::Trap::Obj->trap_run(
        {
            args => 
            [
                test_files => ["t/sample-tests/with-myhello-and-myfoo"],
                Switches => $switches_lib2,
                Switches_Env => $switches,
            ],
        }
    );

    # TEST
    $got->field_like("stdout",
        qr/All tests successful\./, 
        "With Switches and Switches_Env - 'All tests successful.' string as is"
    );
}

=head1 LICENSE

This file is licensed under the MIT X11 License:

http://www.opensource.org/licenses/mit-license.php