diff options
Diffstat (limited to 'stdlib/source/specification')
| -rw-r--r-- | stdlib/source/specification/lux/world/file.lux | 336 | ||||
| -rw-r--r-- | stdlib/source/specification/lux/world/shell.lux | 98 |
2 files changed, 0 insertions, 434 deletions
diff --git a/stdlib/source/specification/lux/world/file.lux b/stdlib/source/specification/lux/world/file.lux deleted file mode 100644 index 59b0148ec..000000000 --- a/stdlib/source/specification/lux/world/file.lux +++ /dev/null @@ -1,336 +0,0 @@ -(.require - [library - [lux (.except) - [abstract - [monad (.only do)]] - [control - [io (.only IO)] - ["[0]" maybe (.use "[1]#[0]" functor)] - ["[0]" try (.use "[1]#[0]" functor)] - ["[0]" exception] - [concurrency - ["[0]" async (.only Async)]] - [function - ["[0]" predicate]]] - [data - ["[0]" text (.use "[1]#[0]" equivalence) - ["%" \\format (.only format)] - [encoding - ["[0]" utf8 (.use "[1]#[0]" codec)]]] - ["[0]" binary (.only Binary) (.use "[1]#[0]" equivalence monoid) - ["$[1]" \\test]] - [collection - ["[0]" list]]] - [math - ["[0]" random] - [number - ["n" nat]]] - [world - [time - ["[0]" instant (.only Instant) (.use "[1]#[0]" equivalence)]]] - [test - ["_" property (.only Test)] - ["[0]" unit]]]] - [\\library - ["[0]" /]]) - -(def (for_path fs) - (-> (IO (/.System Async)) Test) - (<| (_.for [/.Path]) - (do [! random.monad] - [parent (random.numeric 2) - child (random.numeric 2)]) - in - (do async.monad - [fs (async.future fs)] - (all unit.and - (unit.coverage [/.rooted] - (let [path (/.rooted fs parent child)] - (and (text.starts_with? parent path) - (text.ends_with? child path)))) - (unit.coverage [/.parent] - (|> (/.rooted fs parent child) - (/.parent fs) - (maybe#each (text#= parent)) - (maybe.else false))) - (unit.coverage [/.name] - (|> (/.rooted fs parent child) - (/.name fs) - (text#= child))) - )))) - -(def (directory?&make_directory fs parent) - (-> (/.System Async) /.Path (Async Bit)) - (do async.monad - [directory_pre! (of fs directory? parent) - made? (of fs make_directory parent) - directory_post! (of fs directory? parent)] - (in (and (not directory_pre!) - (when made? - {try.#Success _} true - {try.#Failure _} false) - directory_post!)))) - -(def (file?&write fs content path) - (-> (/.System Async) Binary /.Path (Async Bit)) - (do async.monad - [file_pre! (of fs file? path) - made? (of fs write path content) - file_post! (of fs file? path)] - (in (and (not file_pre!) - (when made? - {try.#Success _} true - {try.#Failure _} false) - file_post!)))) - -(def (file_size&read&append fs expected_file_size content appendix path) - (-> (/.System Async) Nat Binary Binary /.Path (Async Bit)) - (do async.monad - [pre_file_size (of fs file_size path) - pre_content (of fs read path) - appended? (of fs append path appendix) - post_file_size (of fs file_size path) - post_content (of fs read path)] - (in (<| (try.else false) - (do [! try.monad] - [pre_file_size! - (of ! each (n.= expected_file_size) pre_file_size) - - pre_content! - (of ! each (binary#= content) pre_content) - - _ appended? - - post_file_size! - (of ! each (n.= (n.* 2 expected_file_size)) post_file_size) - - post_content! - (of ! each (binary#= (binary#composite content appendix)) post_content)] - (in (and pre_file_size! - pre_content! - post_file_size! - post_content!))))))) - -(def (modified?&last_modified fs expected_time path) - (-> (/.System Async) Instant /.Path (Async Bit)) - (do async.monad - [modified? (of fs modify path expected_time) - last_modified (of fs last_modified path)] - (in (<| (try.else false) - (do [! try.monad] - [_ modified?] - (of ! each (instant#= expected_time) last_modified)))))) - -(def (directory_files&sub_directories fs parent sub_dir child) - (-> (/.System Async) /.Path /.Path /.Path (Async Bit)) - (let [sub_dir (/.rooted fs parent sub_dir) - child (/.rooted fs parent child)] - (do async.monad - [made_sub? (of fs make_directory sub_dir) - directory_files (of fs directory_files parent) - sub_directories (of fs sub_directories parent) - .let [(open "list#[0]") (list.equivalence text.equivalence)]] - (in (<| (try.else false) - (do try.monad - [_ made_sub?] - (in (and (|> directory_files - (try#each (list#= (list child))) - (try.else false)) - (|> sub_directories - (try#each (list#= (list sub_dir))) - (try.else false)))))))))) - -(def (move&delete fs parent child alternate_child) - (-> (/.System Async) /.Path Text Text (Async Bit)) - (let [origin (/.rooted fs parent child) - destination (/.rooted fs parent alternate_child)] - (do [! async.monad] - [moved? (of fs move origin destination) - lost? (|> origin - (of fs file?) - (of ! each not)) - found? (of fs file? destination) - deleted? (of fs delete destination)] - (in (<| (try.else false) - (do try.monad - [_ moved? - _ deleted?] - (in (and lost? - found?)))))))) - -(def (for_system fs) - (-> (IO (/.System Async)) Test) - (<| (do [! random.monad] - [parent (random.numeric 2) - child (random.numeric 2) - sub_dir (random.only (|>> (text#= child) not) - (random.numeric 2)) - alternate_child (random.only (predicate.and - (|>> (text#= child) not) - (|>> (text#= sub_dir) not)) - (random.numeric 2)) - expected_file_size (of ! each (|>> (n.% 10) ++) random.nat) - content ($binary.random expected_file_size) - appendix ($binary.random expected_file_size) - expected_time random.instant]) - in - (do [! async.monad] - [fs (async.future fs) - .let [path (/.rooted fs parent child)] - - directory?&make_directory - (..directory?&make_directory fs parent) - - file?&write - (..file?&write fs content path) - - file_size&read&append - (..file_size&read&append fs expected_file_size content appendix path) - - modified?&last_modified - (..modified?&last_modified fs expected_time path) - - can_execute? - (|> path - (of fs can_execute?) - (of ! each (|>> (try.else true) not))) - - directory_files&sub_directories - (..directory_files&sub_directories fs parent sub_dir child) - - move&delete - (..move&delete fs parent child alternate_child)]) - (unit.coverage [/.System] - (and directory?&make_directory - file?&write - file_size&read&append - modified?&last_modified - can_execute? - directory_files&sub_directories - move&delete)))) - -(def (make_directories&cannot_make_directory fs) - (-> (IO (/.System Async)) Test) - (<| (do [! random.monad] - [dir/0 (random.numeric 2) - dir/1 (random.numeric 2) - dir/2 (random.numeric 2)]) - in - (do [! async.monad] - [fs (async.future fs) - .let [dir/1 (/.rooted fs dir/0 dir/1) - dir/2 (/.rooted fs dir/1 dir/2)] - pre_dir/0 (of fs directory? dir/0) - pre_dir/1 (of fs directory? dir/1) - pre_dir/2 (of fs directory? dir/2) - made? (/.make_directories ! fs dir/2) - post_dir/0 (of fs directory? dir/0) - post_dir/1 (of fs directory? dir/1) - post_dir/2 (of fs directory? dir/2) - - cannot_make_directory!/0 (/.make_directories ! fs "") - cannot_make_directory!/1 (/.make_directories ! fs (of fs separator))]) - (all unit.and - (unit.coverage [/.make_directories] - (and (not pre_dir/0) - (not pre_dir/1) - (not pre_dir/2) - (when made? - {try.#Success _} true - {try.#Failure _} false) - post_dir/0 - post_dir/1 - post_dir/2)) - (unit.coverage [/.cannot_make_directory] - (and (when cannot_make_directory!/0 - {try.#Success _} - false - - {try.#Failure error} - (exception.match? /.cannot_make_directory error)) - (when cannot_make_directory!/1 - {try.#Success _} - false - - {try.#Failure error} - (exception.match? /.cannot_make_directory error)))) - ))) - -(def (make_file&cannot_make_file fs) - (-> (IO (/.System Async)) Test) - (<| (do [! random.monad] - [file/0 (random.numeric 3)]) - in - (do [! async.monad] - [fs (async.future fs) - make_file!/0 (/.make_file ! fs (utf8#encoded file/0) file/0) - make_file!/1 (/.make_file ! fs (utf8#encoded file/0) file/0)]) - (all unit.and - (unit.coverage [/.make_file] - (when make_file!/0 - {try.#Success _} true - {try.#Failure error} false)) - (unit.coverage [/.cannot_make_file] - (when make_file!/1 - {try.#Success _} - false - - {try.#Failure error} - (exception.match? /.cannot_make_file error))) - ))) - -(def (for_utilities fs) - (-> (IO (/.System Async)) Test) - (all _.and - (..make_directories&cannot_make_directory fs) - (..make_file&cannot_make_file fs) - )) - -(def (exists? fs) - (-> (IO (/.System Async)) Test) - (<| (do [! random.monad] - [file (random.numeric 2) - dir (random.only (|>> (text#= file) not) - (random.numeric 2))]) - in - (do [! async.monad] - [fs (async.future fs) - - pre_file/0 (of fs file? file) - pre_file/1 (/.exists? ! fs file) - pre_dir/0 (of fs directory? dir) - pre_dir/1 (/.exists? ! fs dir) - - made_file? (/.make_file ! fs (utf8#encoded file) file) - made_dir? (of fs make_directory dir) - - post_file/0 (of fs file? file) - post_file/1 (/.exists? ! fs file) - post_dir/0 (of fs directory? dir) - post_dir/1 (/.exists? ! fs dir)]) - (unit.coverage [/.exists?] - (and (not pre_file/0) - (not pre_file/1) - (not pre_dir/0) - (not pre_dir/1) - - (when made_file? - {try.#Success _} true - {try.#Failure _} false) - (when made_dir? - {try.#Success _} true - {try.#Failure _} false) - - post_file/0 - post_file/1 - post_dir/0 - post_dir/1)))) - -(def .public (spec fs) - (-> (IO (/.System Async)) Test) - (all _.and - (..for_path fs) - (..for_utilities fs) - (..for_system fs) - (..exists? fs) - )) diff --git a/stdlib/source/specification/lux/world/shell.lux b/stdlib/source/specification/lux/world/shell.lux deleted file mode 100644 index f0248af56..000000000 --- a/stdlib/source/specification/lux/world/shell.lux +++ /dev/null @@ -1,98 +0,0 @@ -(.require - [library - [lux (.except) - [abstract - [monad (.only do)]] - [control - ["[0]" try (.use "[1]#[0]" functor)] - [concurrency - ["[0]" async (.only Async) (.use "[1]#[0]" monad)]]] - [data - ["[0]" product] - ["[0]" text (.use "[1]#[0]" equivalence) - ["%" \\format (.only format)]]] - [math - ["[0]" random] - [number - ["n" nat] - ["i" int]]] - [test - ["_" property (.only Test)] - ["[0]" unit]]]] - [\\library - ["[0]" / (.only) - [// - [file (.only Path)] - ["[0]" environment - ["[1]" \\parser (.only Environment)]]]]]) - -(with_template [<name> <command> <type> <prep>] - [(def <name> - (-> <type> [Environment Path /.Command (List /.Argument)]) - (|>> <prep> list [environment.empty "~" <command>]))] - - [echo! "echo" Text (|>)] - [sleep! "sleep" Nat %.nat] - ) - -(def (can_wait! process) - (-> (/.Process Async) unit.Test) - (|> (of process await []) - (async#each (|>> (try#each (i.= /.normal)) - (try.else false) - (unit.coverage [/.Exit /.normal]))) - async#conjoint)) - -(def (can_read! expected process) - (-> Text (/.Process Async) (Async Bit)) - (|> (of process read []) - (async#each (|>> (try#each (text#= expected)) - (try.else false))))) - -(def (can_destroy! process) - (-> (/.Process Async) (Async Bit)) - (do async.monad - [?destroy (of process destroy []) - ?await (of process await [])] - (in (and (when ?destroy - {try.#Success _} - true - - {try.#Failure error} - false) - (when ?await - {try.#Success _} - false - - {try.#Failure error} - true))))) - -(with_expansions [<shell_coverage> (these [/.Command /.Argument])] - (def .public (spec shell) - (-> (/.Shell Async) Test) - (<| (_.for [/.Shell - /.execute - - /.Process - /.read /.fail /.write /.destroy /.await]) - (do [! random.monad] - [message (random.alphabetic 10) - seconds (of ! each (|>> (n.% 5) (n.+ 5)) random.nat)] - (in (do [! async.monad] - [?echo (of shell execute (..echo! message)) - ?sleep (of shell execute (..sleep! seconds))] - (when [?echo ?sleep] - [{try.#Success echo} {try.#Success sleep}] - (do ! - [can_read! (..can_read! message echo) - can_destroy! (..can_destroy! sleep)] - (all unit.and - (unit.coverage <shell_coverage> - (and can_read! - can_destroy!)) - (..can_wait! echo) - )) - - _ - (unit.coverage <shell_coverage> - false)))))))) |