Author: nick Date: 2006-06-01 15:47:57 +0100 (Thu, 01 Jun 2006) New Revision: 795

Modified: trunk/t/22_rss_modwiki.t Log: Test both rss and atom feeds

Modified: trunk/t/22_rss_modwiki.t =================================================================== --- trunk/t/22_rss_modwiki.t 2006-06-01 14:40:59 UTC (rev 794) +++ trunk/t/22_rss_modwiki.t 2006-06-01 14:47:57 UTC (rev 795) @@ -18,95 +18,101 @@ exit 0; }

-plan tests => 7;

-# Clear out the database from any previous runs. -unlink "t/node.db"; -unlink <t/indexes/*>; +# Which feed types do we test? +my @feed_types = qw( rss atom ); +plan tests => 7 * scalar @feed_types;

-Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } ); -my $config = OpenGuides::Config->new( - vars => { - dbtype => "sqlite", - dbname => "t/node.db", - indexing_directory => "t/indexes", - script_name => "wiki.cgi", - script_url => "http://example.com/", - site_name => "Test Site", - template_path => "./templates", - home_name => "Home", - use_plucene => 1 - } -);

-# Basic sanity check first. -my $wiki = OpenGuides::Utils->make_wiki_object( config => $config ); +foreach my $feed_type (@feed_types) { + # Clear out the database from any previous runs. + unlink "t/node.db"; + unlink <t/indexes/*>;

-my $feed = OpenGuides::Feed->new( wiki => $wiki, - config => $config ); + Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } ); + my $config = OpenGuides::Config->new( + vars => { + dbtype => "sqlite", + dbname => "t/node.db", + indexing_directory => "t/indexes", + script_name => "wiki.cgi", + script_url => "http://example.com/", + site_name => "Test Site", + template_path => "./templates", + home_name => "Home", + use_plucene => 1 + } + );

-my $rss = eval { $feed->make_feed(feed_type => 'rss', feed_listing => 'recent_changes'); }; -is( $@, "", "->make_feed for rss doesn't croak" ); + # Basic sanity check first. + my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );

-# Now write some data, first a minor edit then a non-minor one. -my $guide = OpenGuides->new( config => $config ); - -# Set up CGI parameters ready for a node write. -# Most of these are in here to avoid uninitialised value warnings. -my $q = CGI->new; -$q->param( -name => "content", -value => "foo" ); -$q->param( -name => "categories", -value => "" ); -$q->param( -name => "locales", -value => "" ); -$q->param( -name => "phone", -value => "" ); -$q->param( -name => "fax", -value => "" ); -$q->param( -name => "website", -value => "" ); -$q->param( -name => "hours_text", -value => "" ); -$q->param( -name => "address", -value => "" ); -$q->param( -name => "postcode", -value => "" ); -$q->param( -name => "map_link", -value => "" ); -$q->param( -name => "os_x", -value => "" ); -$q->param( -name => "os_y", -value => "" ); -$q->param( -name => "username", -value => "bob" ); -$q->param( -name => "comment", -value => "foo" ); -$q->param( -name => "edit_type", -value => "Minor tidying" ); -$ENV{REMOTE_ADDR} = "127.0.0.1"; + my $feed = OpenGuides::Feed->new( wiki => $wiki, + config => $config );

-my $output = $guide->commit_node( - return_output => 1, - id => "Wombats", - cgi_obj => $q, - ); + my $rss = eval { $feed->make_feed(feed_type => $feed_type, feed_listing => 'recent_changes'); }; + is( $@, "", "->make_feed for $feed_type doesn't croak" );

-$q->param( -name => "edit_type", -value => "Normal edit" ); -$output = $guide->commit_node( - return_output => 1, - id => "Badgers", - cgi_obj => $q, - ); + # Now write some data, first a minor edit then a non-minor one. + my $guide = OpenGuides->new( config => $config ); + + # Set up CGI parameters ready for a node write. + # Most of these are in here to avoid uninitialised value warnings. + my $q = CGI->new; + $q->param( -name => "content", -value => "foo" ); + $q->param( -name => "categories", -value => "" ); + $q->param( -name => "locales", -value => "" ); + $q->param( -name => "phone", -value => "" ); + $q->param( -name => "fax", -value => "" ); + $q->param( -name => "website", -value => "" ); + $q->param( -name => "hours_text", -value => "" ); + $q->param( -name => "address", -value => "" ); + $q->param( -name => "postcode", -value => "" ); + $q->param( -name => "map_link", -value => "" ); + $q->param( -name => "os_x", -value => "" ); + $q->param( -name => "os_y", -value => "" ); + $q->param( -name => "username", -value => "bob" ); + $q->param( -name => "comment", -value => "foo" ); + $q->param( -name => "edit_type", -value => "Minor tidying" ); + $ENV{REMOTE_ADDR} = "127.0.0.1";

-$q->param( -name => "username", -value => "Kake" ); -$output = $guide->commit_node( - return_output => 1, - id => "Wombles", - cgi_obj => $q, - ); + my $output = $guide->commit_node( + return_output => 1, + id => "Wombats", + cgi_obj => $q, + );

-# Check that the writes went in. -ok( $wiki->node_exists( "Wombats" ), "Wombats written" ); -ok( $wiki->node_exists( "Badgers" ), "Badgers written" ); -ok( $wiki->node_exists( "Wombles" ), "Wombles written" ); + $q->param( -name => "edit_type", -value => "Normal edit" ); + $output = $guide->commit_node( + return_output => 1, + id => "Badgers", + cgi_obj => $q, + );

-# Check that the minor edits can be filtered out. -$output = $guide->display_feed( - feed_type => "rss", - feed_listing => "recent_changes", - items => 5, - username => "bob", - ignore_minor_edits => 1, - return_output => 1, - ); -unlike( $output, qr/Wombats/, "minor edits filtered out when required" ); -like( $output, qr/Badgers/, "but normal edits still in" ); + $q->param( -name => "username", -value => "Kake" ); + $output = $guide->commit_node( + return_output => 1, + id => "Wombles", + cgi_obj => $q, + );

-# Check that the username parameter is taken notice of. -unlike( $output, qr/Wombles/, "username parameter taken note of" ); + # Check that the writes went in. + ok( $wiki->node_exists( "Wombats" ), "Wombats written" ); + ok( $wiki->node_exists( "Badgers" ), "Badgers written" ); + ok( $wiki->node_exists( "Wombles" ), "Wombles written" ); + + # Check that the minor edits can be filtered out. + $output = $guide->display_feed( + feed_type => $feed_type, + feed_listing => "recent_changes", + items => 5, + username => "bob", + ignore_minor_edits => 1, + return_output => 1, + ); + unlike( $output, qr/Wombats/, "minor edits filtered out when required" ); + like( $output, qr/Badgers/, "but normal edits still in" ); + + # Check that the username parameter is taken notice of. + unlike( $output, qr/Wombles/, "username parameter taken note of" ); +}