diff options
Diffstat (limited to 'pbt/stateful-pbt/test')
| -rw-r--r-- | pbt/stateful-pbt/test/Exalt/APISpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pbt/stateful-pbt/test/Exalt/APISpec.hs b/pbt/stateful-pbt/test/Exalt/APISpec.hs index dd89f2c..3963108 100644 --- a/pbt/stateful-pbt/test/Exalt/APISpec.hs +++ b/pbt/stateful-pbt/test/Exalt/APISpec.hs @@ -116,7 +116,7 @@ spec = do newBalance `shouldBe` (initialAmount + depositAmount) - prop "can withdraw up-to available balance of any account" $ + prop "can withdraw up-to available balance from any account" $ forAll arbitrary $ \(NonEmpty accounts) -> forAll (elements accounts) $ \(accountNo, initialAmount@(EUR initialValue)) -> forAll (EUR <$> choose (0, initialValue)) $ \withdrawal -> do @@ -127,7 +127,7 @@ spec = do newBalance `shouldBe` (initialAmount - withdrawal) - prop "cannot withdraw more than available balance of any account" $ + prop "cannot withdraw more than available balance from any account" $ forAll arbitrary $ \(NonEmpty accounts) -> forAll (elements accounts) $ \(accountNo, initialAmount@(EUR initialValue)) -> forAll (EUR <$> choose (initialValue + 1, initialValue + 100000)) $ \withdrawal -> do |