source: trunk/t/22_rss_modwiki.t @ 795

Last change on this file since 795 was 795, checked in by nick, 15 years ago

Test both rss and atom feeds

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.5 KB
Line 
1use strict;
2use Wiki::Toolkit::Setup::SQLite;
3use OpenGuides::Config;
4use OpenGuides;
5use OpenGuides::Feed;
6use OpenGuides::Utils;
7use Test::More;
8
9eval { require DBD::SQLite; };
10if ( $@ ) {
11    plan skip_all => "DBD::SQLite not installed";
12    exit 0;
13}
14
15eval { require Wiki::Toolkit::Search::Plucene; };
16if ( $@ ) {
17    plan skip_all => "Plucene not installed";
18    exit 0;
19}
20
21
22# Which feed types do we test?
23my @feed_types = qw( rss atom );
24plan tests => 7 * scalar @feed_types;
25
26
27foreach my $feed_type (@feed_types) {
28    # Clear out the database from any previous runs.
29    unlink "t/node.db";
30    unlink <t/indexes/*>;
31
32    Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } );
33    my $config = OpenGuides::Config->new(
34           vars => {
35                     dbtype             => "sqlite",
36                     dbname             => "t/node.db",
37                     indexing_directory => "t/indexes",
38                     script_name        => "wiki.cgi",
39                     script_url         => "http://example.com/",
40                     site_name          => "Test Site",
41                     template_path      => "./templates",
42                     home_name          => "Home",
43                     use_plucene        => 1
44                   }
45    );
46
47    # Basic sanity check first.
48    my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
49
50    my $feed = OpenGuides::Feed->new( wiki   => $wiki,
51                                      config => $config );
52
53    my $rss = eval { $feed->make_feed(feed_type => $feed_type, feed_listing => 'recent_changes'); };
54    is( $@, "", "->make_feed for $feed_type doesn't croak" );
55
56    # Now write some data, first a minor edit then a non-minor one.
57    my $guide = OpenGuides->new( config => $config );
58       
59    # Set up CGI parameters ready for a node write.
60    # Most of these are in here to avoid uninitialised value warnings.
61    my $q = CGI->new;
62    $q->param( -name => "content", -value => "foo" );
63    $q->param( -name => "categories", -value => "" );
64    $q->param( -name => "locales", -value => "" );
65    $q->param( -name => "phone", -value => "" );
66    $q->param( -name => "fax", -value => "" );
67    $q->param( -name => "website", -value => "" );
68    $q->param( -name => "hours_text", -value => "" );
69    $q->param( -name => "address", -value => "" );
70    $q->param( -name => "postcode", -value => "" );
71    $q->param( -name => "map_link", -value => "" );
72    $q->param( -name => "os_x", -value => "" );
73    $q->param( -name => "os_y", -value => "" );
74    $q->param( -name => "username", -value => "bob" );
75    $q->param( -name => "comment", -value => "foo" );
76    $q->param( -name => "edit_type", -value => "Minor tidying" );
77    $ENV{REMOTE_ADDR} = "127.0.0.1";
78
79    my $output = $guide->commit_node(
80                                      return_output => 1,
81                                      id => "Wombats",
82                                      cgi_obj => $q,
83                                    );
84
85    $q->param( -name => "edit_type", -value => "Normal edit" );
86    $output = $guide->commit_node(
87                                   return_output => 1,
88                                   id => "Badgers",
89                                   cgi_obj => $q,
90                                 );
91
92    $q->param( -name => "username", -value => "Kake" );
93    $output = $guide->commit_node(
94                                   return_output => 1,
95                                   id => "Wombles",
96                                   cgi_obj => $q,
97                                 );
98
99    # Check that the writes went in.
100    ok( $wiki->node_exists( "Wombats" ), "Wombats written" );
101    ok( $wiki->node_exists( "Badgers" ), "Badgers written" );
102    ok( $wiki->node_exists( "Wombles" ), "Wombles written" );
103
104    # Check that the minor edits can be filtered out.
105    $output = $guide->display_feed(
106                                   feed_type          => $feed_type,
107                                   feed_listing       => "recent_changes",
108                                   items              => 5,
109                                   username           => "bob",
110                                   ignore_minor_edits => 1,
111                                   return_output      => 1,
112                                 );
113    unlike( $output, qr/Wombats/, "minor edits filtered out when required" );
114    like( $output, qr/Badgers/, "but normal edits still in" );
115
116    # Check that the username parameter is taken notice of.
117    unlike( $output, qr/Wombles/, "username parameter taken note of" );
118}
Note: See TracBrowser for help on using the repository browser.