aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/specification/lux/world/environment.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/specification/lux/world/environment.lux')
-rw-r--r--stdlib/source/specification/lux/world/environment.lux34
1 files changed, 0 insertions, 34 deletions
diff --git a/stdlib/source/specification/lux/world/environment.lux b/stdlib/source/specification/lux/world/environment.lux
deleted file mode 100644
index 1a586c554..000000000
--- a/stdlib/source/specification/lux/world/environment.lux
+++ /dev/null
@@ -1,34 +0,0 @@
-(.require
- [library
- [lux (.except)
- [abstract
- [monad (.only do)]]
- [control
- ["[0]" try]
- [concurrency
- ["[0]" async (.only Async)]]]
- [data
- ["[0]" text]
- [collection
- ["[0]" dictionary]
- ["[0]" list]]]
- [math
- ["[0]" random]]
- [test
- ["_" property (.only Test)]
- ["[0]" unit]]]]
- [\\library
- ["[0]" /]])
-
-(def .public (spec subject)
- (-> (/.Environment Async) Test)
- (do random.monad
- [exit random.int]
- (in (do [! async.monad]
- [environment (/.environment ! subject)]
- (unit.coverage [/.Environment]
- (and (not (dictionary.empty? environment))
- (list.every? (|>> text.empty? not)
- (dictionary.keys environment))
- (not (text.empty? (of subject home)))
- (not (text.empty? (of subject directory)))))))))