Refactor persistence library.

Added a persistence speficication cluster and implementation cluser,
Implementation MySQL.
Added test cases for mysql implementation.

api/roc_api.ecf

@@ -16,7 +16,7 @@
 		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
 		<library name="conneg" location="$ISE_LIBRARY\contrib\library\network\protocol\content_negotiation\conneg-safe.ecf"/>
 		<library name="crypto" location="$ISE_LIBRARY\unstable\library\text\encryption\crypto\crypto-safe.ecf"/>
-		<library name="persistence" location="..\persistence\persistence.ecf" readonly="false"/>
+		<library name="persistence_mysql" location="..\persistence\implementation\mysql\persistence_mysql.ecf" readonly="false"/>
 		<library name="encoder" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\text\encoder\encoder-safe.ecf"/>
 		<library name="http" location="$ISE_LIBRARY\contrib\library\network\protocol\http\http-safe.ecf"/>
 		<library name="http_authorization" location="$ISE_LIBRARY\contrib\library\network\authentication\http_authorization\http_authorization-safe.ecf" readonly="false"/>

persistence/implementation/mysql/persistence_mysql.ecf

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-13-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-13-0 http://www.eiffel.com/developers/xml/configuration-1-13-0.xsd" name="persistance" uuid="DC757CBD-D8C4-44D6-A07F-C1148D8D233E" library_target="persistance">
-	<target name="persistance">
+<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-13-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-13-0 http://www.eiffel.com/developers/xml/configuration-1-13-0.xsd" name="persistence_mysql" uuid="DC757CBD-D8C4-44D6-A07F-C1148D8D233E" library_target="persistence_mysql">
+	<target name="persistence_mysql">
 		<root all_classes="true"/>
 		<option warning="true" void_safety="all">
 			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
@@ -10,18 +10,19 @@
 		<library name="crypto" location="$ISE_LIBRARY\unstable\library\text\encryption\crypto\crypto-safe.ecf"/>
 		<library name="encoder" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\text\encoder\encoder-safe.ecf"/>
 		<library name="json" location="$ISE_LIBRARY\contrib\library\text\parser\json\library\json-safe.ecf" readonly="false"/>
-		<library name="layout" location="..\layout\layout.ecf"/>
+		<library name="layout" location="..\..\..\layout\layout.ecf"/>
 		<library name="logging" location="$ISE_LIBRARY\library\runtime\logging\logging-safe.ecf"/>
 		<library name="mysql" location="$ISE_LIBRARY\library\store\dbms\rdbms\mysql\mysql-safe.ecf"/>
 		<library name="store" location="$ISE_LIBRARY\library\store\store-safe.ecf" readonly="false"/>
 		<library name="thread" location="$ISE_LIBRARY\library\thread\thread-safe.ecf"/>
 		<library name="time" location="$ISE_LIBRARY\library\time\time-safe.ecf"/>
-		<cluster name="persistance" location=".\src\" recursive="true">
+		<cluster name="persistence_mysql" location=".\src\" recursive="true">
 			<file_rule>
 				<exclude>/EIFGENs$</exclude>
 				<exclude>/CVS$</exclude>
 				<exclude>/.svn$</exclude>
 			</file_rule>
 		</cluster>
+		<cluster name="interface" location="..\..\interface\" recursive="true"/>
 	</target>
 </system>

persistence/implementation/mysql/scripts/create_database.sql

@@ -12,7 +12,7 @@ USE `cms` ;
 -- Table `cms`.`nodes`
 -- -----------------------------------------------------
 CREATE TABLE IF NOT EXISTS `cms`.`nodes` (
-  `id` SMALLINT(5) UNSIGNED NOT NULL AUTO_INCREMENT,
+  `id` INT(10) UNSIGNED NOT NULL AUTO_INCREMENT,
   `publication_date` DATE NOT NULL,
   `creation_date` DATE NOT NULL,
   `modification_date` DATE NOT NULL,
@@ -59,7 +59,7 @@ DEFAULT CHARACTER SET = latin1;
 -- -----------------------------------------------------
 CREATE TABLE IF NOT EXISTS `cms`.`users_nodes` (
   `users_id` INT(10) UNSIGNED NOT NULL,
-  `nodes_id` SMALLINT(5) UNSIGNED NOT NULL,
+  `nodes_id` INT(10) UNSIGNED NOT NULL,
   PRIMARY KEY (`users_id`, `nodes_id`),
   INDEX `fk_users_has_nodes_nodes1_idx` (`nodes_id` ASC),
   INDEX `fk_users_has_nodes_users_idx` (`users_id` ASC),

persistence/implementation/mysql/tests/nodes/node_test_set.e

@@ -0,0 +1,26 @@
+note
+	description: "[
+		Eiffel tests that can be executed by testing tool.
+	]"
+	author: "EiffelStudio test wizard"
+	date: "$Date$"
+	revision: "$Revision$"
+	testing: "type/manual"
+
+class
+	NODE_TEST_SET
+
+inherit
+	EQA_TEST_SET
+
+feature -- Test routines
+
+	new_test_routine
+			-- New test routine
+		do
+			assert ("not_implemented", False)
+		end
+
+end
+
+

persistence/implementation/mysql/tests/tests.ecf

@@ -8,7 +8,7 @@
 		<setting name="concurrency" value="thread"/>
 		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
 		<library name="crypto" location="$ISE_LIBRARY\unstable\library\text\encryption\crypto\crypto-safe.ecf"/>
-		<library name="persitence" location="..\persistence.ecf" readonly="false"/>
+		<library name="persitence_mysql" location="..\persistence_mysql.ecf" readonly="false"/>
 		<library name="testing" location="$ISE_LIBRARY\library\testing\testing-safe.ecf"/>
 		<library name="process" location="$ISE_LIBRARY\library\process\process-safe.ecf"/>
 		<cluster name="tests" location=".\" recursive="true">

persistence/implementation/mysql/tests/users/user_test_set.e

@@ -0,0 +1,78 @@
+note
+	description: "[
+		Eiffel tests that can be executed by testing tool.
+	]"
+	author: "EiffelStudio test wizard"
+	date: "$Date$"
+	revision: "$Revision$"
+	testing: "type/manual"
+
+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)
+			user_provider.new_user ("admin", "admin","admin@admin.com")
+		end
+
+	on_clean
+			-- <Precursor>
+		do
+		end
+
+feature -- Test routines
+
+	test_user_exist
+			-- User admin exist			
+		do
+			assert ("Not void",  attached user_provider.user_by_email ("admin@admin.com"))
+			assert ("Not void",  attached user_provider.user (1))
+			assert ("Not void",  attached user_provider.user_by_name ("admin"))
+		end
+
+	test_user_not_exist
+			-- Uset test does not exist.
+		do
+			assert ("Void", user_provider.user_by_email ("test@admin.com") = Void)
+			assert ("Void", user_provider.user(2) = Void )
+			assert ("Void", user_provider.user_by_name ("test") = Void)
+		end
+
+	test_new_user
+		do
+			user_provider.new_user ("test", "test","test@admin.com")
+			assert ("Not void",  attached user_provider.user_by_email ("test@admin.com"))
+			assert ("Not void",  attached user_provider.user (2))
+			assert ("Not void",  attached user_provider.user (2) as l_user and then l_user.id = 2 and then l_user.name ~ "test")
+			assert ("Not void",  attached user_provider.user_by_name ("test"))
+		end
+
+
+feature {NONE} -- Implementation
+
+	user_provider: USER_DATA_PROVIDER
+			-- user provider.
+		once
+			create Result.make (connection)
+		end
+end
+
+

persistence/implementation/mysql/tests/util/abstract_db_test.e

@@ -0,0 +1,17 @@
+note
+	description: "Summary description for {ABSTRACT_DB_TEST}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	ABSTRACT_DB_TEST
+
+
+feature -- Database connection
+
+	connection: DATABASE_CONNECTION_MYSQL
+			-- MYSQL database connection
+		once
+			create Result.login_with_schema ("cms_dev", "root", "")
+		end
+end

persistence/implementation/mysql/tests/util/clean_db.e

@@ -0,0 +1,66 @@
+note
+	description: "[
+		    Setting up database tests
+			1. Put the database in a known state before running your test suite.
+			2. Data reinitialization. For testing in developer sandboxes, something that you should do every time you rebuild the system, you may want to forgo dropping and rebuilding the database in favor of simply reinitializing the source data. 
+				You can do this either by erasing all existing data and then inserting the initial data vales back into the database, or you can simple run updates to reset the data values. 
+			   	The first approach is less risky and may even be faster for large amounts of data. - See more at: http://www.agiledata.org/essays/databaseTesting.html#sthash.6yVp35g8.dpuf
+		]"
+
+	date: "$Date$"
+	revision: "$Revision$"
+	EIS: "name=Database Testing", "src=http://www.agiledata.org/essays/databaseTesting.html", "protocol=uri"
+
+class
+	CLEAN_DB
+
+feature
+
+	clean_db (a_connection: DATABASE_CONNECTION)
+			-- Clean db test.
+		local
+			l_parameters: STRING_TABLE[STRING]
+		do
+			create l_parameters.make (0)
+
+			db_handler(a_connection).set_query (create {DATABASE_QUERY}.data_reader (Sql_delete_nodes, l_parameters))
+			db_handler(a_connection).execute_change
+
+				-- Clean Users
+			db_handler(a_connection).set_query (create {DATABASE_QUERY}.data_reader (Sql_delete_users, l_parameters))
+			db_handler(a_connection).execute_change
+
+				-- Reset Autoincremente
+			db_handler(a_connection).set_query (create {DATABASE_QUERY}.data_reader (Rest_users_autoincrement, l_parameters))
+			db_handler(a_connection).execute_change
+
+			db_handler(a_connection).set_query (create {DATABASE_QUERY}.data_reader (Rest_nodes_autoincrement, l_parameters))
+			db_handler(a_connection).execute_change
+		end
+
+
+
+feature -- Database Hanlder
+
+	db_handler (a_connection: DATABASE_CONNECTION): DATABASE_HANDLER
+			-- Db handler
+		once
+			create {DATABASE_HANDLER_IMPL} Result.make (a_connection)
+		end
+
+
+feature -- Sql delete queries
+
+	Sql_delete_users: STRING = "delete from Users"
+		-- Clean Users.
+
+	Sql_delete_nodes: STRING = "delete from Nodes"
+		-- Clean Nodes.
+
+	Rest_users_autoincrement: STRING = "ALTER TABLE Users AUTO_INCREMENT = 1"
+		-- reset autoincrement
+
+	Rest_nodes_autoincrement: STRING = "ALTER TABLE Nodes AUTO_INCREMENT = 1"
+		-- reset autoincrement.
+
+end