Add mixed-slot closure stress test
This commit is contained in:
parent
afbd6e45b9
commit
566ddc6bde
72
lynglib/src/commonTest/kotlin/NumericSlotMixTest.kt
Normal file
72
lynglib/src/commonTest/kotlin/NumericSlotMixTest.kt
Normal file
@ -0,0 +1,72 @@
|
||||
/*
|
||||
* Copyright 2026 Sergey S. Chernov real.sergeych@gmail.com
|
||||
*
|
||||
* Licensed under the Apache License, Version 2.0 (the "License");
|
||||
* you may not use this file except in compliance with the License.
|
||||
* You may obtain a copy of the License at
|
||||
*
|
||||
* http://www.apache.org/licenses/LICENSE-2.0
|
||||
*
|
||||
* Unless required by applicable law or agreed to in writing, software
|
||||
* distributed under the License is distributed on an "AS IS" BASIS,
|
||||
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
* See the License for the specific language governing permissions and
|
||||
* limitations under the License.
|
||||
*
|
||||
*/
|
||||
|
||||
import kotlinx.coroutines.test.runTest
|
||||
import net.sergeych.lyng.eval
|
||||
import kotlin.test.Test
|
||||
|
||||
class NumericSlotMixTest {
|
||||
|
||||
@Test
|
||||
fun testMixedSlotsInClosuresAndLoops() = runTest {
|
||||
eval(
|
||||
"""
|
||||
fun makeMulAdd(k) {
|
||||
return { x ->
|
||||
val tmp = x * k
|
||||
tmp + 0.5
|
||||
}
|
||||
}
|
||||
|
||||
fun testMix() {
|
||||
var sum = 0.0
|
||||
var isum = 0
|
||||
val f = makeMulAdd(2.0)
|
||||
for (i in 1..20) {
|
||||
val base = i
|
||||
val g = { y -> y + base }
|
||||
var inner = 0.0
|
||||
for (j in 1..5) {
|
||||
val v = f(j) + g(j)
|
||||
if (j % 2 == 0)
|
||||
inner += v
|
||||
else
|
||||
inner += v / 2.0
|
||||
when (j) {
|
||||
1 -> isum += j
|
||||
2 -> isum += j * 2
|
||||
3 -> isum += j + base
|
||||
else -> isum += j
|
||||
}
|
||||
}
|
||||
if (i % 3 == 0)
|
||||
sum += inner + 0.25
|
||||
else
|
||||
sum += inner + 1.0
|
||||
}
|
||||
assert(sum is Real)
|
||||
assert(isum is Int)
|
||||
sum + isum
|
||||
}
|
||||
|
||||
val result = testMix()
|
||||
assert(result is Real)
|
||||
assert(abs(result - 1965.5) < 1.0e-9)
|
||||
""".trimIndent()
|
||||
)
|
||||
}
|
||||
}
|
||||
Loading…
x
Reference in New Issue
Block a user