diff options
| author | Sverker Eriksson <[email protected]> | 2018-03-20 15:27:43 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2018-03-20 17:34:12 +0100 |
| commit | 902e1df69542e07e7c363f5b599ac1551b8fbb64 (patch) | |
| tree | 332c649994ea663967a9446bfaf5276f41a7b29a /erts/emulator/test/driver_SUITE.erl | |
| parent | 21e71598fddd8483ff0b43eca0a101aa4e3c024a (diff) | |
| download | otp-902e1df69542e07e7c363f5b599ac1551b8fbb64.tar.gz otp-902e1df69542e07e7c363f5b599ac1551b8fbb64.tar.bz2 otp-902e1df69542e07e7c363f5b599ac1551b8fbb64.zip | |
erts: Add dynamic loaded drivers to list of "taints"
Diffstat (limited to 'erts/emulator/test/driver_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/driver_SUITE.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/erts/emulator/test/driver_SUITE.erl b/erts/emulator/test/driver_SUITE.erl index 294c42780d..40c7cc11e1 100644 --- a/erts/emulator/test/driver_SUITE.erl +++ b/erts/emulator/test/driver_SUITE.erl @@ -2589,8 +2589,18 @@ stop_driver(Port, Name) -> ok = erl_ddll:stop(). load_driver(Dir, Driver) -> + Before = erlang:system_info(taints), case erl_ddll:load_driver(Dir, Driver) of - ok -> ok; + ok -> + After = erlang:system_info(taints), + case lists:member(Driver, Before) of + true -> + After = Before; + false -> + true = lists:member(Driver, After), + Before = lists:delete(Driver, After) + end, + ok; {error, Error} = Res -> io:format("~s\n", [erl_ddll:format_error(Error)]), Res |