diff options
| author | Eduardo Julian | 2021-02-10 19:04:18 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-02-10 19:04:18 -0400 |
| commit | a5e2f99430384fff580646a553b1e8ae27e07acd (patch) | |
| tree | 185681c6b41cec359a20cbb094e33048cbec921b /stdlib/source/spec | |
| parent | d99c47989a1047cd24019fd5ce434e701b5d3519 (diff) | |
Continuing with Lua
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/spec/compositor/generation/common.lux | 8 |
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 |