3 use Test::More tests => 4;
5 diag("Simple tests against the open-ils.auth service, memcached, and the stock test data.");
7 use strict; use warnings;
9 use OpenILS::Utils::TestUtils;
10 my $script = OpenILS::Utils::TestUtils->new();
12 #----------------------------------------------------------------
13 # The tests... assumes stock sample data
14 #----------------------------------------------------------------
16 $script->authenticate({
18 password => 'demo123',
21 my $authtoken = $script->authtoken;
30 'Default authtime for staff login is 7200 seconds'
33 my $cached_obj = $script->cache()->get_cache("oils_auth_$authtoken");
37 'Can retrieve authtoken from memcached'
42 $cached_obj = $script->cache()->get_cache("oils_auth_$authtoken");
45 'Authtoken is removed from memcached after logout'