10624839896

Committed 30 Aug 2024 12:47AM UTC coverage: 80.187% (+0.4%) from 79.799%

Build # 10624839896

Build Type

push

github

Committed by

Commit Message

Run Details

3165 of 3947 relevant lines covered (80.19%)

81.25 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

85.19

/t/command-alias.t

#!/usr/bin/env perl
use Test2::V0;
use Test2::Tools::Spec;
use Config;

BEGIN { $ENV{SHELL} = "/bin/bash" }

use FindBin;
use lib $FindBin::Bin;
use App::perlbrew;
require "test2_helpers.pl";
use PerlbrewTestHelpers qw(stderr_like);

mock_perlbrew_install("perl-5.14.1");
mock_perlbrew_lib_create('perl-5.14.1@nobita');

describe "alias command," => sub {
    before_each 'cleanup env' => sub {
        delete $ENV{PERL_MB_OPT};
        delete $ENV{PERL_MM_OPT};
        delete $ENV{PERL_LOCAL_LIB_ROOT};
        delete $ENV{PERLBREW_LIB};
        delete $ENV{PERL5LIB};
    };

    describe "when invoked with unknown action name,", sub {
        it "should display usage message" => sub {
            my $x   = "correcthorsebatterystaple";
            my $app = App::perlbrew->new("alias", $x);
            stderr_like {
                eval {
                    $app->run;
                    1;
                }
                or do {
                    print STDERR $@;
                };
            } qr/ERROR: Unrecognized action: `$x`/;

        }
    };
};

done_testing;

1	#!/usr/bin/env perl
2	use Test2::V0;	×
3	use Test2::Tools::Spec;	1✔
4	use Config;
5		1✔
6	BEGIN { $ENV{SHELL} = "/bin/bash" }
7		1✔
8	use FindBin;	1✔
9	use lib $FindBin::Bin;	1✔
10	use App::perlbrew;	×
11	require "test2_helpers.pl";
12	use PerlbrewTestHelpers qw(stderr_like);	1✔
13		1✔
14	mock_perlbrew_install("perl-5.14.1");
15	mock_perlbrew_lib_create('perl-5.14.1@nobita');	×
16		×
17	describe "alias command," => sub {
18	before_each 'cleanup env' => sub {
19	delete $ENV{PERL_MB_OPT};
20	delete $ENV{PERL_MM_OPT};	1✔
21	delete $ENV{PERL_LOCAL_LIB_ROOT};	1✔
22	delete $ENV{PERLBREW_LIB};	1✔
23	delete $ENV{PERL5LIB};	1✔
24	};	1✔
25		1✔
26	describe "when invoked with unknown action name,", sub {
27	it "should display usage message" => sub {
28	my $x = "correcthorsebatterystaple";
29	my $app = App::perlbrew->new("alias", $x);	1✔
30	stderr_like {	1✔
31	eval {
32	$app->run;
33	1;	1✔
34	}	1✔
35	or do {
36	print STDERR $@;	1✔
37	};	1✔
38	} qr/ERROR: Unrecognized action: `$x`/;
39		1✔
40	}
41	};
42	};	1✔
43		1✔
44	done_testing;

gugod / App-perlbrew / 10624839896

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous