Fixed persistency layer.

Now we have ODBC .. that accepts various connection string (including SQLite, MySQL,...)
  And EiffelStore+MySQL.
Updated sql scripts to work with MySQL, and SQLite.
Added a sql_statement (s: STRING): STRING that converts ROC sql statement to fit the underlying database engine.
 mostly to adapt incompatibilities such as AUTO_INCREMENT for MySQL and AUTOINCREMENT for SQLite
 by default SQL script should be written following MySQL SQL syntax.
Warning: to use ODBC persistence driver, it has to be installed on the target machine.

library/persistence/store_mysql/tests/users/user_test_set.e

@@ -0,0 +1,111 @@
+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
+
+