diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux/data/format/json.lux | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/stdlib/test/test/lux/data/format/json.lux b/stdlib/test/test/lux/data/format/json.lux index 2dce7ad84..bd0e4ab67 100644 --- a/stdlib/test/test/lux/data/format/json.lux +++ b/stdlib/test/test/lux/data/format/json.lux @@ -12,9 +12,7 @@ [bool] [maybe] [number "i/" Number<Int>] - (format ["@" json] - (json ["@;" reader] - ["@;" codec])) + (format ["@" json]) (coll [vector #+ vector] ["d" dict] [list])) @@ -22,7 +20,8 @@ (macro [code] [syntax #+ syntax:] [poly #+ derived:] - [poly/eq]) + [poly/eq] + [poly/json]) ["r" math/random] test) ) @@ -44,7 +43,7 @@ (context: "JSON" [sample gen-json #let [(^open "@/") @;Eq<JSON> - (^open "@/") @codec;Codec<Text,JSON>]] + (^open "@/") @;Codec<Text,JSON>]] ($_ seq (test "Every JSON is equal to itself." (@/= sample sample)) @@ -104,7 +103,7 @@ gen-recursive ))) -(derived: (@codec;Codec<JSON,?> Record)) +(derived: (poly/json;Codec<JSON,?> Record)) (struct: _ (Eq Record) (def: (= recL recR) |