aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/world/file.lux12
-rw-r--r--stdlib/source/test/lux/world/net/udp.lux8
2 files changed, 7 insertions, 13 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
diff --git a/stdlib/source/test/lux/world/net/udp.lux b/stdlib/source/test/lux/world/net/udp.lux
index 2b85958fa..d3d2531f9 100644
--- a/stdlib/source/test/lux/world/net/udp.lux
+++ b/stdlib/source/test/lux/world/net/udp.lux
@@ -1,9 +1,7 @@
(.module:
[lux #*
[control
- [monad (#+ do)]
- [security
- ["." integrity]]]
+ [monad (#+ do)]]
[concurrency
["." promise]]
[data
@@ -45,12 +43,12 @@
_ (:: client write [[localhost port] from])
[bytes-from [from-address from-port] temp] (:: server read size)
#let [from-worked? (and (n/= size bytes-from)
- (:: binary.equivalence = from (integrity.trust temp)))]
+ (:: binary.equivalence = from temp))]
####################
_ (:: server write [[from-address from-port] to])
[bytes-to [to-address to-port] temp] (:: client read size)
#let [to-worked? (and (n/= size bytes-to)
- (:: binary.equivalence = to (integrity.trust temp))
+ (:: binary.equivalence = to temp)
(n/= port to-port))]
####################
_ (:: client close [])