Commits

Toby Inkster committed 1d99f85

update xt tests

Comments (0)

Files changed (4)

lib/IO/Callback/HTTP.pm

 	
 	unless (ref $code eq 'CODE')
 	{
-		$_LAST_CODE = 
+		$_LAST_CODE =
 		$code = ($mode eq '<')
 			? $self->_mk_reader($code, @args)
 			: $self->_mk_writer($code, @args)
 	$self->_process_arg(\%args);
 	
 	if ((not ref $code)
-	or  (blessed $code and $code->isa('URI'))
-	   )
+	or  (blessed $code and $code->isa('URI')))
 	{
 		$code = GET($code);
 	}
 	$self->_process_arg(\%args);
 	
 	if ((not ref $code)
-	or  (blessed $code and $code->isa('URI'))
-	   )
+	or  (blessed $code and $code->isa('URI')))
 	{
 		$code = PUT($code, Content => '');
 	}
 
 =item open
 
+=item USER_AGENT
+
 =end private
 
 =head1 CAVEATS

xt/02pod_coverage.t

+use XT::Util;
 use Test::More;
 use Test::Pod::Coverage;
 
-my @modules = qw(IO::Callback::HTTP);
-pod_coverage_ok($_, "$_ is covered") for @modules;
-done_testing(scalar @modules);
+plan skip_all => __CONFIG__->{skip_all}
+	if __CONFIG__->{skip_all};
 
+if ( __CONFIG__->{modules} )
+{
+	my @modules = @{ __CONFIG__->{modules} };
+	pod_coverage_ok($_, "$_ is covered") for @modules;
+	done_testing(scalar @modules);
+}
+else
+{
+	all_pod_coverage_ok();
+}
+
+use Test::Tabs;
+all_perl_files_ok();
+use XT::Util;
+use Test::More;
+use Test::HasVersion;
+
+plan skip_all => __CONFIG__->{skip_all}
+	if __CONFIG__->{skip_all};
+
+if ( __CONFIG__->{modules} )
+{
+	my @modules = @{ __CONFIG__->{modules} };
+	pm_version_ok($_, "$_ is covered") for @modules;
+	done_testing(scalar @modules);
+}
+else
+{
+	all_pm_version_ok();
+}
+