1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
%% -*- erlang -*-
%% You can test this file using this command.
%% file:script("kernel.dynspec", [{'Os',"Unix"}]).
case Os of
"VxWorks" ->
FsCantHandle = "VxWorks filesystem can't handle this",
FsOverload = "VxWorks filesystem would overload",
CantHandle = "VxWorks can't handle this",
SlaveMisadaption = "Test not adopted to slaves on different machine",
[{skip,{application_SUITE,
"VxWorks: requires manual testing "++
"(requires multiple nodes (OTP-1774))"}},
{skip,{bif_SUITE, spawn_link_race1, "Known bug."}},
{skip,{erl_distribution_SUITE, "VxWorks: More vx nodes needed"}},
{skip,{file_SUITE,read_write_file,FsCantHandle}},
{skip,{file_SUITE,cur_dir_0,FsCantHandle}},
{skip,{file_SUITE,open1,FsCantHandle}},
{skip,{file_SUITE,file_info_times,FsCantHandle}},
{skip,{file_SUITE,file_write_file_info,FsCantHandle}},
{skip,{file_SUITE,truncate,FsCantHandle}},
{skip,{file_SUITE,rename,FsCantHandle}},
{skip,{file_SUITE,e_delete,FsCantHandle}},
{skip,{file_SUITE,e_rename,FsCantHandle}},
{skip,{file_SUITE,delayed_write,FsCantHandle}},
{skip,{file_SUITE,read_ahead,FsCantHandle}},
{skip,{file_SUITE,segment_write,FsOverload}},
{skip,{file_SUITE,segment_read,FsOverload}},
{skip,{file_SUITE,compress_errors,FsCantHandle}},
{skip,{global_SUITE,
"To heavy on slavenodes for VxWorks (and more)."}},
{skip,{global_group_SUITE, "To heavy on slavenodes for VxWorks."}},
{skip,{heart_SUITE, "Not for VxWorks heart, it's special"}},
{skip,{init_SUITE,restart,"Uses peer nodes"}},
{skip,{kernel_config_SUITE, "VxWorks does not support slave nodes"}},
{skip,{os_SUITE,space_in_cwd,CantHandle}},
{skip,{os_SUITE,space_in_name,CantHandle}},
{skip,{os_SUITE,quoting,CantHandle}},
{skip,{prim_file_SUITE,open1,FsCantHandle}},
{skip,{prim_file_SUITE,compress_errors,FsCantHandle}},
{skip,{seq_trace_SUITE,distributed_recv,SlaveMisadaption}},
{skip,{seq_trace_SUITE,distributed_exit,SlaveMisadaption}}];
_ ->
[]
end ++
try gen_sctp:open() of
{ok,Socket} ->
gen_sctp:close(Socket),
[];
_ ->
[]
catch
error:badarg ->
[{skip,{gen_sctp_SUITE,"SCTP not supported on this machine"}}];
_:_ ->
[]
end.
|
