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.
73 lines
1.7 KiB
Plaintext
73 lines
1.7 KiB
Plaintext
note
|
|
description : "tests application root class"
|
|
date : "$Date: 2015-01-27 19:15:02 +0100 (mar., 27 janv. 2015) $"
|
|
revision : "$Revision: 96542 $"
|
|
|
|
class
|
|
APPLICATION
|
|
|
|
inherit
|
|
ARGUMENTS
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make
|
|
-- Run application.
|
|
local
|
|
storage: CMS_STORAGE
|
|
l_node: CMS_NODE
|
|
do
|
|
create connection.login_with_schema ("cms_dev", "root", "")
|
|
|
|
(create {CLEAN_DB}).clean_db(connection)
|
|
|
|
create {CMS_STORAGE_MYSQL} storage.make (connection)
|
|
l_node := custom_node ("Content", "Summary", "Title")
|
|
storage.new_user (default_user)
|
|
storage.new_user (custom_user ("u2", "p2", "e2"))
|
|
l_node.set_author (storage.user_by_email (default_user.email))
|
|
storage.new_node (l_node)
|
|
if attached {CMS_NODE} storage.node_by_id (1) as ll_node then
|
|
storage.update_node_title (2,ll_node.id, "New Title")
|
|
check
|
|
attached {CMS_NODE} storage.node_by_id (1) as u_node and then not (u_node.title ~ ll_node.title) and then u_node.content ~ ll_node.content and then u_node.summary ~ ll_node.summary
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
feature {NONE} -- Fixture Factory: Users
|
|
|
|
default_user: CMS_USER
|
|
do
|
|
Result := custom_user ("test", "password", "test@test.com")
|
|
end
|
|
|
|
custom_user (a_name, a_password, a_email: READABLE_STRING_32): CMS_USER
|
|
do
|
|
create Result.make (a_name)
|
|
Result.set_password (a_password)
|
|
Result.set_email (a_email)
|
|
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
|