Author: dom Date: 2006-09-10 16:07:08 +0100 (Sun, 10 Sep 2006) New Revision: 847
Modified: trunk/t/24_feed_node_listings.t trunk/t/53_show_index.t trunk/t/72_node_moderation.t Log: Minor warning fixes
Modified: trunk/t/24_feed_node_listings.t =================================================================== --- trunk/t/24_feed_node_listings.t 2006-08-30 21:39:25 UTC (rev 846) +++ trunk/t/24_feed_node_listings.t 2006-09-10 15:07:08 UTC (rev 847) @@ -133,7 +133,7 @@ }
# Ask build_feed_for_nodes to make a feed of these - my $output = $feed->build_feed_for_nodes($feed_type,@all_nodes); + $output = $feed->build_feed_for_nodes($feed_type,@all_nodes);
like( $output, qr/<title>Wombats/, "Found wombats" ); like( $output, qr/<title>Badgers/, "Found badgers" ); @@ -159,7 +159,7 @@ like( $output, qr/<title>Wombats/, "Wombats had wombats" ); unlike( $output, qr/<title>Badgers/, "Wombats didn't have Badgers" );
- my @wombats = $output =~ /(<title>Wombats)/g; + @wombats = $output =~ /(<title>Wombats)/g; is( scalar @wombats, 3, "All 3 wombat versions found" );
# Check it was really the mini version
Modified: trunk/t/53_show_index.t =================================================================== --- trunk/t/53_show_index.t 2006-08-30 21:39:25 UTC (rev 846) +++ trunk/t/53_show_index.t 2006-09-10 15:07:08 UTC (rev 847) @@ -74,7 +74,7 @@ "RSS output gets content-type of application/rdf+xml" ); like( $output, "/<rdf:RDF.*?http://purl.org/rss//s", "Really is rss" ); #like( $output, qr|<title>Category Alpha</title>|, "Right rss title" ); - my @entries = ($output =~ /(</item>)/g); + @entries = ($output =~ /(</item>)/g); is( 2, scalar @entries, "Right number of nodes included in rss" );
# Test the Atom version @@ -91,6 +91,6 @@ "Atom output gets content-type of application/atom+xml" ); like( $output, qr|<feed|, "Really is atom" ); #like( $output, qr|<title>Category Alpha</title>|, "Right atom title" ); - my @entries = ($output =~ /(<entry>)/g); + @entries = ($output =~ /(<entry>)/g); is( 2, scalar @entries, "Right number of nodes included in atom" ); }
Modified: trunk/t/72_node_moderation.t =================================================================== --- trunk/t/72_node_moderation.t 2006-08-30 21:39:25 UTC (rev 846) +++ trunk/t/72_node_moderation.t 2006-09-10 15:07:08 UTC (rev 847) @@ -70,7 +70,7 @@ $q->param( -name => "locales", -value => "Hello" ); $q->param( -name => "edit_type", -value => "Normal edit" ); $q->param( -name => "checksum", -value => $details{checksum} ); - my $output = $guide->commit_node( + $output = $guide->commit_node( return_output => 1, id => "Wombats", cgi_obj => $q,