aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/spec
diff options
context:
space:
mode:
authorEduardo Julian2021-02-10 19:04:18 -0400
committerEduardo Julian2021-02-10 19:04:18 -0400
commita5e2f99430384fff580646a553b1e8ae27e07acd (patch)
tree185681c6b41cec359a20cbb094e33048cbec921b /stdlib/source/spec
parentd99c47989a1047cd24019fd5ce434e701b5d3519 (diff)
Continuing with Lua
Diffstat (limited to '')
-rw-r--r--stdlib/source/spec/compositor/generation/common.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/spec/compositor/generation/common.lux b/stdlib/source/spec/compositor/generation/common.lux
index a963cd7f6..baa32674a 100644
--- a/stdlib/source/spec/compositor/generation/common.lux
+++ b/stdlib/source/spec/compositor/generation/common.lux
@@ -251,11 +251,11 @@
_
false))))
(let [test-clip (: (-> (I64 Any) (I64 Any) Text Bit)
- (function (_ from to expected)
+ (function (_ offset length expected)
(|> (#synthesis.Extension "lux text clip"
(list concatenatedS
- (synthesis.i64 from)
- (synthesis.i64 to)))
+ (synthesis.i64 offset)
+ (synthesis.i64 length)))
(run (..sanitize "lux text clip"))
(case> (^multi (#try.Success valueV)
[(:coerce (Maybe Text) valueV) (#.Some valueV)])
@@ -265,7 +265,7 @@
false))))]
(_.test "Can clip text to extract sub-text."
(and (test-clip 0 sample-size sample-lower)
- (test-clip sample-size (n.* 2 sample-size) sample-upper))))
+ (test-clip sample-size sample-size sample-upper))))
(_.test "Can extract individual characters from text."
(|> (#synthesis.Extension "lux text char"
(list sample-lowerS