sub meta_refresh
{
	my $mech = shift;
	my $expected_url = shift;
	
	my $url;
	
	if($mech->content() =~ /<meta http-equiv="refresh" content="0;url=([^"]*)"/)
	{
		$url = $1;
	}

	cmp_ok($expected_url, 'eq', $url, "The meta refresh returns the expected URL");
	
	$mech->get( $expected_url );
	ok($mech->success(), "URL loaded successfully");
}

##</code><code>##

   # Code to cause the refresh to appear not shown.
   
   # Check the refresh and follow
   meta_refresh($mech, '/index.cgi?rm=home');