LGTM
On Wed, Apr 9, 2014 at 9:05 PM, Klaus Aehlig <[email protected]> wrote: > Not only verify that after the blockers for one pending request > have gone, some request was honored, but also verify that it was > not a request by one of the blockers. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > test/hs/Test/Ganeti/Locking/Waiting.hs | 2 +- > 1 file changed, 1 insertion(+), 1 deletion(-) > > diff --git a/test/hs/Test/Ganeti/Locking/Waiting.hs > b/test/hs/Test/Ganeti/Locking/Waiting.hs > index fa280b7..7fe6e52 100644 > --- a/test/hs/Test/Ganeti/Locking/Waiting.hs > +++ b/test/hs/Test/Ganeti/Locking/Waiting.hs > @@ -188,7 +188,7 @@ prop_Progress = > (_, notified) = S.foldl releaseOneOwner (state', S.empty) blockers > in printTestCase "Some progress must be made after all blockers release\ > \ their locks" > - . not $ S.null notified > + . not . S.null $ notified S.\\ blockers > > testSuite "Locking/Waiting" > [ 'prop_NoActionWithPendingRequests > -- > 1.9.1.423.g4596e3a > >
