Index: api.pl
===================================================================
RCS file: /home/cvspublic/modperl/t/net/perl/api.pl,v
retrieving revision 1.45
diff -u -r1.45 api.pl
--- api.pl	2001/05/01 17:28:41	1.45
+++ api.pl	2001/06/14 01:18:58
@@ -20,7 +20,7 @@
 my $is_win32 = WIN32;
 $tests += 2 unless $is_win32;
 my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
-my $test_custom_response = (MODULE_MAGIC_NUMBER >= 19980324) && ($tests += 2);
+my $test_custom_response = (MODULE_MAGIC_NUMBER >= 19980324) && ($tests += 4);
 my $test_dir_config = $INC{'Apache/TestDirectives.pm'} && ($tests += 9);
 
 my $i;
@@ -217,6 +217,8 @@
 if($test_custom_response) {
     test ++$i, $r->custom_response(403, "no chance") || 1;
     test ++$i, $r->custom_response(403) =~ /chance/;
+    test ++$i, $r->custom_response(403, undef) || 1;
+    test ++$i, not defined $r->custom_response(403);
 }
 
 if($test_get_set) {