diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 16bf8fb62..dad5eea06 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -35,7 +35,7 @@ [\\library ["[0]" /]]) -(def: path +(def path Test (_.for [/.Path] (do [! random.monad] @@ -70,7 +70,7 @@ (exception.match? /.not_ascii error))) ))))) -(def: name +(def name Test (_.for [/.Name] (do [! random.monad] @@ -103,7 +103,7 @@ (exception.match? /.not_ascii error))) ))))) -(def: small +(def small Test (_.for [/.Small] (do [! random.monad] @@ -127,7 +127,7 @@ (exception.match? /.not_a_small_number error))) ))))) -(def: big +(def big Test (_.for [/.Big] (do [! random.monad] @@ -151,9 +151,9 @@ (exception.match? /.not_a_big_number error))) ))))) -(def: chunk_size 32) +(def chunk_size 32) -(def: entry +(def entry Test (do [! random.monad] [expected_path (random.lower_case (-- /.path_size)) @@ -221,7 +221,7 @@ [/.Contiguous /.#Contiguous] )))))))) -(def: random_mode +(def random_mode (Random /.Mode) (do [! random.monad] [] @@ -238,7 +238,7 @@ (random.either (in /.set_group_id_on_execution) (in /.set_user_id_on_execution))))))) -(def: mode +(def mode Test (_.for [/.Mode /.mode] (do [! random.monad] @@ -311,7 +311,7 @@ [/.set_user_id_on_execution] ))))))) -(def: ownership +(def ownership Test (do [! random.monad] [path (random.lower_case /.path_size) @@ -390,7 +390,7 @@ (try.else false))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Tar]) |