diff options
author | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
commit | 35c0807799717cd720ab28b35851c1a01a67445d (patch) | |
tree | c6237b79fb262d24c8a46ee3ecb714df3e9874d8 /stdlib/source/test/lux.lux | |
parent | b55cefcb258f11eeee32c1478faefd1bd09ec871 (diff) |
De-taggification | part 4
Diffstat (limited to 'stdlib/source/test/lux.lux')
-rw-r--r-- | stdlib/source/test/lux.lux | 88 |
1 files changed, 44 insertions, 44 deletions
diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 9e353a1c3..c67d6efc5 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -1,5 +1,5 @@ -(.with_expansions [<target>' (.for {"{old}" (.as_is ["#/." jvm]) - "JVM" (.as_is ["#/." jvm])} +(.with_expansions [<target>' (.for {"{old}" (.as_is ["[1]/[0]" jvm]) + "JVM" (.as_is ["[1]/[0]" jvm])} (.as_is)) <target> <target>'] (.module: @@ -11,28 +11,28 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe ("#\." functor)] + ["[0]" io] + ["[0]" maybe ("[1]\[0]" functor)] [concurrency - ["." atom {"+" [Atom]}]] + ["[0]" atom {"+" [Atom]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set {"+" [Set]} ("#\." equivalence)] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]} ("[1]\[0]" equivalence)] [dictionary - ["." plist]]]] - ["." macro + ["[0]" plist]]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code ("#\." equivalence)] - ["." template]] - ["." math - ["." random ("#\." functor)] + ["[0]" code ("[1]\[0]" equivalence)] + ["[0]" template]] + ["[0]" math + ["[0]" random ("[1]\[0]" functor)] [number [i8 {"+" []}] [i16 {"+" []}] @@ -40,32 +40,32 @@ ["i" int] ["r" rev] ["f" frac] - ["." i64]]] - ["." meta - ["." location ("#\." equivalence)]]]] + ["[0]" i64]]] + ["[0]" meta + ["[0]" location ("[1]\[0]" equivalence)]]]] ... TODO: Must have 100% coverage on tests. - ["." / "_" - ["#." abstract] - ["#." control] - ["#." data] - ["#." debug] - ["#." documentation] - ["#." locale] - ["#." macro - ["#/." code]] - ["#." math] - ["#." meta] - ["#." program] - ["#." static] - ["#." target] - ["#." test] - ["#." time] - ... ["#." tool] ... TODO: Update & expand tests for this - ["#." type] - ["#." world] - ["#." ffi] - ["#." extension] - ["#." target "_" + ["[0]" / "_" + ["[1][0]" abstract] + ["[1][0]" control] + ["[1][0]" data] + ["[1][0]" debug] + ["[1][0]" documentation] + ["[1][0]" locale] + ["[1][0]" macro + ["[1]/[0]" code]] + ["[1][0]" math] + ["[1][0]" meta] + ["[1][0]" program] + ["[1][0]" static] + ["[1][0]" target] + ["[1][0]" test] + ["[1][0]" time] + ... ["[1][0]" tool] ... TODO: Update & expand tests for this + ["[1][0]" type] + ["[1][0]" world] + ["[1][0]" ffi] + ["[1][0]" extension] + ["[1][0]" target "_" <target>]])) ... TODO: Get rid of this ASAP @@ -238,7 +238,7 @@ (def: static_return 123) -(/.open: "global\." (..global_returner ..static_return)) +(/.open: "global\[0]" (..global_returner ..static_return)) (def: for_interface Test @@ -257,7 +257,7 @@ (_.cover [/.open:] (n.= static_return (global\return []))) (_.cover [/.^open] - (let [(/.^open "local\.") local_returner] + (let [(/.^open "local\[0]") local_returner] (n.= expected (local\return [])))) (_.cover [/.\] (n.= expected (/.\ local_returner return []))) |