use ACIS::Web;

use ARDB::Test;

$ACIS::DEBUG = 'on';

sub My::ACIS::confirm
 {
  my $acis = shift;
  print "confirm......\n";
 }

$ENV{HTTP_HOST} = 'acis';
$ENV{SERVER_PORT} = 80;
$ENV{REQUEST_URI} = '/new-user/confirm';

$acis_web = new ACIS::Web ('t/home');

test $acis_web -> request -> {'screen'} eq 'new-user/confirm';

$ENV{REQUEST_URI} = '/confirm/notes!pAB101';

$acis_web = new ACIS::Web ('t/home');

test $acis_web -> request -> {'screen'} eq 'confirm/notes';
test $acis_web -> request -> {'session-id'} eq 'pAB101';

$ENV{REQUEST_URI} = '/confirm!pAB101';

$acis_web = new ACIS::Web ('t/home');

test $acis_web -> request -> {'screen'} eq 'confirm';
test $acis_web -> request -> {'session-id'} eq 'pAB101';

$ENV{REQUEST_URI} = '/confirm';

my $acis_web = new ACIS::Web ('t/home');

test $acis_web -> request -> {'screen'} eq 'confirm';

$ENV{REQUEST_URI} = '/';

$acis_web = new ACIS::Web ('t/home');

test not defined $acis_web -> request -> {'screen'};


