Commit 0ea69bb8 authored by Xavier Guimard's avatar Xavier Guimard

Improve #1700 test

parent ce00317d
...@@ -4,7 +4,7 @@ use IO::String; ...@@ -4,7 +4,7 @@ use IO::String;
use JSON; use JSON;
use Test::More; use Test::More;
our $debug = 'debug'; our $debug = 'error';
my ( $p, $res, $spId ); my ( $p, $res, $spId );
$| = 1; $| = 1;
...@@ -52,6 +52,8 @@ ok( ...@@ -52,6 +52,8 @@ ok(
'AuthBasic request' 'AuthBasic request'
); );
count(1); count(1);
expectOK($res);
expectAuthenticatedAs($res,'dwho');
ok( ok(
$res = handler( $res = handler(
...@@ -68,6 +70,7 @@ ok( ...@@ -68,6 +70,7 @@ ok(
); );
count(1); count(1);
expectOK($res); expectOK($res);
expectAuthenticatedAs($res,'dwho');
end_handler(); end_handler();
clean_sessions(); clean_sessions();
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment