source: trunk/t/65_bug_metadata_escape.t @ 594

Last change on this file since 594 was 594, checked in by Dominic Hargreaves, 17 years ago

Update tests so they pass without Plucene installed again (was affected by
config rejig).

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1use CGI::Wiki::Setup::SQLite;
2use OpenGuides::Config;
3use Cwd;
4use OpenGuides;
5use Test::More;
6
7eval { require DBD::SQLite; };
8if ( $@ ) {
9    plan skip_all => "DBD:SQLite not installed";
10} else {
11    plan tests => 1;
12
13    CGI::Wiki::Setup::SQLite::cleardb( { dbname => "t/node.db" } );
14    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
15    my $config = OpenGuides::Config->new(
16           vars => {
17                     dbtype             => "sqlite",
18                     dbname             => "t/node.db",
19                     indexing_directory => "t/indexes",
20                     script_url         => "http://wiki.example.com/",
21                     script_name        => "mywiki.cgi",
22                     site_name          => "CGI::Wiki Test Site",
23                     template_path      => cwd . "/templates",
24                   }
25    );
26    eval { require CGI::Wiki::Search::Plucene; };
27    if ( $@ ) { $config->use_plucene ( 0 ) };
28
29    my $guide = OpenGuides->new( config => $config );
30
31    $guide->wiki->write_node( "South Croydon Station", "A sleepy main-line station in what is arguably the nicest part of Croydon.", undef, { phone => "<hr><h1>hello mum</h1><hr>" } ) or die "Can't write node";
32
33    my $output = $guide->display_node(
34                                       id => "South Croydon Station",
35                                       return_output => 1,
36                                     );
37    unlike( $output, qr'<hr><h1>hello mum</h1><hr>',
38            "HTML escaped in metadata on node display" );
39}
40
Note: See TracBrowser for help on using the repository browser.