odbc: Relese test suites

1 files changed, 1498 insertions, 0 deletions

diff --git a/lib/odbc/test/odbc_data_type_SUITE.erl b/lib/odbc/test/odbc_data_type_SUITE.erl
new file mode 100644
index 0000000000..7d4a0ca15f
--- /dev/null
+++ b/lib/odbc/test/odbc_data_type_SUITE.erl
@@ -0,0 +1,1498 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2002-2010. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+%%
+
+-module(odbc_data_type_SUITE).
+
+%% Note: This directive should only be used in test suites.
+-compile(export_all).
+
+-include("test_server.hrl").
+-include_lib("stdlib/include/ms_transform.hrl").
+-include("test_server_line.hrl").
+-include("odbc_test.hrl").
+
+%%--------------------------------------------------------------------
+%% all(Arg) -> [Doc] | [Case] | {skip, Comment}
+%% Arg - doc | suite
+%% Doc - string()
+%% Case - atom() 
+%%	Name of a test case function. 
+%% Comment - string()
+%% Description: Returns documentation/test cases in this test suite
+%%		or a skip tuple if the platform is not supported.  
+%%--------------------------------------------------------------------
+all(doc) ->
+    ["Tests data types"];
+all(suite) ->
+    case odbc_test_lib:odbc_check() of
+	ok -> all();
+	Other -> {skip,Other}
+    end.						  
+
+all() ->
+    [char, int, floats, dec_and_num, timestamp].
+
+%%--------------------------------------------------------------------
+%% Function: init_per_suite(Config) -> Config
+%% Config - [tuple()]
+%%   A list of key/value pairs, holding the test case configuration.
+%% Description: Initiation before the whole suite
+%%
+%% Note: This function is free to add any key/value pairs to the Config
+%% variable, but should NOT alter/remove any existing entries.
+%%--------------------------------------------------------------------
+init_per_suite(Config) ->
+    application:start(odbc),
+    [{tableName, odbc_test_lib:unique_table_name()} | Config].
+
+%%--------------------------------------------------------------------
+%% Function: end_per_suite(Config) -> _
+%% Config - [tuple()]
+%%   A list of key/value pairs, holding the test case configuration.
+%% Description: Cleanup after the whole suite
+%%--------------------------------------------------------------------
+end_per_suite(_Config) ->
+    application:stop(odbc),
+    ok.
+
+%%--------------------------------------------------------------------
+%% Function: init_per_testcase(Case, Config) -> Config
+%% Case - atom()
+%%   Name of the test case that is about to be run.
+%% Config - [tuple()]
+%%   A list of key/value pairs, holding the test case configuration.
+%%
+%% Description: Initiation before each test case
+%%
+%% Note: This function is free to add any key/value pairs to the Config
+%% variable, but should NOT alter/remove any existing entries.
+%%--------------------------------------------------------------------
+init_per_testcase(Case, Config) ->
+    case atom_to_list(Case) of
+	"binary" ++ _  ->
+	    {ok, Ref} = odbc:connect(?RDBMS:connection_string(), 
+				     [{binary_strings, on}]);
+	"unicode" ->
+	    {ok, Ref} = odbc:connect(?RDBMS:connection_string(), 
+				     [{binary_strings, on}]);
+	_ ->
+	    {ok, Ref} = odbc:connect(?RDBMS:connection_string(), [])
+    end,
+    Dog = test_server:timetrap(?default_timeout),
+    Temp = lists:keydelete(connection_ref, 1, Config),
+    NewConfig = lists:keydelete(watchdog, 1, Temp),
+    [{watchdog, Dog}, {connection_ref, Ref} | NewConfig].
+
+%%--------------------------------------------------------------------
+%% Function: end_per_testcase(Case, Config) -> _
+%% Case - atom()
+%%   Name of the test case that is about to be run.
+%% Config - [tuple()]
+%%   A list of key/value pairs, holding the test case configuration.
+%% Description: Cleanup after each test case
+%%--------------------------------------------------------------------
+end_per_testcase(_TestCase, Config) ->
+    Ref = ?config(connection_ref, Config),
+    ok = odbc:disconnect(Ref),
+    %% Clean up if needed 
+    Table = ?config(tableName, Config),
+    {ok, NewRef} = odbc:connect(?RDBMS:connection_string(), []),
+    odbc:sql_query(NewRef, "DROP TABLE " ++ Table), 
+    odbc:disconnect(NewRef),
+    Dog = ?config(watchdog, Config),
+    test_server:timetrap_cancel(Dog),
+    ok.
+
+%%-------------------------------------------------------------------------
+%% Test cases starts here.
+%%-------------------------------------------------------------------------
+char(doc) ->
+    ["Tests char data types"]; 
+
+char(suite) ->
+    [char_fixed_lower_limit, char_fixed_upper_limit,
+     char_fixed_padding, varchar_lower_limit, varchar_upper_limit,
+     varchar_no_padding, text_lower_limit, text_upper_limit, unicode
+    ].
+
+char_fixed_lower_limit(doc) ->
+    ["Tests fixed length char data type lower boundaries."];
+char_fixed_lower_limit(suite) ->
+    [];
+char_fixed_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Below limit
+    {error, _} = 
+	odbc:sql_query(Ref, 
+		       "CREATE TABLE " ++ Table ++    
+		       ?RDBMS:create_fixed_char_table(
+			  (?RDBMS:fixed_char_min() - 1))), 
+    %% Lower limit
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_fixed_char_table(
+			  ?RDBMS:fixed_char_min())), 
+
+    %% Right length data
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++
+		       "'" ++ string:chars($a, ?RDBMS:fixed_char_min())
+		       ++ "')"),
+    %% Select data
+    {selected, Fields,[{"a"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Too long data
+    {error, _}  =  
+	odbc:sql_query(Ref,"INSERT INTO " ++ Table ++" VALUES(" ++
+		       "'" ++ string:chars($a, 
+					   (?RDBMS:fixed_char_min()
+					    + 1)) 
+		       ++ "')"),		
+    ok.
+%%-------------------------------------------------------------------------
+
+char_fixed_upper_limit(doc) ->
+    ["Tests fixed length char data type upper boundaries."];
+char_fixed_upper_limit(suite) ->
+    [];
+char_fixed_upper_limit(Config) when is_list(Config) ->
+
+    case ?RDBMS of
+	postgres ->
+	    {skip, "Limit unknown"};
+	_ ->
+	    Ref = ?config(connection_ref, Config),   
+	    Table = ?config(tableName, Config),
+	    
+	    %% Upper limit 
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_fixed_char_table(
+				  ?RDBMS:fixed_char_max())), 
+	    {updated, _} =  
+		odbc:sql_query(Ref,"INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ string:chars($a, 
+						   ?RDBMS:fixed_char_max())
+			       ++ "')"),
+	    %% Select data
+	    {selected, Fields, [{CharStr}]} =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    true = length(CharStr) == ?RDBMS:fixed_char_max(),
+	    
+	    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+	    
+	    %% Too long data
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++  
+			       "'" ++ string:chars($a, 
+						   (?RDBMS:fixed_char_max()
+						    + 1)) 
+			       ++ "')"),		
+	    %% Clean up
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref, "DROP TABLE " ++ Table),
+	    
+	    %% Above limit 
+	    {error, _} =
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++  
+			       ?RDBMS:create_fixed_char_table(
+				  (?RDBMS:fixed_char_max() + 1))), 
+	    ok
+    end.
+
+%%-------------------------------------------------------------------------
+
+char_fixed_padding(doc) ->
+    ["Tests that data that is shorter than the given size is padded " 
+     "with blanks."];
+char_fixed_padding(suite) ->
+    [];
+char_fixed_padding(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Data should be padded with blanks
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_fixed_char_table(
+			  ?RDBMS:fixed_char_max())), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, 
+					   ?RDBMS:fixed_char_min())
+		       ++ "')"),
+
+    {selected, Fields, [{CharStr}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    true = length(CharStr) == ?RDBMS:fixed_char_max(),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+%%-------------------------------------------------------------------------
+
+varchar_lower_limit(doc) ->
+    ["Tests variable length char data type lower boundaries."];
+varchar_lower_limit(suite) ->
+    [];
+varchar_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Below limit
+    {error, _} = 
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_var_char_table(
+			  ?RDBMS:var_char_min() - 1)), 
+    %% Lower limit
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_var_char_table(
+			  ?RDBMS:var_char_min())), 
+
+    %% Right length data
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, ?RDBMS:var_char_min())
+		       ++ "')"),
+    %% Select data
+    {selected, Fields, [{"a"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Too long data
+    {error, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, 
+					   (?RDBMS:var_char_min()+1)) 
+		       ++ "')"),		
+    ok.
+
+%%-------------------------------------------------------------------------
+
+varchar_upper_limit(doc) ->
+    ["Tests variable length char data type upper boundaries."];
+varchar_upper_limit(suite) ->
+    [];
+varchar_upper_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    case ?RDBMS of
+	oracle ->
+	    {skip, "Known bug in database"};
+	postgres ->
+	    {skip, "Limit unknown"};
+	_ ->
+	    %% Upper limit 
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_var_char_table(
+				  ?RDBMS:var_char_max())), 
+	    {updated, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ string:chars($a, 
+						   ?RDBMS:var_char_max())
+			       ++ "')"),
+	    
+	    {selected, Fields, [{CharStr}]} =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    true = length(CharStr) == ?RDBMS:var_char_max(),
+	    
+	    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+	    
+	    %% Too long data
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ string:chars($a, 
+						   (?RDBMS:var_char_max()+1)) 
+		       ++ "')"),
+	    %% Clean up
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+	    
+	    %% Above limit 
+	    {error, _} =
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_var_char_table(
+				  (?RDBMS:var_char_max() + 1))),
+	    ok
+    end.
+%%-------------------------------------------------------------------------
+
+varchar_no_padding(doc) ->
+    ["Tests that data that is shorter than the given max size is not padded " 
+     "with blanks."];
+varchar_no_padding(suite) ->
+    [];
+varchar_no_padding(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Data should NOT be padded with blanks
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_var_char_table(
+			  ?RDBMS:var_char_max())), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, ?RDBMS:var_char_min())
+		       ++ "')"),
+
+    {selected, Fields, [{CharStr}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    true = length(CharStr) /= ?RDBMS:var_char_max(),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+text_lower_limit(doc) ->
+    ["Tests 'long' char data type lower boundaries."];
+text_lower_limit(suite) ->
+    [];
+text_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_text_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, ?RDBMS:text_min())
+		       ++ "')"),
+
+    {selected, Fields, [{"a"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+text_upper_limit(doc) ->
+    [];
+text_upper_limit(suite) ->
+    [];
+text_upper_limit(Config) when is_list(Config) ->
+    
+    {skip,"Consumes too much resources" }.
+%%     Ref = ?config(connection_ref, Config),
+%%     Table = ?config(tableName, Config),
+
+%%     {updated, _} =  % Value == 0 || -1 driver dependent!
+%% 	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+%% 		       ?RDBMS:create_text_table()), 
+%%     {updated, _} =  
+%% 	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+%% 		       "'" ++ string:chars($a, ?RDBMS:text_max())
+%% 		       ++ "')"),
+
+%%     {selected, Fields, [{CharStr}]} =
+%% 	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+%%     length(CharStr) == ?RDBMS:text_max(),
+%%     ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    
+%%     {error, _} =  
+%% 	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+%% 		       "'" ++ string:chars($a, (?RDBMS:text_max()+1)) 
+%% 		       ++ "')"),		
+%%     ok.
+
+%%-------------------------------------------------------------------------
+binary_char(doc) ->
+    ["Tests char data types returned as erlang binaries"]; 
+
+binary_char(suite) ->
+    [binary_char_fixed_lower_limit, binary_char_fixed_upper_limit,
+     binary_char_fixed_padding, binary_varchar_lower_limit, binary_varchar_upper_limit,
+     binary_varchar_no_padding, binary_text_lower_limit, binary_text_upper_limit, unicode
+    ].
+
+binary_char_fixed_lower_limit(doc) ->
+    ["Tests fixed length char data type lower boundaries."];
+binary_char_fixed_lower_limit(suite) ->
+    [];
+binary_char_fixed_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Below limit
+    {error, _} = 
+	odbc:sql_query(Ref, 
+		       "CREATE TABLE " ++ Table ++    
+		       ?RDBMS:create_fixed_char_table(
+			  (?RDBMS:fixed_char_min() - 1))), 
+    %% Lower limit
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_fixed_char_table(
+			  ?RDBMS:fixed_char_min())), 
+
+    %% Right length data
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++
+		       "'" ++ string:chars($a, ?RDBMS:fixed_char_min())
+		       ++ "')"),
+    %% Select data
+    {selected, Fields,[{<<"a">>}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Too long data
+    {error, _}  =  
+	odbc:sql_query(Ref,"INSERT INTO " ++ Table ++" VALUES(" ++
+		       "'" ++ string:chars($a, 
+					   (?RDBMS:fixed_char_min()
+					    + 1)) 
+		       ++ "')"),		
+    ok.
+%%-------------------------------------------------------------------------
+
+binary_char_fixed_upper_limit(doc) ->
+    ["Tests fixed length char data type upper boundaries."];
+binary_char_fixed_upper_limit(suite) ->
+    [];
+binary_char_fixed_upper_limit(Config) when is_list(Config) ->
+
+    case ?RDBMS of
+	postgres ->
+	    {skip, "Limit unknown"};
+	_ ->
+	    Ref = ?config(connection_ref, Config),   
+	    Table = ?config(tableName, Config),
+	    
+	    %% Upper limit 
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_fixed_char_table(
+				  ?RDBMS:fixed_char_max())), 
+	    {updated, _} =  
+		odbc:sql_query(Ref,"INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ string:chars($a, 
+						   ?RDBMS:fixed_char_max())
+			       ++ "')"),
+	    %% Select data
+	    {selected, Fields, [{CharBin}]} =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    true = size(CharBin) == ?RDBMS:fixed_char_max(),
+	    
+	    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+	    
+	    %% Too long data
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++  
+			       "'" ++ string:chars($a, 
+						   (?RDBMS:fixed_char_max()
+						    + 1)) 
+			       ++ "')"),		
+	    %% Clean up
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref, "DROP TABLE " ++ Table),
+	    
+	    %% Above limit 
+	    {error, _} =
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++  
+			       ?RDBMS:create_fixed_char_table(
+				  (?RDBMS:fixed_char_max() + 1))), 
+	    ok
+    end.
+
+%%-------------------------------------------------------------------------
+
+binary_char_fixed_padding(doc) ->
+    ["Tests that data that is shorter than the given size is padded " 
+     "with blanks."];
+binary_char_fixed_padding(suite) ->
+    [];
+binary_char_fixed_padding(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Data should be padded with blanks
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_fixed_char_table(
+			  ?RDBMS:fixed_char_max())), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, 
+					   ?RDBMS:fixed_char_min())
+		       ++ "')"),
+
+    {selected, Fields, [{CharBin}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    true = size(CharBin) == ?RDBMS:fixed_char_max(),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+%%-------------------------------------------------------------------------
+
+binary_varchar_lower_limit(doc) ->
+    ["Tests variable length char data type lower boundaries."];
+binary_varchar_lower_limit(suite) ->
+    [];
+binary_varchar_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Below limit
+    {error, _} = 
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_var_char_table(
+			  ?RDBMS:var_char_min() - 1)), 
+    %% Lower limit
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_var_char_table(
+			  ?RDBMS:var_char_min())), 
+
+    %% Right length data
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, ?RDBMS:var_char_min())
+		       ++ "')"),
+    %% Select data
+    {selected, Fields, [{<<"a">>}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Too long data
+    {error, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, 
+					   (?RDBMS:var_char_min()+1)) 
+		       ++ "')"),		
+    ok.
+
+%%-------------------------------------------------------------------------
+
+binary_varchar_upper_limit(doc) ->
+    ["Tests variable length char data type upper boundaries."];
+binary_varchar_upper_limit(suite) ->
+    [];
+binary_varchar_upper_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    case ?RDBMS of
+	oracle ->
+	    {skip, "Known bug in database"};
+	postgres ->
+	    {skip, "Limit unknown"};
+	_ ->
+	    %% Upper limit 
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_var_char_table(
+				  ?RDBMS:var_char_max())), 
+	    {updated, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ string:chars($a, 
+						   ?RDBMS:var_char_max())
+			       ++ "')"),
+	    
+	    {selected, Fields, [{CharBin}]} =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    true = size(CharBin) == ?RDBMS:var_char_max(),
+	    
+	    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+	    
+	    %% Too long data
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ string:chars($a, 
+						   (?RDBMS:var_char_max()+1)) 
+		       ++ "')"),
+	    %% Clean up
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+	    
+	    %% Above limit 
+	    {error, _} =
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_var_char_table(
+				  (?RDBMS:var_char_max() + 1))),
+	    ok
+    end.
+%%-------------------------------------------------------------------------
+
+binary_varchar_no_padding(doc) ->
+    ["Tests that data that is shorter than the given max size is not padded " 
+     "with blanks."];
+binary_varchar_no_padding(suite) ->
+    [];
+binary_varchar_no_padding(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    %% Data should NOT be padded with blanks
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_var_char_table(
+			  ?RDBMS:var_char_max())), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, ?RDBMS:var_char_min())
+		       ++ "')"),
+
+    {selected, Fields, [{CharBin}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    true = size(CharBin) /= ?RDBMS:var_char_max(),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+binary_text_lower_limit(doc) ->
+    ["Tests 'long' char data type lower boundaries."];
+binary_text_lower_limit(suite) ->
+    [];
+binary_text_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_text_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ string:chars($a, ?RDBMS:text_min())
+		       ++ "')"),
+
+    {selected, Fields, [{<<"a">>}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+binary_text_upper_limit(doc) ->
+    [];
+binary_text_upper_limit(suite) ->
+    [];
+binary_text_upper_limit(Config) when is_list(Config) ->
+    
+    {skip,"Consumes too much resources" }.
+%%     Ref = ?config(connection_ref, Config),
+%%     Table = ?config(tableName, Config),
+
+%%     {updated, _} =  % Value == 0 || -1 driver dependent!
+%% 	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+%% 		       ?RDBMS:create_text_table()), 
+%%     {updated, _} =  
+%% 	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+%% 		       "'" ++ string:chars($a, ?RDBMS:text_max())
+%% 		       ++ "')"),
+
+%%     {selected, Fields, [{CharBin}]} =
+%% 	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+%%     size(CharBin) == ?RDBMS:text_max(),
+%%     ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    
+%%     {error, _} =  
+%% 	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+%% 		       "'" ++ string:chars($a, (?RDBMS:text_max()+1)) 
+%% 		       ++ "')"),		
+%%     ok.
+
+
+%%-------------------------------------------------------------------------
+
+int(doc) ->
+    ["Tests integer data types"]; 
+
+int(suite) ->
+    [tiny_int_lower_limit, tiny_int_upper_limit, small_int_lower_limit,
+     small_int_upper_limit, int_lower_limit, int_upper_limit,
+     big_int_lower_limit, big_int_upper_limit, bit_false, bit_true].
+
+%%-------------------------------------------------------------------------
+
+tiny_int_lower_limit(doc) ->
+    ["Tests integer of type tinyint."];
+tiny_int_lower_limit(suite) ->
+    [];
+tiny_int_lower_limit(Config) when is_list(Config) -> 
+    case ?RDBMS of
+	postgres ->
+	    {skip, "Type tiniyint not supported"};
+	_ ->
+	    Ref = ?config(connection_ref, Config),   
+	    Table = ?config(tableName, Config),
+	    
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_tiny_int_table()), 
+	    
+	    {updated, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(?RDBMS:tiny_int_min())
+			       ++ "')"),
+	    
+	    SelectResult =  ?RDBMS:tiny_int_min_selected(),
+	    SelectResult =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(?RDBMS:tiny_int_min() 
+						      - 1)
+			       ++ "')"),
+	    ok
+    end.
+
+%%-------------------------------------------------------------------------
+
+tiny_int_upper_limit(doc) ->
+    ["Tests integer of type tinyint."];
+tiny_int_upper_limit(suite) ->
+    [];
+tiny_int_upper_limit(Config) when is_list(Config) ->
+    case ?RDBMS of
+	postgres ->
+	    {skip, "Type tiniyint not supported"};
+	_ ->
+	    Ref = ?config(connection_ref, Config),   
+	    Table = ?config(tableName, Config),
+	    
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_tiny_int_table()), 
+	    
+	    {updated, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(?RDBMS:tiny_int_max())
+			       ++ "')"),
+	    
+	    SelectResult =  ?RDBMS:tiny_int_max_selected(),
+	    SelectResult =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(?RDBMS:tiny_int_max()
+						      + 1)
+			       ++ "')"),
+	    ok
+    end.
+
+%%-------------------------------------------------------------------------
+
+small_int_lower_limit(doc) ->
+    ["Tests integer of type smallint."];
+small_int_lower_limit(suite) ->
+    [];
+small_int_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_small_int_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:small_int_min())
+		       ++ "')"),
+
+    SelectResult = ?RDBMS:small_int_min_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    {error, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'"  ++ integer_to_list(?RDBMS:small_int_min()
+					       - 1)
+		       ++ "')"),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+small_int_upper_limit(doc) ->
+    ["Tests integer of type smallint."];
+small_int_upper_limit(suite) ->
+    [];
+small_int_upper_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_small_int_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:small_int_max())
+		       ++ "')"),
+
+    SelectResult = ?RDBMS:small_int_max_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    {error, _} =  
+	odbc:sql_query(Ref,"INSERT INTO " ++ Table ++" VALUES(" ++  
+		       "'" ++ integer_to_list(?RDBMS:small_int_max() 
+					      + 1)
+		       ++ "')"),
+    ok.
+
+%%-------------------------------------------------------------------------
+int_lower_limit(doc) ->
+    ["Tests integer of type int."];
+int_lower_limit(suite) ->
+    [];
+int_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_int_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:int_min())
+		       ++ "')"),
+
+    SelectResult = ?RDBMS:int_min_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    {error, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:int_min() - 1)
+		       ++ "')"),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+int_upper_limit(doc) ->
+    ["Tests integer of type int."];
+int_upper_limit(suite) ->
+    [];
+int_upper_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_int_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:int_max())
+		       ++ "')"),
+
+    SelectResult = ?RDBMS:int_max_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    {error, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:int_max() + 1)
+		       ++ "')"),    
+    ok.
+
+
+%%-------------------------------------------------------------------------
+big_int_lower_limit(doc) ->
+    ["Tests integer of type bigint"];
+big_int_lower_limit(suite) ->
+    [];
+big_int_lower_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_big_int_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:big_int_min())
+		       ++ "')"),
+
+    SelectResult = ?RDBMS:big_int_min_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    {error, _} =  
+ 	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:big_int_min() 
+					      - 1)
+		       ++ "')"),
+    ok.
+
+%%-------------------------------------------------------------------------
+
+big_int_upper_limit(doc) ->
+    ["Tests integer of type bigint."];
+big_int_upper_limit(suite) ->
+    [];
+big_int_upper_limit(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_big_int_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:big_int_max())
+		       ++ "')"),
+
+    SelectResult = ?RDBMS:big_int_max_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    {error, _} =  
+ 	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ integer_to_list(?RDBMS:big_int_max() 
+					      + 1)
+		       ++ "')"),
+    ok.
+%%-------------------------------------------------------------------------
+
+bit_false(doc) ->
+    [""];
+bit_false(suite) ->
+    [];
+bit_false(Config) when is_list(Config) ->  
+    case ?RDBMS of
+	oracle ->
+	    {skip, "Not supported by driver"};
+	_ ->
+	    Ref = ?config(connection_ref, Config),   
+	    Table = ?config(tableName, Config),
+	    
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_bit_table()), 
+	    
+	    {updated, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++
+			       " VALUES(" ++ 	
+			       "'" ++ integer_to_list(?RDBMS:bit_false())
+			       ++ "')"),
+	    
+	    SelectResult = ?RDBMS:bit_false_selected(),
+	    SelectResult =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(-1)
+			       ++ "')"),
+	    ok
+    end.
+
+%%-------------------------------------------------------------------------
+
+bit_true(doc) ->
+    [""];
+bit_true(suite) ->
+    [];
+bit_true(Config) when is_list(Config) ->
+    case ?RDBMS of
+	oracle ->
+	    {skip, "Not supported by driver"};
+	_ ->
+	    Ref = ?config(connection_ref, Config),   
+	    Table = ?config(tableName, Config),
+	    
+	    
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_bit_table()), 
+	    
+	    {updated, _} =  
+		odbc:sql_query(Ref, 
+			       "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(?RDBMS:bit_true())
+			       ++ "')"),
+	    
+	    SelectResult =  ?RDBMS:bit_true_selected(),
+	    SelectResult =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       "'" ++ integer_to_list(-1)
+			       ++ "')"),
+	    ok
+    end.
+
+%%-------------------------------------------------------------------------
+
+floats(doc) ->
+    ["Test the datatype float."];
+floats(suite) ->
+    [float_lower_limit, float_upper_limit, float_zero, real_zero].
+
+%%-------------------------------------------------------------------------
+float_lower_limit(doc) ->
+    [""];
+float_lower_limit(suite) ->
+    [];
+float_lower_limit(Config) when is_list(Config) ->   
+
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_float_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ float_to_list(
+				?RDBMS:float_min())
+		       ++ "')"),
+    {selected,[_ColName],[{MinFloat}]} = 
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    true = ?RDBMS:float_min() == MinFloat,
+
+    case ?RDBMS of
+	oracle ->
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_float_table()), 
+
+	    {updated, _} =  
+		odbc:sql_query(Ref, 
+			       "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       ?RDBMS:float_underflow() ++ ")"),
+
+	    SelectResult = ?RDBMS:float_zero_selected(),
+	    SelectResult =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table);
+	_ ->
+	    {error, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+			       ?RDBMS:float_underflow() ++ ")")
+    end,
+    ok.
+
+
+%%-------------------------------------------------------------------------
+float_upper_limit(doc) ->
+    [""];
+float_upper_limit(suite) ->
+    [];
+float_upper_limit(Config) when is_list(Config) ->   
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_float_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       "'" ++ float_to_list(
+				?RDBMS:float_max())
+		       ++ "')"),
+
+
+    {selected,[_ColName],[{MaxFloat}]}
+	= odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+
+    true = ?RDBMS:float_max() == MaxFloat,
+
+    {error, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(" ++ 
+		       ?RDBMS:float_overflow() ++ ")"),
+    ok.
+
+%%-------------------------------------------------------------------------
+float_zero(doc) ->
+    ["Test the float value zero."];
+float_zero(suite) ->
+    [];
+float_zero(Config) when is_list(Config) ->   
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_float_table()), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES('0')"),
+
+    SelectResult = ?RDBMS:float_zero_selected(),
+    SelectResult =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ok.
+%%-------------------------------------------------------------------------
+real_zero(doc) ->
+    ["Test the real value zero."];
+real_zero(suite) ->
+    [];
+real_zero(Config) when is_list(Config) ->   
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    case ?RDBMS of
+	oracle ->
+	    {skip, "Not supported in Oracle"};  
+        _ ->	    
+	    {updated, _} =  % Value == 0 || -1 driver dependent!
+		odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+			       ?RDBMS:create_real_table()), 
+
+	    {updated, _} =  
+		odbc:sql_query(Ref, "INSERT INTO " ++ Table ++
+			       " VALUES('0')"),
+
+	    SelectResult = ?RDBMS:real_zero_selected(),
+	    SelectResult =
+		odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+	    ok
+    end.
+%%-------------------------------------------------------------------------
+dec_and_num(doc) ->
+    ["Tests decimal and numeric datatypes."];
+dec_and_num(suite) ->
+    [dec_long, dec_double, dec_bignum, num_long, num_double, num_bignum].
+%%------------------------------------------------------------------------
+dec_long(doc) ->
+    [""];
+dec_long(suit) ->
+    [];
+dec_long(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (9,0))"), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields, [{2}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+%%------------------------------------------------------------------------
+dec_double(doc) ->
+    [""];
+dec_double(suit) ->
+    [];
+dec_double(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (10,0))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields, [{2.00000}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Clean up
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (15,0))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields1, [{2.00000}]} =		
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+     ["FIELD"] = odbc_test_lib:to_upper(Fields1),
+
+    %% Clean up
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (15, 1))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields2, [{1.60000}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields2),
+    ok.
+
+%%------------------------------------------------------------------------
+dec_bignum(doc) ->
+    [""];
+dec_bignum(suit) ->
+    [];
+dec_bignum(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (16,0))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields, [{"2"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Clean up
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (16,1))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields1, [{"1.6"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields1),
+    ok.
+%%------------------------------------------------------------------------
+num_long(doc) ->
+    [""];
+num_long(suit) ->
+    [];
+num_long(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (9,0))"), 
+
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.5)"),
+
+    {selected, Fields, [{2}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+    ok.
+%%------------------------------------------------------------------------
+num_double(doc) ->
+    [""];
+num_double(suit) ->
+    [];
+num_double(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (10,0))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields, [{2.0000}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Clean up
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (15,0))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields1, [{2.0000}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields1),
+
+    %% Clean up
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (15,1))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields2, [{1.6000}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+     ["FIELD"] = odbc_test_lib:to_upper(Fields2),
+    ok.
+%%------------------------------------------------------------------------
+num_bignum(doc) ->
+    [""];
+num_bignum(suit) ->
+    [];
+num_bignum(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (16,0))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields, [{"2"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields),
+
+    %% Clean up
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref, "DROP TABLE " ++ Table), 
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       "(FIELD DECIMAL (16,1))"), 
+    {updated, _} =  
+	odbc:sql_query(Ref, "INSERT INTO " ++ Table ++" VALUES(1.6)"),
+
+    {selected, Fields1, [{"1.6"}]} =
+	odbc:sql_query(Ref,"SELECT FIELD FROM " ++ Table),
+    ["FIELD"] = odbc_test_lib:to_upper(Fields1),
+    ok.
+
+%%------------------------------------------------------------------------
+unicode(doc) ->
+    ["Test unicode support"];
+unicode(suit) ->
+    [];
+unicode(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_unicode_table()), 
+    
+    Latin1Data = ["���������",
+                  "testasdf",
+                  "Row 3",
+                  "Row 4",
+                  "Row 5",
+                  "Row 6",
+                  "Row 7",
+                  "Row 8",
+                  "Row 9",
+                  "Row 10",
+                  "Row 11",
+                  "Row 12"],
+  
+    case ?RDBMS of
+	sqlserver ->
+	    w_char_support_win(Ref, Table, Latin1Data);
+	postgres ->
+	    direct_utf8(Ref, Table, Latin1Data);
+	oracle ->
+	    {skip, "not currently supported"}
+    end.
+
+w_char_support_win(Ref, Table, Latin1Data) ->
+    UnicodeIn = lists:map(fun(S) ->
+                                  unicode:characters_to_binary(S,latin1,{utf16,little})
+                          end,
+                          Latin1Data),
+     
+    test_server:format("UnicodeIn (utf 16): ~p ~n",[UnicodeIn]),
+    
+    {updated, _} = odbc:param_query(Ref, "INSERT INTO " ++ Table ++ "(FIELD) values(?)",
+				    [{{sql_wvarchar,50},UnicodeIn}]),
+    
+    {selected,_,UnicodeOut} = odbc:sql_query(Ref,"SELECT * FROM " ++ Table),
+
+    test_server:format("UnicodeOut: ~p~n", [UnicodeOut]),
+    
+    Result = lists:map(fun({Unicode}) ->
+			       unicode:characters_to_list(Unicode,{utf16,little})
+		       end,
+		       UnicodeOut),
+    Latin1Data = Result.
+
+
+direct_utf8(Ref, Table, Latin1Data) ->    
+    UnicodeIn = lists:map(fun(String) ->
+				  unicode:characters_to_binary(String,latin1,utf8)
+			  end,
+			  Latin1Data),
+    
+    test_server:format("UnicodeIn: ~p ~n",[UnicodeIn]),
+    {updated, _} = odbc:param_query(Ref,"INSERT INTO " ++ Table ++ "(FIELD) values(?)",
+				    [{{sql_varchar,50}, UnicodeIn}]),
+    
+    {selected,_,UnicodeOut} = odbc:sql_query(Ref,"SELECT * FROM " ++ Table),
+
+    test_server:format("UnicodeOut: ~p~n", [UnicodeOut]),
+     
+    Result = lists:map(fun({Char}) ->
+			       unicode:characters_to_list(Char,utf8)
+		       end, UnicodeOut),
+
+    test_server:format("Result: ~p ~n", [Result]),
+    
+    Latin1Data = Result.
+
+%%------------------------------------------------------------------------
+timestamp(doc) ->
+    [""];
+timestamp(suit) ->
+    [];
+timestamp(Config) when is_list(Config) ->
+    Ref = ?config(connection_ref, Config),   
+    Table = ?config(tableName, Config),
+
+    {updated, _} =  % Value == 0 || -1 driver dependent!
+	odbc:sql_query(Ref,  "CREATE TABLE " ++ Table ++ 
+		       ?RDBMS:create_timestamp_table()),
+
+    Data = [calendar:local_time(),
+	    {{2009,6,17},{20,54,59}},
+	    {{2009,6,18},{20,54,59}},
+	    {{2009,6,19},{20,54,59}},
+	    {{2009,6,20},{20,54,59}},
+	    {{2009,6,21},{20,54,59}}],
+    
+    {updated, _} = odbc:param_query(Ref,"INSERT INTO " ++ Table ++  "(FIELD) values(?)",
+				    [{sql_timestamp,Data}]),
+    
+    %%% Crate list or database table rows 
+    TimeStamps = lists:map(fun(Value) -> {Value} end, Data),
+   
+    {selected,_, TimeStamps} = odbc:sql_query(Ref, "SELECT * FROM " ++ Table).