diff options
Diffstat (limited to 'stdlib/source/test/lux.lux')
| -rw-r--r-- | stdlib/source/test/lux.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index f830f8215..4caf29c32 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -280,17 +280,17 @@ false)))) )) -(template: (hypotenuse cat0 cat1) +(template: (quadrance cat0 cat1) (n/+ (n/* cat0 cat0) (n/* cat1 cat1))) -(def: template +(def: templates Test (do r.monad [cat0 r.nat cat1 r.nat] (_.test "Template application is a stand-in for the templated code." (n/= (n/+ (n/* cat0 cat0) (n/* cat1 cat1)) - (hypotenuse cat0 cat1))))) + (quadrance cat0 cat1))))) (def: cross-platform-support Test @@ -324,7 +324,7 @@ (..even-or-odd r.int i/even? i/odd?)))) (<| (_.context "Minimum and maximum.") (`` ($_ _.and - (~~ (do-template [<=> <lt> <min> <gt> <max> <gen> <context>] + (~~ (template [<=> <lt> <min> <gt> <max> <gen> <context>] [(<| (_.context <context>) (..minimum-and-maximum <gen> <=> [<lt> <min>] [<gt> <max>]))] @@ -335,7 +335,7 @@ ))))) (<| (_.context "Conversion.") (`` ($_ _.and - (~~ (do-template [<=> <forward> <backward> <gen>] + (~~ (template [<=> <forward> <backward> <gen>] [(<| (_.context (format (%name (name-of <forward>)) " " (%name (name-of <backward>)))) (..conversion <gen> <forward> <backward> <=>))] @@ -349,7 +349,7 @@ (<| (_.context "Prelude macros.") ..prelude-macros) (<| (_.context "Templates.") - ..template) + ..templates) (<| (_.context "Cross-platform support.") ..cross-platform-support) /cli.test |