1use Test2::V0;
2
3use Config qw/%Config/;
4use File::Temp qw/tempfile/;
5use File::Spec;
6
7use App::Yath::Tester qw/yath/;
8use Test2::Harness::Util::File::JSONL;
9
10use Test2::Harness::Util       qw/clean_path/;
11use Test2::Harness::Util::JSON qw/decode_json/;
12
13my $dir = __FILE__;
14$dir =~ s{\.t$}{}g;
15$dir =~ s{^\./}{};
16
17# Make it very wrong to start
18local $ENV{T2_HARNESS_IS_VERBOSE} = 99;
19local $ENV{HARNESS_IS_VERBOSE} = 99;
20
21yath(
22    command => 'test',
23    args    => [File::Spec->catfile($dir, "not_verbose.tx")],
24    exit    => F(),
25);
26
27yath(
28    command => 'test',
29    args    => ['-v', File::Spec->catfile($dir, "verbose1.tx")],
30    exit    => F(),
31);
32
33yath(
34    command => 'test',
35    args    => ['-vv', File::Spec->catfile($dir, "verbose2.tx")],
36    exit    => F(),
37);
38
39done_testing;
40