Acme-CatFS
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
subtest "basic" => sub {
can_ok 'Acme::CatFS', 'run', 'new', 'new_with_options';
my $catfs = Acme::CatFS->new(mountpoint => '/');
isa_ok $catfs, 'Acme::CatFS';
};
subtest "mountpoint should be required" => sub {
throws_ok {
Acme::CatFS->new
}
qr/mountpoint/,
'mountpoint should be required';
};
subtest "run should call Fuse::Simple::main and LWP::Simple::get" => sub {
my $random_cat_pic;
mock 'LWP::Simple'
( run in 0.413 second using v1.01-cache-2.11-cpan-496ff517765 )