diff options
author | Zandra Hird <zandra@erlang.org> | 2015-05-11 15:07:39 +0200 |
---|---|---|
committer | Zandra Hird <zandra@erlang.org> | 2015-05-11 15:07:39 +0200 |
commit | 0fad26858f4e952d25ef5372dda634587ad77b57 (patch) | |
tree | 37bb39c15e7f74d1df97eb12a065d1456d5ea483 /lib/eunit/test/eunit_SUITE.erl | |
parent | 1f9201ca7db28e19e92c094b0317230ee930829c (diff) | |
parent | 65d41cb6c514308ab11645dc2d0842d4f6b629a4 (diff) | |
download | otp-0fad26858f4e952d25ef5372dda634587ad77b57.tar.gz otp-0fad26858f4e952d25ef5372dda634587ad77b57.tar.bz2 otp-0fad26858f4e952d25ef5372dda634587ad77b57.zip |
Merge branch 'vladdu/eunit_unicode_OTP11660'
* vladdu/eunit_unicode_OTP11660:
OTP-11660: make eunit unicode safe
Diffstat (limited to 'lib/eunit/test/eunit_SUITE.erl')
-rw-r--r-- | lib/eunit/test/eunit_SUITE.erl | 38 |
1 files changed, 28 insertions, 10 deletions
diff --git a/lib/eunit/test/eunit_SUITE.erl b/lib/eunit/test/eunit_SUITE.erl index d13dc73923..2ac6fafe5d 100644 --- a/lib/eunit/test/eunit_SUITE.erl +++ b/lib/eunit/test/eunit_SUITE.erl @@ -1,35 +1,35 @@ %% %% %CopyrightBegin% -%% +%% %% Copyright Ericsson AB 2010-2011. 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(eunit_SUITE). --export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, +-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, init_per_group/2,end_per_group/2, - app_test/1,appup_test/1,eunit_test/1]). - + app_test/1,appup_test/1,eunit_test/1,surefire_utf8_test/1,surefire_latin_test/1]). + -include_lib("common_test/include/ct.hrl"). suite() -> [{ct_hooks,[ts_install_cth]}]. -all() -> - [app_test, appup_test, eunit_test]. +all() -> + [app_test, appup_test, eunit_test, surefire_utf8_test, surefire_latin_test]. -groups() -> +groups() -> []. init_per_suite(Config) -> @@ -54,3 +54,21 @@ eunit_test(Config) when is_list(Config) -> ok = file:set_cwd(code:lib_dir(eunit)), ok = eunit:test(eunit). +surefire_latin_test(Config) when is_list(Config) -> + ok = file:set_cwd(proplists:get_value(priv_dir, Config, ".")), + check_surefire(tlatin), + ok. + +surefire_utf8_test(Config) when is_list(Config) -> + ok = file:set_cwd(proplists:get_value(priv_dir, Config, ".")), + check_surefire(tutf8), + ok. + +check_surefire(Module) -> + File = "TEST-"++atom_to_list(Module)++".xml", + file:delete(File), + % ignore test result, some fail on purpose + eunit:test(Module, [{report,{eunit_surefire,[{dir,"."}]}}]), + {ok, Bin} = file:read_file(File), + [_|_] = unicode:characters_to_list(Bin, unicode), + ok.
\ No newline at end of file |