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