| use strict; |
| use warnings FATAL => 'all'; |
| |
| use Apache::Test; |
| use Apache::TestUtil; |
| use Apache::TestRequest; |
| |
| if (have_min_apache_version("2.4.0")) { |
| |
| plan tests => 6, need need_lwp, need_auth, need_access, 'mod_access_compat.c', |
| 'mod_version.c', 'HTML::HeadParser'; |
| |
| my $location = "/TestAPI__access2"; |
| |
| ok !GET_OK $location; |
| |
| my $rc = GET_RC $location; |
| ok t_cmp $rc, 401, "no credentials passed"; |
| |
| # bad user |
| ok !GET_OK $location, username => 'root', password => '1234'; |
| |
| # good user/bad pass |
| ok !GET_OK $location, username => 'goo', password => 'foo'; |
| |
| # good user/good pass |
| ok GET_OK $location, username => 'goo', password => 'goopass'; |
| |
| # any user/any pass POST works |
| ok POST_OK $location, username => 'bar', password => 'goopass1', |
| content => "a"; |
| |
| } |
| else { |
| |
| plan tests => 1, need {"mod_perl is not compiled with httpd-2.4" => 0}; |
| |
| } |