Yet Another CPAN Grep

Net-SAJAX ( D/DO/DOUGDUDE/Net-SAJAX-0.107.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Net-SAJAX/t/request_malformed.t ( view source; MetaCPAN )

######
# REQUEST RETURNING HTML
{
	isnt(exception {$sajax->call(
		function  => 'Echo',
		arguments => ['I am some text!'],
	)}, undef, 'Returned plain text');

	isnt(exception {$sajax->call(
		functi

}, undef, 'Return HTML');

	isnt(exception {$sajax->call(
		function  => 'Echo',
		arguments => ['<script>var res="test";</script>res;'],
	)}, undef, 'Return HTML');

	isnt(exception {$sajax->call(

 'Echo',
		arguments => ['+:<script>var res="test";</script>res;'],
	)}, undef, 'Return HTML');

	isnt(exception {$sajax->call(
		function  => 'Echo',
		arguments => ["<html><head>\n\n+:var res='test'

Net-SAJAX ( D/DO/DOUGDUDE/Net-SAJAX-0.107.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Net-SAJAX/t/constructor.t ( view source; MetaCPAN )

########################################################
# EMPTY CONSTRUCTOR
# Expect: Failure
{
	isnt(exception { Net::SAJAX->new }, undef, 'Empty constructor does not succeed');
}

#################

###########################################
# CONSTRUCTOR WITH BAD ARGUMENTS
# Expect: Failure
{
	isnt(exception { Net::SAJAX->new(i_am_a_bad_argument => 1) }, undef,
		'Constructor with unknown argum

Net-SAJAX ( D/DO/DOUGDUDE/Net-SAJAX-0.107.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Net-SAJAX/t/attributes.t ( view source; MetaCPAN )

l,
	]);

	is($sajax->url, $url, 'URL successfully accessed');

	isnt($sajax->send_rand_key, 1, 'Default is to not send rand key');
	isnt($sajax->has_target_id, 1, 'Default has no target ID');

	# Mani

Net-SAJAX ( D/DO/DOUGDUDE/Net-SAJAX-0.107.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Net-SAJAX/t/request_garbage.t ( view source; MetaCPAN )

# REQUEST WITH HTML AT TOP
{
	my $data;

	# Disable autocleaning
	$sajax->autoclean_garbage(0);

	isnt(exception {$sajax->call(
		function  => 'Echo',
		arguments => ["<html><head>\n\n+:var res='test'

Net-SAJAX ( D/DO/DOUGDUDE/Net-SAJAX-0.107.tar.gz, DOUGDUDE, 2011; MetaCPAN )

Net-SAJAX/t/request_simple.t ( view source; MetaCPAN )

##################################
# REQUEST BAD FUNCTION
{
	my $data;

	# Non-existant function
	isnt(exception {$sajax->call(function => 'IDoNotExist')}, undef, 'Call a bad function');

	# Function