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, full-auto install by
14 # eg_wheezy_installer.sh, etc.
15 #----------------------------------------------------------------
17 $script->authenticate({
19 password => 'demo123',
22 my $authtoken = $script->authtoken;
31 'Default authtime for staff login is 7200 seconds'
34 my $cached_obj = $script->cache()->get_cache("oils_auth_$authtoken");
38 'Can retrieve authtoken from memcached'
43 $cached_obj = $script->cache()->get_cache("oils_auth_$authtoken");
46 'Authtoken is removed from memcached after logout'