X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=test.cgi;h=32618423cbd8098bdf25237aac5dfa5dd6894663;hb=dafa16ece9f3afab71764e6558a93c81a8c32085;hp=7fb3449e8241ba4c4433e044ee2615ce205fd68b;hpb=ca51f3c2135502ea61e79f271d88c45d7d05bdcd;p=cgi-auth-flexible.git

diff --git a/test.cgi b/test.cgi
index 7fb3449..3261842 100755
--- a/test.cgi
+++ b/test.cgi
@@ -10,9 +10,9 @@ use Data::Dumper;
 #use Carp::Always;
 $SIG{__DIE__} = sub { Carp::confess(@_) };
 
-my $dump = "$ENV{'CAHTEST_HOME'}/dump";
+my $dump = "$ENV{'CAHTEST_HOME'}/test-data";
 
-my $verifier = CGI::Auth::Flexible->new_verifier(
+my @verifier_params =(
     username_password_error => sub {
         my ($c,$r,$u,$p)=@_;
         return $p eq 'sesame' ? undef : 'wrong password'
@@ -21,7 +21,14 @@ my $verifier = CGI::Auth::Flexible->new_verifier(
     promise_check_mutate => 1,
     dir => $dump,
     srcdump_filter_cwd => 0,
-);
+    debug => sub { print STDERR "DEBUG ", @_[2..@_-1]; },
+    );
+
+push @verifier_params, (
+    get_url => sub { return $ENV{'CAFTEST_URL'}; },
+    ) if $ENV{'CAFTEST_URL'};
+
+my $verifier = CGI::Auth::Flexible->new_verifier(@verifier_params);
 
 END { $verifier->disconnect() if $verifier; }