Yet Another CPAN Grep

Test-Override-UserAgent ( D/DO/DOUGDUDE/Test-Override-UserAgent-0.004001.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Test-Override-UserAgent/t/configuration_with_defaults.t ( view source; MetaCPAN )

ntent, 'override', 'GET /only.get';
isnt $ua->post('http://localhost/only.get')->content, 'override', 'POST /only.get';

# Check that embedded defaults extended
isnt $ua->get('http://elsewhere/only.ge

erridden deeper in scope
is $ua->get('http://someplace/other')->content, 'override', 'host default changed';
isnt $ua->get('http://localhost/other')->content, 'override', 'old host not set';

exit 0;

Test-Override-UserAgent ( D/DO/DOUGDUDE/Test-Override-UserAgent-0.004001.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Test-Override-UserAgent/t/user_agent.t ( view source; MetaCPAN )

 { $conf->uninstall_from_user_agent($ua) }, undef,
	'Uninstall from user agent');

# Make request
isnt($ua->get('http://localhost/NOTHING')->content, 'NO',
	'Overridden request no longer present');

#

tall_in_user_agent($ua, clone => 1);

# They should not be the same
isnt($clone_ua, $ua, 'Clone UA is clone');

# Test overrides
isnt($ua->get('http://localhost/NOTHING')->content, 'NO',
	'Original UA

Test-Override-UserAgent ( D/DO/DOUGDUDE/Test-Override-UserAgent-0.004001.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Test-Override-UserAgent/t/scope.t ( view source; MetaCPAN )

s_line, '404 Not Found (No Live Requests)',
		'www.google.com request failed');
}

# Make request
isnt($ua->get('http://localhost/NOTHING')->content, 'NO',
	'Overridden request no longer present');

{

Test-Override-UserAgent ( D/DO/DOUGDUDE/Test-Override-UserAgent-0.004001.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Test-Override-UserAgent/t/live_restriction.t ( view source; MetaCPAN )

move hooks from the UA
	$conf->uninstall_from_user_agent($ua);

	# Make sure uninstall succeeded
	isnt $ua->get('http://localhost/here')->content, 'i am here',
		'Hooks uninstall from user agent';

	{