diff options
| author | Eduardo Julian | 2019-02-07 20:06:45 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-02-07 20:06:45 -0400 |
| commit | 5f15b52079bd4ce7638cbfbc1c63cea53e4ffec7 (patch) | |
| tree | fe3b794f287614fa8005258ebbe4d7b448d0a86e /stdlib/source/test/lux/world/file.lux | |
| parent | ee70d1af74a295b41f01770c269d72ee2d990c27 (diff) | |
- Removed the current usage of data-integrity measures.
- TBD: New measures.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/world/file.lux | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index b3693f207..4beb4fd69 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -2,9 +2,7 @@ [lux #* ["." io (#+ IO)] [control - [monad (#+ do)] - [security - ["." integrity (#+ Dirty)]]] + [monad (#+ do)]] [concurrency ["." promise]] [data @@ -58,7 +56,7 @@ _ (:: file over-write data) content (:: file content []) _ (:: file delete [])] - (wrap (:: binary.equivalence = data (integrity.trust content)))))] + (wrap (:: binary.equivalence = data content))))] (assert "Can write/read files." (error.default #0 result))))) @@ -98,12 +96,10 @@ (wrap (and (n/= (n/* 2 file-size) read-size) (:: binary.equivalence = dataL - (error.assume (binary.slice 0 (dec file-size) - (integrity.trust content)))) + (error.assume (binary.slice 0 (dec file-size) content))) (:: binary.equivalence = dataR - (error.assume (binary.slice file-size (dec read-size) - (integrity.trust content))))))))] + (error.assume (binary.slice file-size (dec read-size) content)))))))] (assert "Can append to files." (error.default #0 result)))) (wrap (do promise.monad |