Changeset 1040


Ignore:
Timestamp:
Jun 9, 2007, 2:30:30 PM (14 years ago)
Author:
kake
Message:

Eradicate Test::MockObject? from test 15

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/15_template.t

    r785 r1040  
    33use CGI::Cookie;
    44use Wiki::Toolkit::Formatter::UseMod;
    5 use OpenGuides::Config;
     5use OpenGuides;
    66use OpenGuides::Template;
    7 use Test::MockObject;
     7use OpenGuides::Test;
    88use Test::More tests => 28;
    99
    10 my $config = OpenGuides::Config->new(
    11        vars => {
    12                  template_path         => cwd . '/t/templates',
    13                  site_name             => 'Wiki::Toolkit Test Site',
    14                  script_url            => 'http://wiki.example.com/',
    15                  script_name           => 'mywiki.cgi',
    16                  default_country       => 'United Kingdom',
    17                  default_city          => 'London',
    18                  contact_email         => 'wiki@example.com',
    19                  stylesheet_url        => 'http://wiki.example.com/styles.css',
    20                  home_name             => 'Home Page',
    21                  formatting_rules_node => 'Rules',
    22                  formatting_rules_link => '',
    23                }
    24 );
    25 
    26 # White box testing - we know that OpenGuides::Template only actually uses
    27 # the node_name_to_node_param method of the formatter component of the wiki
    28 # object passed in, and I CBA to make a proper wiki object here.
    29 my $fake_wiki = Test::MockObject->new;
    30 $fake_wiki->mock("formatter",
    31                  sub { return Wiki::Toolkit::Formatter::UseMod->new( munge_urls => 1 ); } );
    32 
    33 eval { OpenGuides::Template->output( wiki   => $fake_wiki,
     10my $config = OpenGuides::Test->make_basic_config;
     11$config->template_path( cwd . "/t/templates" );
     12$config->site_name( "Wiki::Toolkit Test Site" );
     13$config->script_url( "http://wiki.example.com/" );
     14$config->script_name( "mywiki.cgi" );
     15$config->contact_email( 'wiki@example.com' );
     16$config->stylesheet_url( "http://wiki.example.com/styles.css" );
     17$config->home_name( "Home Page" );
     18$config->formatting_rules_node( "Rules" );
     19$config->formatting_rules_link( "" );
     20
     21my $guide = OpenGuides->new( config => $config );
     22my $wiki = $guide->wiki;
     23
     24eval { OpenGuides::Template->output( wiki   => $wiki,
    3425                                     config => $config ); };
    3526ok( $@, "->output croaks if no template file supplied" );
    3627
    3728eval {
    38     OpenGuides::Template->output( wiki     => $fake_wiki,
     29    OpenGuides::Template->output( wiki     => $wiki,
    3930                                  config   => $config,
    4031                                  template => "15_test.tt" );
     
    4334
    4435my $output = OpenGuides::Template->output(
    45     wiki     => $fake_wiki,
     36    wiki     => $wiki,
    4637    config   => $config,
    4738    template => "15_test.tt",
     
    5344
    5445$output = OpenGuides::Template->output(
    55     wiki         => $fake_wiki,
     46    wiki         => $wiki,
    5647    config       => $config,
    5748    template     => "15_test.tt",
     
    6253
    6354$output = OpenGuides::Template->output(
    64     wiki     => $fake_wiki,
     55    wiki     => $wiki,
    6556    config   => $config,
    6657    template => "15_idonotexist.tt"
     
    7061# Test TT variables are auto-set from config.
    7162$output = OpenGuides::Template->output(
    72     wiki     => $fake_wiki,
     63    wiki     => $wiki,
    7364    config   => $config,
    7465    template => "15_test.tt"
     
    9485# Test TT variables auto-set from node name.
    9586$output = OpenGuides::Template->output(
    96     wiki     => $fake_wiki,
     87    wiki     => $wiki,
    9788    config   => $config,
    9889    node     => "Test Node",
     
    10697my $cookie = CGI::Cookie->new( -name => "x", -value => "y" );
    10798$output = OpenGuides::Template->output(
    108     wiki     => $fake_wiki,
     99    wiki     => $wiki,
    109100    config   => $config,
    110101    template => "15_test.tt",
     
    125116);
    126117$output = OpenGuides::Template->output(
    127     wiki     => $fake_wiki,
     118    wiki     => $wiki,
    128119    config   => $config,
    129120    template => "15_test.tt"
     
    142133);
    143134$output = OpenGuides::Template->output(
    144     wiki     => $fake_wiki,
     135    wiki     => $wiki,
    145136    config   => $config,
    146137    template => "15_test.tt"
     
    160151);
    161152$output = OpenGuides::Template->output(
    162     wiki     => $fake_wiki,
     153    wiki     => $wiki,
    163154    config   => $config,
    164155    template => "15_test.tt"
     
    174165$ENV{HTTP_COOKIE} = $cookie;
    175166$output = OpenGuides::Template->output(
    176     wiki     => $fake_wiki,
     167    wiki     => $wiki,
    177168    config   => $config,
    178169    template => "15_test.tt"
     
    183174# Test that explicitly supplied vars override vars in cookie.
    184175$output = OpenGuides::Template->output(
    185     wiki     => $fake_wiki,
     176    wiki     => $wiki,
    186177    config   => $config,
    187178    template => "15_test.tt",
     
    202193
    203194$output = OpenGuides::Template->output(
    204     wiki     => $fake_wiki,
     195    wiki     => $wiki,
    205196    config   => $config,
    206197    template => "15_test.tt",
     
    211202$config->enable_page_deletion( "n" );
    212203$output = OpenGuides::Template->output(
    213     wiki     => $fake_wiki,
     204    wiki     => $wiki,
    214205    config   => $config,
    215206    template => "15_test.tt",
     
    220211$config->enable_page_deletion( "y" );
    221212$output = OpenGuides::Template->output(
    222     wiki     => $fake_wiki,
     213    wiki     => $wiki,
    223214    config   => $config,
    224215    template => "15_test.tt",
     
    229220$config->enable_page_deletion( 0 );
    230221$output = OpenGuides::Template->output(
    231     wiki     => $fake_wiki,
     222    wiki     => $wiki,
    232223    config   => $config,
    233224    template => "15_test.tt",
     
    238229$config->enable_page_deletion( 1 );
    239230$output = OpenGuides::Template->output(
    240     wiki     => $fake_wiki,
     231    wiki     => $wiki,
    241232    config   => $config,
    242233    template => "15_test.tt",
Note: See TracChangeset for help on using the changeset viewer.