gugod / App-perlbrew / 10349170376

coverage: 79.675%. Remained the same
10349170376

push

github

3085 of 3872 relevant lines covered (79.67%)

82.0 hits per line

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

78.95
/t/command-install-cpm.t
1 
#!/usr/bin/env perl
2 
use Test2::V0;
1✔
3 
use Test2::Tools::Spec;
1✔
4 
use File::Temp qw( tempdir );
1✔
5 









6



use App::perlbrew;




1✔





7



$App::perlbrew::PERLBREW_ROOT = my $perlbrew_root = tempdir( CLEANUP => 1 );




×







8



$App::perlbrew::PERLBREW_HOME = my $perlbrew_home = tempdir( CLEANUP => 1 );




×







9












10



{










11



    no warnings 'redefine';




1✔





12



    sub App::perlbrew::http_get {










13



        my ($url) = @_;




1✔





14



        like $url, qr/cpm$/, "GET cpm url: $url";




1✔





15



        return "#!/usr/bin/env perl\n# The content of cpm";




1✔





16



    }










17



}










18












19



describe "App::perlbrew->install_cpm" => sub {




×







20



    it "should produce 'cpm' in the bin dir" => sub {










21



        my $app = App::perlbrew->new("install-cpm", "-q");




×







22



        $app->run();




1✔





23












24



        my $cpm = App::Perlbrew::Path->new($perlbrew_root, "bin", "cpm");




1✔





25



        ok -f $cpm, "cpm is produced. $cpm";




1✔





26



        ok -x $cpm, "cpm should be an executable.";




1✔





27



    };




1✔





28



};




1✔





29












30



done_testing;




1✔



















    

  • 

    •