in reply to RFC: Preventing a module from loading

Unless i am missing something (i most always am), would Test::MockObject be useful here? 
use Test::More qw(no_plan);
use Test::MockObject;
# use Roman;    # <- i don't have Roman.pm installed

my $roman = Test::MockObject->new();

$roman->set_true($_) for qw(roman isroman arabic);
ok($roman->isroman('IV'));

$roman->set_false('isroman');
ok($roman->isroman('42'));

[download]
or am i missing something?

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: (jeffa) Re: RFC: Preventing a module from loading
by Corion (Patriarch) on Feb 16, 2003 at 15:51 UTC

    In a certain way, my module implements the reverse. Test::MockObject implements faked modules, that always load (or rather are already loaded). My module makes sure that a given module cannot be found via require or use, and that all such calls fail.

    This module is solution to the following problem :

    I have a module, CGI::Wiki::Simple, which can optionally use HTML::Template. But HTML::Template might not be there, and then I want to fallback onto CGI::Wiki::Simple::NoTemplates, a subclass that provides hardcoded pages. But how do I test that this fallback works ?

    #!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use Test::Without::Module qw( HTML::Template );

BEGIN{ use_ok('CGI::Wiki::Simple') };

my $wiki = CGI::Wiki::Simple->new(
      PARAMS => { store => {} } # dummy store
   );
isa_ok($wiki, 'CGI::Wiki::Simple', "The created wiki");
isa_ok($wiki, 'CGI::Wiki::Simple::NoTemplates', "The created wiki");

    [download]
    perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web

    [download]
[reply]
[d/l]
[select]
      You might consider prefixing the JAPH sig in your post with a <hr> or something so it doesn't look like part of your sample code. I don't mean to nit-pick but it did trip me up.

      Thanks for this idea and code by the way; ++.

[reply]

In Section Meditations