Changeset 565


Ignore:
Timestamp:
Nov 26, 2004, 2:12:39 PM (17 years ago)
Author:
kake
Message:

Take out some more common testing code into OpenGuides::Test - make_basic_config

Location:
trunk
Files:
13 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides/Test.pm

    r564 r565  
    11package OpenGuides::Test;
     2
     3use Config::Tiny;
    24
    35use strict;
     
    2022=head1 SYNOPSIS
    2123
    22   use Config::Tiny;
    2324  use OpenGuides;
    2425  use OpenGuides::Test;
    2526
    26   my $config = Config::Tiny->new( ... );
     27  my $config = OpenGuides::Test->make_basic_config;
     28  $config->{_}{default_language} = "nl";
     29
    2730  my $guide = OpenGuides->new( config => $config );
    2831
     
    3841
    3942=over 4
     43
     44=item B<make_basic_config>
     45
     46  my $config = OpenGuides::Test->make_basic_config;
     47  $config->{_}{default_language} = "nl";
     48
     49Makes a L<Config::Tiny> object with needed fields pre-filled.  You can
     50mess with it as you like then.
     51
     52=cut
     53
     54sub make_basic_config {
     55    my $config = Config::Tiny->new;
     56    $config->{_} = {
     57                     dbtype               => "sqlite",
     58                     dbname               => "t/node.db",
     59                     indexing_directory   => "t/indexes",
     60                     script_url           => "",
     61                     script_name          => "",
     62                     site_name            => "Test",
     63                     template_path        => "./templates",
     64                     custom_template_path => "./custom-templates",
     65                     home_name            => "Home",
     66                     geo_handler          => 1,
     67                   };
     68    return $config;
     69}
    4070
    4171=item B<write_data>
     
    5989    # Most of these are in here to avoid uninitialised value warnings.
    6090    my $q = CGI->new( "" );
    61     $q->param( -name => "content", -value => "foo" );
     91    $q->param( -name => "content", -value => $args{content} || "foo" );
    6292    $q->param( -name => "categories", -value => $args{categories} || "" );
    6393    $q->param( -name => "locales", -value => "" );
  • trunk/t/12_macros.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides;
     4use OpenGuides::Test;
    55use Test::More tests => 6;
    66
     
    1717    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    1818
    19     my $config = Config::Tiny->new;
    20     $config->{_} = {
    21                      dbtype             => "sqlite",
    22                      dbname             => "t/node.db",
    23                      indexing_directory => "t/indexes",
    24                      script_url         => "",
    25                      script_name        => "",
    26                      site_name          => "Test",
    27                      template_path      => "./templates",
    28                      home_name          => "Home",
    29                    };
    30 
     19    my $config = OpenGuides::Test->make_basic_config;
    3120    my $guide = OpenGuides->new( config => $config );
    3221    my $wiki = $guide->wiki;
  • trunk/t/26_geo_data_search_form.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides;
    54use OpenGuides::Test;
     
    4342
    4443CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    45 my $config = Config::Tiny->new;
    46 $config->{_} = {
    47                  dbtype             => "sqlite",
    48                  dbname             => "t/node.db",
    49                  indexing_directory => "t/indexes",
    50                  script_name        => "wiki.cgi",
    51                  script_url         => "http://example.com/",
    52                  site_name          => "Test Site",
    53                  home_name          => "Home",
    54                  template_path      => "./templates",
    55                  use_plucene        => 1,
    56                  geo_handler        => 1,
    57                };
     44my $config = OpenGuides::Test->make_basic_config;
     45$config->{_}{use_plucene} = 1;
    5846
    5947# British National Grid guides should have os_x/os_y/os_dist search fields.
  • trunk/t/27_geo_data_edit_form.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides;
    54use OpenGuides::Test;
     
    4443
    4544CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    46 my $config = Config::Tiny->new;
    47 $config->{_} = {
    48                  dbtype             => "sqlite",
    49                  dbname             => "t/node.db",
    50                  indexing_directory => "t/indexes",
    51                  script_name        => "wiki.cgi",
    52                  script_url         => "http://example.com/",
    53                  site_name          => "Test Site",
    54                  home_name          => "Home",
    55                  template_path      => "./templates",
    56                  default_language   => "en",
    57                  use_plucene        => 1,
    58                  geo_handler        => 1,
    59                };
     45my $config = OpenGuides::Test->make_basic_config;
     46$config->{_}{use_plucene} = 1;
    6047
    6148# British National Grid guides should have os_x/os_y fields.
  • trunk/t/31_supersearch.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides::SuperSearch;
     4use OpenGuides::Test;
    55use Test::More;
    66
     
    1616
    1717    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    18     my $config = Config::Tiny->new;
    19     $config->{_} = {
    20                      dbtype             => "sqlite",
    21                      dbname             => "t/node.db",
    22                      indexing_directory => "t/indexes",
    23                      script_name        => "wiki.cgi",
    24                      script_url         => "http://example.com/",
    25                      site_name          => "Test Site",
    26                      template_path      => "./templates",
    27                    };
     18    my $config = OpenGuides::Test->make_basic_config;
     19    $config->{_}{script_name} = "wiki.cgi";
     20    $config->{_}{script_url} = "http://example.com/";
    2821
    2922    # Plucene is the recommended searcher now.
  • trunk/t/34_supersearch_paging.t

    r564 r565  
    2828
    2929CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    30 my $config = Config::Tiny->new;
    31 $config->{_} = {
    32                  dbtype             => "sqlite",
    33                  dbname             => "t/node.db",
    34                  indexing_directory => "t/indexes",
    35                  script_name        => "wiki.cgi",
    36                  script_url         => "http://example.com/",
    37                  site_name          => "Test Site",
    38                  template_path      => "./templates",
    39                  use_plucene        => 1,
    40                  geo_handler        => 1,
    41                };
     30my $config = OpenGuides::Test->make_basic_config;
     31$config->{_}{use_plucene} = 1;
     32$config->{_}{script_name} = "wiki.cgi";
     33$config->{_}{script_url} = "http://example.com/";
    4234
    4335my $search = OpenGuides::SuperSearch->new( config => $config );
  • trunk/t/39_supersearch_form.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides::SuperSearch;
     4use OpenGuides::Test;
    55use Test::More;
    66
     
    4242
    4343CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    44 my $config = Config::Tiny->new;
    45 $config->{_} = {
    46                  dbtype             => "sqlite",
    47                  dbname             => "t/node.db",
    48                  indexing_directory => "t/indexes",
    49                  script_name        => "wiki.cgi",
    50                  script_url         => "http://example.com/",
    51                  site_name          => "Test Site",
    52                  home_name          => "Home",
    53                  template_path      => "./templates",
    54                  use_plucene        => 1,
    55                  geo_handler        => 1,
    56                };
     44my $config = OpenGuides::Test->make_basic_config;
     45$config->{_}{use_plucene} = 1;
    5746
    5847# British National Grid guides should have os and latlong search fields.
  • trunk/t/41_deletion.t

    r564 r565  
    11use strict;
    2 use Config::Tiny;
    3 use Cwd;
    42use CGI::Wiki::Formatter::UseMod;
    53use OpenGuides::Template;
     4use OpenGuides::Test;
    65use Test::MockObject;
    76use Test::More tests => 3;
    87
    9 my $config = Config::Tiny->new;
    10 $config->{_}->{template_path} = cwd . "/templates";
     8my $config = OpenGuides::Test->make_basic_config;
    119$config->{_}->{site_name} = "Test Site";
    1210$config->{_}->{script_url} = "/";
    13 $config->{_}->{script_name} = "";
    1411
    1512# White box testing - we know that OpenGuides::Template only actually uses
  • trunk/t/52_display_diffs.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides;
     4use OpenGuides::Test;
    55use Test::More tests => 4;
    66
     
    1313
    1414    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    15     my $config = Config::Tiny->new;
    16     $config->{_} = {
    17                      dbtype             => "sqlite",
    18                      dbname             => "t/node.db",
    19                      indexing_directory => "t/indexes",
    20                      script_name        => "wiki.cgi",
    21                      script_url         => "http://example.com/",
    22                      site_name          => "Test Site",
    23                      template_path      => "./templates",
    24                    };
     15    my $config = OpenGuides::Test->make_basic_config;
    2516    my $guide = OpenGuides->new( config => $config );
    2617    my $wiki = $guide->wiki;
  • trunk/t/53_show_index.t

    r564 r565  
    11use strict;
    22use CGI::Wiki::Setup::SQLite;
    3 use Config::Tiny;
    43use OpenGuides;
     4use OpenGuides::Test;
    55use Test::More tests => 6;
    66
     
    1313
    1414    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    15     my $config = Config::Tiny->new;
    16     $config->{_} = {
    17                      dbtype             => "sqlite",
    18                      dbname             => "t/node.db",
    19                      indexing_directory => "t/indexes",
    20                      script_name        => "wiki.cgi",
    21                      script_url         => "http://example.com/",
    22                      site_name          => "Test Site",
    23                      template_path      => "./templates",
    24                    };
     15    my $config = OpenGuides::Test->make_basic_config;
     16    $config->{_}{script_name} = "wiki.cgi";
     17    $config->{_}{script_url} = "http://example.com/";
    2518    my $guide = OpenGuides->new( config => $config );
    2619    isa_ok( $guide, "OpenGuides" );
  • trunk/t/55_node_history.t

    r564 r565  
    11use CGI::Wiki::Setup::SQLite;
    2 use Config::Tiny;
    3 use Cwd;
    42use OpenGuides;
     3use OpenGuides::Test;
    54use Test::More tests => 2;
    65
     
    1413    CGI::Wiki::Setup::SQLite::cleardb( { dbname => "t/node.db" } );
    1514    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    16     my $config = Config::Tiny->new;
    17     $config->{_} = {
    18                      dbtype             => "sqlite",
    19                      dbname             => "t/node.db",
    20                      indexing_directory => "t/indexes",
    21                      script_url         => "http://wiki.example.com/",
    22                      script_name        => "mywiki.cgi",
    23                      site_name          => "CGI::Wiki Test Site",
    24                      template_path      => cwd . "/templates",
    25                      home_name          => "Home",
    26                    };
    27 
     15    my $config = OpenGuides::Test->make_basic_config;
     16    $config->{_}{script_name} = "mywiki.cgi";
     17    $config->{_}{script_url} = "http://example.com/";
    2818    my $guide = OpenGuides->new( config => $config );
    2919
  • trunk/t/61_bug_textareas.t

    r564 r565  
    11use CGI::Wiki::Setup::SQLite;
    2 use Config::Tiny;
    3 use Cwd;
    42use OpenGuides::Template;
     3use OpenGuides::Test;
    54use OpenGuides::Utils;
    65use Test::More tests => 1;
     
    1413
    1514    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    16     my $config = Config::Tiny->new;
    17     $config->{_} = {
    18                      dbtype             => "sqlite",
    19                      dbname             => "t/node.db",
    20                      indexing_directory => "t/indexes",
    21                      script_url         => "http://wiki.example.com/",
    22                      script_name        => "mywiki.cgi",
    23                      site_name          => "CGI::Wiki Test Site",
    24                      template_path      => cwd . "/templates",
    25                    };
    26 
     15    my $config = OpenGuides::Test->make_basic_config;
    2716    my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
    2817
  • trunk/t/63_bug_map_link_no_address.t

    r564 r565  
    11use CGI::Wiki::Setup::SQLite;
    2 use Config::Tiny;
    3 use Cwd;
    42use OpenGuides;
     3use OpenGuides::Test;
    54use Test::More tests => 1;
    65
     
    1413    CGI::Wiki::Setup::SQLite::cleardb( { dbname => "t/node.db" } );
    1514    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
    16     my $config = Config::Tiny->new;
    17     $config->{_} = {
    18                      dbtype             => "sqlite",
    19                      dbname             => "t/node.db",
    20                      indexing_directory => "t/indexes",
    21                      script_url         => "http://wiki.example.com/",
    22                      script_name        => "mywiki.cgi",
    23                      site_name          => "CGI::Wiki Test Site",
    24                      template_path      => cwd . "/templates",
    25                      home_name          => "Home",
    26                    };
    27 
     15    my $config = OpenGuides::Test->make_basic_config;
    2816    my $guide = OpenGuides->new( config => $config );
    2917
Note: See TracChangeset for help on using the changeset viewer.