From 64633846cc6959eca307d37e7b879ac14182f3c3 Mon Sep 17 00:00:00 2001 From: Hanfei Shen Date: Wed, 4 May 2011 00:21:57 +0800 Subject: Add support for SQL_WLONGVARCHAR --- lib/odbc/test/odbc_data_type_SUITE.erl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/odbc/test/odbc_data_type_SUITE.erl') diff --git a/lib/odbc/test/odbc_data_type_SUITE.erl b/lib/odbc/test/odbc_data_type_SUITE.erl index 84c99e183b..63aa32496c 100644 --- a/lib/odbc/test/odbc_data_type_SUITE.erl +++ b/lib/odbc/test/odbc_data_type_SUITE.erl @@ -1461,7 +1461,9 @@ unicode(Config) when is_list(Config) -> case ?RDBMS of sqlserver -> - w_char_support_win(Ref, Table, Latin1Data); + w_char_support_win(Ref, Table, Latin1Data, sql_wvarchar), + {updated, _} = odbc:sql_query(Ref, "DROP TABLE " ++ Table), + w_char_support_win(Ref, Table, Latin1Data, sql_wlongvarchar); postgres -> direct_utf8(Ref, Table, Latin1Data); mysql -> @@ -1470,7 +1472,7 @@ unicode(Config) when is_list(Config) -> {skip, "not currently supported"} end. -w_char_support_win(Ref, Table, Latin1Data) -> +w_char_support_win(Ref, Table, Latin1Data, CharType) -> UnicodeIn = lists:map(fun(S) -> unicode:characters_to_binary(S,latin1,{utf16,little}) end, @@ -1479,7 +1481,7 @@ w_char_support_win(Ref, Table, Latin1Data) -> test_server:format("UnicodeIn (utf 16): ~p ~n",[UnicodeIn]), {updated, _} = odbc:param_query(Ref, "INSERT INTO " ++ Table ++ "(FIELD) values(?)", - [{{sql_wvarchar,50},UnicodeIn}]), + [{{CharType,50},UnicodeIn}]), {selected,_,UnicodeOut} = odbc:sql_query(Ref,"SELECT * FROM " ++ Table), -- cgit v1.2.3