JVM_IR add test for KT-47300

This commit is contained in:
Dmitry Petrov
2021-06-17 19:43:16 +03:00
committed by teamcityserver
parent 1cd75b1e82
commit ce107d06d4
8 changed files with 74 additions and 0 deletions
+36
View File
@@ -0,0 +1,36 @@
// WITH_RUNTIME
import kotlin.contracts.ExperimentalContracts
import kotlin.contracts.InvocationKind
import kotlin.contracts.contract
data class Content<out T>(val value: T)
fun <T> content(value: T) = Content(value)
@ExperimentalContracts
inline fun <R, T : R> Content<T>.getOrElse(
onException: (exception: Exception) -> R,
): R = fold({ it }, onException)
@ExperimentalContracts
inline fun <R, T> Content<T>.fold(
onContent: (value: T) -> R,
onException: (exception: Exception) -> R,
): R {
contract {
callsInPlace(onContent, InvocationKind.AT_MOST_ONCE)
callsInPlace(onException, InvocationKind.AT_MOST_ONCE)
}
return onContent(value)
}
@ExperimentalContracts
fun box(): String {
val t = content(1).getOrElse { 2 }
if (t != 1) return "Failed: $t"
return "OK"
}