diff options
Diffstat (limited to 'new-luxc/test/test/luxc/lang/analysis/procedure/common.lux')
-rw-r--r-- | new-luxc/test/test/luxc/lang/analysis/procedure/common.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux index b992ca2d6..dae39228f 100644 --- a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux +++ b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux @@ -13,14 +13,14 @@ (meta [code] [type "type/" Eq<Type>]) test) - (luxc ["&" base] - ["&;" scope] - ["&;" module] - [";L" eval] - (lang ["~" analysis] + (luxc ["&" lang] + (lang ["&;" scope] + ["&;" module] + ["~" analysis] (analysis [";A" expression] ["@" procedure] - ["@;" common]))) + ["@;" common]) + [";L" eval])) (../.. common) (test/luxc common)) @@ -243,9 +243,9 @@ (test "Can replace a text inside of a larger one (all times)." (check-success+ "lux text replace-all" (list subjectC paramC replacementC) Text)) (test "Can obtain the character code of a text at a given index." - (check-success+ "lux text char" (list subjectC fromC) Nat)) + (check-success+ "lux text char" (list subjectC fromC) (type (Maybe Nat)))) (test "Can clip a piece of text between 2 indices." - (check-success+ "lux text clip" (list subjectC fromC toC) Text)) + (check-success+ "lux text clip" (list subjectC fromC toC) (type (Maybe Text)))) )))) (context: "Array procedures" |