4
%% Copyright Ericsson AB 2004-2010. All Rights Reserved.
4
%% Copyright Ericsson AB 2004-2011. All Rights Reserved.
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
22
-include("test_server.hrl").
22
-include_lib("common_test/include/ct.hrl").
23
23
-include("test_server_line.hrl").
26
-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2,
29
29
init_per_testcase/2,
54
all(suite) -> [pid_roundtrip,
68
unicode_list_to_string,
69
unicode_string_to_list,
53
suite() -> [{ct_hooks,[ts_install_cth]}].
56
[pid_roundtrip, port_roundtrip, ref_roundtrip,
57
new_float, old_stuff, binary_roundtrip,
58
decompress_roundtrip, compress_roundtrip,
59
integer_roundtrip, fun_roundtrip, lists_roundtrip,
60
lists_roundtrip_2, lists_iterator, unicode,
61
unicode_list_to_string, unicode_string_to_list, connect].
66
init_per_group(_GroupName, Config) ->
69
end_per_group(_GroupName, Config) ->
75
72
init_per_suite(Config) when is_list(Config) ->
76
jitu:init_all(Config).
73
case case code:priv_dir(jinterface) of
74
{error,bad_name} -> false;
75
P -> filelib:is_dir(P) end of
77
jitu:init_all(Config);
79
{skip,"No jinterface application"}
78
82
end_per_suite(Config) ->
79
83
jitu:finish_all(Config).