From 7249707e7c09be68dfb7507ba363efd3300a0141 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 16 Jun 2022 21:37:38 -0400 Subject: De-sigil-ification: suffix : [Part 14] --- stdlib/source/test/lux.lux | 50 +++++++++++++++++++++++----------------------- 1 file changed, 25 insertions(+), 25 deletions(-) (limited to 'stdlib/source/test/lux.lux') diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 71f03201e..14bb1ec55 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -1,4 +1,4 @@ -(.`` (.`` (.using +(.`` (.`` (.require [library ["/" lux (.except) [program (.only program:)] @@ -9,28 +9,28 @@ [monad (.only do)]] [control ["[0]" io] - ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" maybe (.use "[1]#[0]" functor)] [concurrency ["[0]" atom (.only Atom)]] [parser ["<[0]>" code]]] [data ["[0]" product] - ["[0]" bit (.open: "[1]#[0]" equivalence)] - ["[0]" text (.open: "[1]#[0]" equivalence) + ["[0]" bit (.use "[1]#[0]" equivalence)] + ["[0]" text (.use "[1]#[0]" equivalence) ["%" \\format (.only format)]] [collection - ["[0]" list (.open: "[1]#[0]" functor)] - ["[0]" set (.only Set) (.open: "[1]#[0]" equivalence)] + ["[0]" list (.use "[1]#[0]" functor)] + ["[0]" set (.only Set) (.use "[1]#[0]" equivalence)] [dictionary ["[0]" plist]]]] ["[0]" macro (.only) [syntax (.only syntax)] ["^" pattern] - ["[0]" code (.open: "[1]#[0]" equivalence)] + ["[0]" code (.use "[1]#[0]" equivalence)] ["[0]" template]] ["[0]" math - ["[0]" random (.open: "[1]#[0]" functor)] + ["[0]" random (.use "[1]#[0]" functor)] [number [i8 (.only)] [i16 (.only)] @@ -39,8 +39,8 @@ ["r" rev] ["f" frac] ["[0]" i64]]] - ["[0]" meta (.open: "[1]#[0]" monad) - ["[0]" location (.open: "[1]#[0]" equivalence)]]]] + ["[0]" meta (.use "[1]#[0]" monad) + ["[0]" location (.use "[1]#[0]" equivalence)]]]] ... TODO: Must have 100% coverage on tests. ["[0]" / ["[1][0]" abstract] @@ -198,7 +198,7 @@ (def static_return 123) -(/.open: "global#[0]" (..global_returner ..static_return)) +(/.use "global#[0]" (..global_returner ..static_return)) (def for_interface Test @@ -212,7 +212,7 @@ (all _.and (_.coverage [/.implementation] (n.= expected (at local_returner return []))) - (_.coverage [/.open:] + (_.coverage [/.use] (n.= static_return (global#return []))) (_.coverage [/.open] (let [(/.open "local#[0]") local_returner] @@ -403,7 +403,7 @@ (~~ (for @.old (~~ (these)) (_.coverage [/.Source] (..found_crosshair?)))) - (_.coverage [/.using] + (_.coverage [/.require] (`` (with_expansions [ ("lux in-module" "library/lux" library/lux.refer) (static.random code.text (random.lower_case 1)) (static.random code.local (random.lower_case 1)) @@ -443,50 +443,50 @@ false)))))] (scenario [])))] - [(.using [']) + [(.require [']) ("lux def module" []) []] - [(.using [ ' (.except)]) + [(.require [ ' (.except)]) ("lux def module" [[ ]]) [( (.except))]] - [(.using [ ' (.only )]) + [(.require [ ' (.only )]) ("lux def module" [[ ]]) [( (.only ))]] - [(.using [ ' (.except )]) + [(.require [ ' (.except )]) ("lux def module" [[ ]]) [( (.except ))]] - [(.using [ ']) + [(.require [ ']) ("lux def module" []) []] - [(.using [' + [(.require [' [ ']]) ("lux def module" [[ ]]) [( )]] - [(.using ["[0]" ' + [(.require ["[0]" ' ["[0]" ']]) ("lux def module" [[ ] [ ]]) [( ) ( )]] - [(.using ["[0]" ' + [(.require ["[0]" ' ["[1]" ']]) ("lux def module" [[ ]]) [( )]] - [(.using ["[0]" ' + [(.require ["[0]" ' ["[1]" ' ["[2]" ']]]) ("lux def module" [[ ]]) [( )]] - [(.using [' + [(.require [' ["[0]" ' ["[0]" ']]]) ("lux def module" [[ ] @@ -494,7 +494,7 @@ [( ) ( )]] - [(.using ["[0]" ' + [(.require ["[0]" ' [' ["[0]" <\\>']]]) ("lux def module" [[ ] @@ -502,7 +502,7 @@ [( ) ( )]] - [(.using ["[0]" ' (.open: "[1]#[0]" )]) + [(.require ["[0]" ' (.use "[1]#[0]" )]) ("lux def module" [[ ]]) [( ( ))]] )))))) -- cgit v1.2.3