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'