Jocelyn Fiat
8d59d25ace
Protected cms service from registering many time the same module type.
Moved library/persistence/implementation/* under library/persistence/.
Moved site/www/themes to site/themes
For SQLite storage driver, auto create sqlite db file using associated sql script (to be completed).
Added code in demo module to reuse storage for module purpose.
Always call sql_post_execution in sql_query and sql_change, and not anymore by the callers.
Removed is_web and is_html from {CMS_SETUP}, it was not used.
Reused SHARED_*_ENCODER in CMS_ENCODERS
Added CMS_API.logger rather than using directly the SHARED_LOGGER.log ...
Centralize the implementation of current_user in CMS_REQUEST_UTIL
Removed the inheritance on WSF_FILTER for node handlers, since it is useless and unused.
Added CMS_NODE_API and CMS_USER_API
Prefix html id for block generated html items with "block-", to avoid css name conflict on "main", "content" or similar.
Code cleaning
112 lines
3.0 KiB
Plaintext
112 lines
3.0 KiB
Plaintext
note
|
|
description: "[
|
|
Eiffel tests that can be executed by testing tool.
|
|
]"
|
|
author: "EiffelStudio test wizard"
|
|
date: "$Date: 2015-01-27 19:15:02 +0100 (mar., 27 janv. 2015) $"
|
|
revision: "$Revision: 96542 $"
|
|
testing:"execution/isolated"
|
|
|
|
class
|
|
USER_TEST_SET
|
|
|
|
inherit
|
|
EQA_TEST_SET
|
|
redefine
|
|
on_prepare,
|
|
on_clean
|
|
select
|
|
default_create
|
|
end
|
|
ABSTRACT_DB_TEST
|
|
rename
|
|
default_create as default_db_test
|
|
end
|
|
|
|
|
|
feature {NONE} -- Events
|
|
|
|
on_prepare
|
|
-- <Precursor>
|
|
do
|
|
(create {CLEAN_DB}).clean_db(connection)
|
|
storage.new_user (custom_user ("admin", "admin","admin@admin.com"))
|
|
end
|
|
|
|
on_clean
|
|
-- <Precursor>
|
|
do
|
|
-- (create {CLEAN_DB}).clean_db(connection)
|
|
end
|
|
|
|
feature -- Test routines
|
|
|
|
test_user_exist
|
|
-- User admin exist
|
|
do
|
|
assert ("Not void", attached storage.user_by_email ("admin@admin.com"))
|
|
assert ("Not void", attached storage.user_by_id (1))
|
|
assert ("Not void", attached storage.user_by_name ("admin"))
|
|
end
|
|
|
|
test_user_not_exist
|
|
-- Uset test does not exist.
|
|
do
|
|
assert ("User by email: Void", storage.user_by_email ("test1@test.com") = Void)
|
|
assert ("User by id: Void", storage.user_by_id (5) = Void )
|
|
assert ("User by name: Void", storage.user_by_name ("test1") = Void)
|
|
end
|
|
|
|
test_new_user
|
|
local
|
|
u: CMS_USER
|
|
do
|
|
u := default_user
|
|
storage.new_user (u)
|
|
assert ("Not void", attached storage.user_by_email (u.email))
|
|
assert ("Not void", attached storage.user_by_id (2))
|
|
assert ("Not void", attached storage.user_by_id (2) as l_user and then l_user.id = 2 and then l_user.name ~ u.name)
|
|
assert ("Not void", attached storage.user_by_name (u.name))
|
|
end
|
|
|
|
-- test_new_user_with_roles
|
|
-- do
|
|
-- storage.new_user (default_user)
|
|
-- storage.new_role ("Admin")
|
|
-- assert ("Empty roles for given user", storage.user_roles (1).after)
|
|
-- storage.add_role (1, 1)
|
|
-- assert ("Not empty roles for given user", not storage.user_roles (1).after)
|
|
-- end
|
|
|
|
-- test_new_user_without_profile
|
|
-- do
|
|
-- storage.new_user ("test", "test","test@admin.com")
|
|
-- assert ("Empty", storage.user_profile (1).new_cursor.after)
|
|
-- end
|
|
|
|
-- test_new_user_with_profile
|
|
-- local
|
|
-- l_profile: CMS_USER_PROFILE
|
|
-- l_db_profile: CMS_USER_PROFILE
|
|
-- do
|
|
-- storage.new_user (default_user)
|
|
-- if attached {CMS_USER} storage.user_by_name ("test") as l_user then
|
|
-- assert ("Empty", storage.user_profile (l_user.id).new_cursor.after)
|
|
-- create l_profile.make
|
|
-- l_profile.force ("Eiffel", "language")
|
|
-- l_profile.force ("Argentina", "country")
|
|
-- l_profile.force ("GMT-3", "time zone")
|
|
-- storage.save_profile (l_user.id, l_profile)
|
|
-- l_db_profile := storage.user_profile (l_user.id)
|
|
-- assert ("Not Empty", not l_db_profile.new_cursor.after)
|
|
|
|
-- assert ("Expected language Eiffel", attached l_db_profile.item ("language") as l_language and then l_language ~ "Eiffel")
|
|
-- assert ("Expected time zone GMT-3", attached l_db_profile.item ("time zone") as l_language and then l_language ~ "GMT-3")
|
|
-- end
|
|
-- end
|
|
|
|
|
|
end
|
|
|
|
|