diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/data/number/frac.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/data/number/frac.lux b/stdlib/source/test/lux/data/number/frac.lux index 544ab858c..e683fb134 100644 --- a/stdlib/source/test/lux/data/number/frac.lux +++ b/stdlib/source/test/lux/data/number/frac.lux @@ -1,6 +1,6 @@ (.module: [lux #* - data/text/format + ["%" data/text/format (#+ format)] ["_" test (#+ Test)] [abstract [monad (#+ do)] @@ -20,20 +20,20 @@ (def: #export test Test (let [gen-frac (:: r.monad map (|>> (i/% +100) .int-to-frac) r.int)] - (<| (_.context (%name (name-of /._))) + (<| (_.context (%.name (name-of /._))) (`` ($_ _.and ($equivalence.spec /.equivalence gen-frac) ($order.spec /.order gen-frac) ($number.spec /.order /.number gen-frac) (~~ (template [<monoid>] - [(<| (_.context (%name (name-of <monoid>))) + [(<| (_.context (%.name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> gen-frac))] [/.addition] [/.multiplication] [/.minimum] [/.maximum] )) ## TODO: Uncomment ASAP ## (~~ (template [<codec>] - ## [(<| (_.context (%name (name-of /.binary))) + ## [(<| (_.context (%.name (name-of /.binary))) ## ($codec.spec /.equivalence <codec> gen-frac))] ## [/.binary] [/.octal] [/.decimal] [/.hex] @@ -48,6 +48,6 @@ (hex "+dead,BE.EF")))) (do r.monad [sample gen-frac] - (_.test (format (%name (name-of /.frac-to-bits)) " " (%name (name-of /.bits-to-frac))) + (_.test (format (%.name (name-of /.frac-to-bits)) " " (%.name (name-of /.bits-to-frac))) (|> sample /.frac-to-bits /.bits-to-frac (f/= sample)))) ))))) |