Changeset 361 for trunk/t/12_macros.t


Ignore:
Timestamp:
Jun 7, 2004, 9:39:35 PM (18 years ago)
Author:
kake
Message:

Test overhaul - no longer require database access info.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/12_macros.t

    r360 r361  
    44use Test::More tests => 2;
    55
    6 my $config = Config::Tiny->read( "wiki.conf" )
    7     or die "Couldn't read wiki.conf";
    8 my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
    9 my $formatter = $wiki->formatter;
     6eval { require DBD::SQLite; };
     7my $have_sqlite = $@ ? 0 : 1;
    108
    11 my $wikitext = <<WIKI;
     9SKIP: {
     10    skip "DBD::SQLite not installed - no database to test with", 2
     11      unless $have_sqlite;
     12
     13    my $config = Config::Tiny->new;
     14    $config->{_} = {
     15                     dbtype             => "sqlite",
     16                     dbname             => "t/node.db",
     17                     indexing_directory => "t/indexes",
     18                     script_url         => "",
     19                     script_name        => "",
     20                   };
     21
     22    my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
     23    my $formatter = $wiki->formatter;
     24
     25    my $wikitext = <<WIKI;
    1226
    1327\@INDEX_LINK [[Category Foo]]
     
    1731WIKI
    1832
    19 my $html = $formatter->format($wikitext);
    20 like( $html, qr/View all pages in Category Foo/,
    21       "\@INDEX_LINK has right default link text" );
    22 like( $html, qr/>Bars<\/a>/, "...and can be overridden" );
     33    my $html = $formatter->format($wikitext);
     34    like( $html, qr/View all pages in Category Foo/,
     35          "\@INDEX_LINK has right default link text" );
     36    like( $html, qr/>Bars<\/a>/, "...and can be overridden" );
     37}
Note: See TracChangeset for help on using the changeset viewer.