File Coverage

blib/lib/Poet/t/App.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Poet::t::App;
2             $Poet::t::App::VERSION = '0.16';
3 1     1   939 use Test::Class::Most parent => 'Poet::Test::Class';
  1         27972  
  1         8  
4              
5             sub test_app_name_to_dir : Tests {
6             require Poet::App::Command::new;
7              
8             my $try = sub {
9             return Poet::App::Command::new->app_name_to_dir( $_[0] );
10             };
11             is( $try->("FooBar"), "foo_bar" );
12             is( $try->("HM"), "hm" );
13             is( $try->("foo_bar"), "foo_bar" );
14             }
15              
16             1;