diff options
| author | Dan Gudmundsson <[email protected]> | 2013-11-29 14:55:12 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2013-11-29 14:55:12 +0100 |
| commit | 49799666d163a72114d7a936f6f528c3726018ae (patch) | |
| tree | d3dcbb12347a28cd2529fbcadf9707af2798906d /lib/mnesia/test/mnesia_dirty_access_test.erl | |
| parent | 0279799e4f3d2404f657863d04d8c1d6f6c08985 (diff) | |
| download | otp-49799666d163a72114d7a936f6f528c3726018ae.tar.gz otp-49799666d163a72114d7a936f6f528c3726018ae.tar.bz2 otp-49799666d163a72114d7a936f6f528c3726018ae.zip | |
mnesia: Fix dirty_update bug when subscriber exists
dirty_update_counter returned the wrong value when a subscriber existed
and no events was sent. Thanks Anton Ryabkov.
Diffstat (limited to 'lib/mnesia/test/mnesia_dirty_access_test.erl')
| -rw-r--r-- | lib/mnesia/test/mnesia_dirty_access_test.erl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/mnesia/test/mnesia_dirty_access_test.erl b/lib/mnesia/test/mnesia_dirty_access_test.erl index 6017092095..519b4bb052 100644 --- a/lib/mnesia/test/mnesia_dirty_access_test.erl +++ b/lib/mnesia/test/mnesia_dirty_access_test.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2012. All Rights Reserved. +%% Copyright Ericsson AB 1996-2013. 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 @@ -198,6 +198,11 @@ dirty_update_counter(Config, Storage) -> ?match(1, mnesia:dirty_update_counter({Tab, foo}, 1)), ?match([{Tab, foo,1}], mnesia:dirty_read({Tab,foo})), + ?match({ok,_}, mnesia:subscribe({table, Tab, detailed})), + + ?match(2, mnesia:dirty_update_counter({Tab, foo}, 1)), + ?match([{Tab, foo,2}], mnesia:dirty_read({Tab,foo})), + ?verify_mnesia(Nodes, []). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |