96 lines
2.4 KiB
Plaintext
96 lines
2.4 KiB
Plaintext
note
|
|
description : "tests application root class"
|
|
date : "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
|
|
revision : "$Revision: 95678 $"
|
|
|
|
class
|
|
APPLICATION
|
|
|
|
inherit
|
|
ARGUMENTS
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make
|
|
-- Run application.
|
|
local
|
|
user: USER_DATA_PROVIDER
|
|
node: NODE_DATA_PROVIDER
|
|
l_security: SECURITY_PROVIDER
|
|
l_profile, l_db_profile: CMS_USER_PROFILE
|
|
l_cursor: TABLE_ITERATION_CURSOR [READABLE_STRING_8, READABLE_STRING_8]
|
|
l_list: LIST[CMS_NODE]
|
|
do
|
|
create connection.login_with_schema ("cms_dev", "root", "")
|
|
create user.make (connection)
|
|
create node.make (connection)
|
|
(create {CLEAN_DB}).clean_db(connection)
|
|
|
|
user.new_user ("test", "test","test@admin.com")
|
|
if attached {CMS_USER} user.user_by_name ("test") as l_user then
|
|
create l_profile.make
|
|
l_profile.force ("Eiffel", "language")
|
|
l_profile.force ("Argentina", "country")
|
|
l_profile.force ("GMT-3", "time zone")
|
|
user.save_profile (l_user.id, l_profile)
|
|
l_db_profile := user.user_profile (l_user.id)
|
|
from
|
|
l_cursor := l_db_profile.new_cursor
|
|
until
|
|
l_cursor.after
|
|
loop
|
|
print (l_cursor.item + " - " + l_cursor.key + "%N")
|
|
l_cursor.forth
|
|
end
|
|
|
|
create {ARRAYED_LIST[CMS_NODE]} l_list.make (0)
|
|
node.new_node (default_node)
|
|
node.new_node (custom_node ("content1", "summary1", "title1"))
|
|
node.new_node (custom_node ("content2", "summary2", "title2"))
|
|
node.new_node (custom_node ("content3", "summary3", "title3"))
|
|
user.new_user ("u1", "u1", "email")
|
|
if attached user.user_by_name ("u1") as ll_user then
|
|
node.add_collaborator (l_user.id, 1)
|
|
node.add_collaborator (l_user.id, 2)
|
|
node.add_collaborator (l_user.id, 3)
|
|
node.add_collaborator (l_user.id, 4)
|
|
|
|
across node.node_collaborators (1) as c loop
|
|
print (c.item.name)
|
|
end
|
|
|
|
end
|
|
|
|
|
|
if attached user.user_by_name ("u1") as ll_user then
|
|
node.add_author (ll_user.id, 1)
|
|
if attached node.node_author (1) as l_author then
|
|
print (l_author.name)
|
|
end
|
|
end
|
|
|
|
|
|
end
|
|
end
|
|
|
|
|
|
feature {NONE} -- Implementation
|
|
|
|
connection: DATABASE_CONNECTION_MYSQL
|
|
|
|
|
|
default_node: CMS_NODE
|
|
do
|
|
Result := custom_node ("Default content", "default summary", "Default")
|
|
end
|
|
|
|
custom_node (a_content, a_summary, a_title: READABLE_STRING_32): CMS_NODE
|
|
do
|
|
create Result.make (a_content, a_summary, a_title)
|
|
end
|
|
|
|
end
|