diff options
| author | Sverker Eriksson <sverker@erlang.org> | 2022-06-27 23:13:35 +0200 |
|---|---|---|
| committer | Sverker Eriksson <sverker@erlang.org> | 2022-08-16 23:49:34 +0200 |
| commit | a10af0c854bfb300ff3262ebed7d06e61ce88560 (patch) | |
| tree | e99d9f76f2b0e0c184bdf8bba7588ea52a08e4ec /erts/emulator/test/float_SUITE.erl | |
| parent | 2b86199db8cd2d03f4ffcf1cad227e55eebfb591 (diff) | |
| download | erlang-a10af0c854bfb300ff3262ebed7d06e61ce88560.tar.gz | |
erts: Check for leaking peer nodes after tests
Diffstat (limited to 'erts/emulator/test/float_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/float_SUITE.erl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/erts/emulator/test/float_SUITE.erl b/erts/emulator/test/float_SUITE.erl index bda859a9ac..470c82487a 100644 --- a/erts/emulator/test/float_SUITE.erl +++ b/erts/emulator/test/float_SUITE.erl @@ -23,6 +23,7 @@ -include_lib("common_test/include/ct.hrl"). -export([all/0, suite/0, groups/0, + init_per_testcase/2, end_per_testcase/2, fpe/1,fp_drv/1,fp_drv_thread/1,denormalized/1,match/1, t_mul_add_ops/1,negative_zero/1, bad_float_unpack/1, write/1, cmp_zero/1, cmp_integer/1, cmp_bignum/1]). @@ -43,6 +44,16 @@ all() -> groups() -> [{comparison, [parallel], [cmp_zero, cmp_integer, cmp_bignum]}]. +init_per_testcase(_TestCase, Config) -> + Config. +end_per_testcase(_TestCase, _Config) -> + case nodes(connected) of + [] -> ok; + Nodes -> + [net_kernel:disconnect(N) || N <- Nodes], + {fail, {"Leaked connections", Nodes}} + end. + %% %% OTP-7178, list_to_float on very small numbers should give 0.0 %% instead of exception, i.e. ignore underflow. |