diff options
Diffstat (limited to 'stdlib/source/test/aedifex/repository.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/repository.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux index 6b4feec76..5ef8a77c8 100644 --- a/stdlib/source/test/aedifex/repository.lux +++ b/stdlib/source/test/aedifex/repository.lux @@ -38,7 +38,7 @@ ["[1][0]" artifact (.only Version Artifact) ["[1]/[0]" extension (.only Extension)]]]]]) -(def: artifact +(def artifact (-> Version Artifact) (|>> ["com.github.luxlang" "test-artifact"])) @@ -53,24 +53,24 @@ (type: Store (Dictionary URI Binary)) -(def: .public empty +(def .public empty Store (dictionary.empty text.hash)) -(def: valid_version +(def valid_version Version "1.2.3-YES") -(def: invalid_version +(def invalid_version Version "4.5.6-NO") -(def: .public mock +(def .public mock (/.Mock Store) (implementation - (def: the_description + (def the_description "@") - (def: (on_download uri state) + (def (on_download uri state) (case (dictionary.value uri state) {.#Some content} (case (binary.size content) @@ -79,12 +79,12 @@ {.#None} (exception.except ..not_found [uri]))) - (def: (on_upload uri content state) + (def (on_upload uri content state) (if (dictionary.key? state uri) (exception.except ..cannot_upload [uri]) {try.#Success (dictionary.has uri content state)})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and |