Changeset 587 for trunk/t/11_utils.t


Ignore:
Timestamp:
Dec 14, 2004, 6:46:00 PM (17 years ago)
Author:
kake
Message:

Encapsulate config data in OpenGuides::Config.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/11_utils.t

    r586 r587  
    11use strict;
    2 use Config::Tiny;
     2use OpenGuides::Config;
    33use OpenGuides::Utils;
    44use Test::More tests => 7;
     
    88
    99eval { my $wiki = OpenGuides::Utils->make_wiki_object( config => "foo" ); };
    10 ok( $@, "...and if config param isn't a Config::Tiny object" );
     10ok( $@, "...and if config param isn't an OpenGuides::Config object" );
    1111
    1212eval { require DBD::SQLite; };
     
    1717      unless $have_sqlite;
    1818
    19     my $config = Config::Tiny->new;
    20     $config->{_} = {
     19    my $config = OpenGuides::Config->new(
     20           vars => {
    2121                     dbtype             => "sqlite",
    2222                     dbname             => "t/node.db",
     
    2424                     script_url         => "",
    2525                     script_name        => "",
    26                    };
     26                   }
     27    );
    2728
    2829    my $wiki = eval {
     
    3031    };
    3132    is( $@, "",
    32         "...but not if a Config::Tiny object with suitable data is supplied" );
     33        "...but not with an OpenGuides::Config object with suitable data" );
    3334    isa_ok( $wiki, "CGI::Wiki" );
    3435
Note: See TracChangeset for help on using the changeset viewer.