$obj->{'q'}->param('username','admin');
$obj->{'q'}->param('password','secret');

diag('The value starts as: ' . $obj->{'cfg'}->param("paths.sessions"));
$obj->{'cfg'}->param("paths.sessions",'/home/hesco/sandbox/My-Project/t/sessions');
diag('The value ends as: ' . $obj->{'cfg'}->param("paths.sessions"));

$obj->_Authenticate();
is($obj->{'s'}->param("~logged-in"),1,'We have successfully logged in.');