File: App-PRT-Collector-FileHandle.t

package info (click to toggle)
prt 0.22-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 404 kB
  • sloc: perl: 1,185; makefile: 3
file content (23 lines) | stat: -rw-r--r-- 554 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
package t::App::PRT::Collector::FileHandle;
use t::test;

sub _require : Test(startup => 1) {
    my ($self) = @_;

    use_ok 'App::PRT::Collector::FileHandle';
}

sub instantiate : Tests {
    isa_ok App::PRT::Collector::FileHandle->new, 'App::PRT::Collector::FileHandle';
}

sub collect : Tests {
    my $directory = t::test::prepare_test_code('dinner');
    my $fh = file("$directory/lib/My/Food.pm")->open;

    my $collector = App::PRT::Collector::FileHandle->new($fh);

    cmp_deeply $collector->collect, [
        re(qr/prt-....\.pm/),
    ];
}