Jocelyn Fiat
7d5869f3b9
Simplified schema to focus on user and node. Now possible to have sqlite via ODBC and/or mysql support, and select using configuration file. Updated demo example.
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
|
|
|
|
|