JS backend: testFiles -> testData

js/js.translator/testData/expression/function/cases/mangling.kt

@@ -0,0 +1,238 @@
+package foo
+
+public fun public_baz(i: Int) {
+}
+native public fun public_baz(a: String) {
+}
+
+fun internal_baz(i: Int) {
+}
+native fun internal_baz(a: String) {
+}
+
+private fun private_baz(i: Int) {
+}
+native private fun private_baz(a: String) {
+}
+
+public class PublicClass {
+    public fun public_baz(i: Int) {
+    }
+    native public fun public_baz(a: String) {
+    }
+
+    fun internal_baz(i: Int) {
+    }
+    native fun internal_baz(a: String) {
+    }
+
+    private fun private_baz(i: Int) {
+    }
+    native private fun private_baz(a: String) {
+    }
+
+    val call_private_baz = { private_baz(0) }
+    val call_private_native_baz = { private_baz("native") }
+}
+
+class InternalClass {
+    public fun public_baz(i: Int) {
+    }
+    native public fun public_baz(a: String) {
+    }
+
+    fun internal_baz(i: Int) {
+    }
+    native fun internal_baz(a: String) {
+    }
+
+    private fun private_baz(i: Int) {
+    }
+    native private fun private_baz(a: String) {
+    }
+
+    val call_private_baz = { private_baz(0) }
+    val call_private_native_baz = { private_baz("native") }
+}
+
+private class PrivateClass {
+    public fun public_baz(i: Int) {
+    }
+    native public fun public_baz(a: String) {
+    }
+
+    fun internal_baz(i: Int) {
+    }
+    native fun internal_baz(a: String) {
+    }
+
+    private fun private_baz(i: Int) {
+    }
+    native private fun private_baz(a: String) {
+    }
+
+    val call_private_baz = { private_baz(0) }
+    val call_private_native_baz = { private_baz("native") }
+}
+
+open public class OpenPublicClass {
+    public fun public_baz(i: Int) {
+    }
+    native public fun public_baz(a: String) {
+    }
+
+    fun internal_baz(i: Int) {
+    }
+    native fun internal_baz(a: String) {
+    }
+
+    private fun private_baz(i: Int) {
+    }
+    native private fun private_baz(a: String) {
+    }
+
+    val call_private_baz = { private_baz(0) }
+    val call_private_native_baz = { private_baz("native") }
+}
+
+open class OpenInternalClass {
+    public fun public_baz(i: Int) {
+    }
+    native public fun public_baz(a: String) {
+    }
+
+    fun internal_baz(i: Int) {
+    }
+    native fun internal_baz(a: String) {
+    }
+
+    private fun private_baz(i: Int) {
+    }
+    native private fun private_baz(a: String) {
+    }
+
+    val call_private_baz = { private_baz(0) }
+    val call_private_native_baz = { private_baz("native") }
+}
+
+open private class OpenPrivateClass {
+    public fun public_baz(i: Int) {
+    }
+    native public fun public_baz(a: String) {
+    }
+
+    fun internal_baz(i: Int) {
+    }
+    native fun internal_baz(a: String) {
+    }
+
+    private fun private_baz(i: Int) {
+    }
+    native private fun private_baz(a: String) {
+    }
+
+    val call_private_baz = { private_baz(0) }
+    val call_private_native_baz = { private_baz("native") }
+}
+
+// Helpers
+
+native
+fun String.search(regexp: RegExp): Int = noImpl
+
+native
+class RegExp(regexp: String, flags: String = "") {
+    fun exec(s: String): Array<String>? = noImpl
+}
+
+val CALEE_NAME = RegExp("""\b\w*(baz[^(]*)""")
+
+fun Function0<Unit>.extractNames(): Array<String> {
+    val names = CALEE_NAME.exec(this.toString())
+
+    if (names == null || names.size != 2) {
+        throw Exception("Cannot extract function name, $names for actual = \"$this\"")
+    }
+
+    return names
+}
+
+// Testing
+
+var testGroup = ""
+
+fun test(expected: String, f: () -> Unit) {
+    val actual = f.extractNames()
+
+    if (expected != actual[1]) {
+        throw Exception("Failed on '$testGroup' group: expected = \"$expected\", actual[1] = \"${actual[1]}\"\n actual = $actual")
+    }
+}
+
+public fun stable_mangled_baz(i: Int) {
+}
+
+val SIMPLE = "baz"
+val SIMPLE1 = "${SIMPLE}_1"
+val NATIVE = SIMPLE
+val STABLE = { stable_mangled_baz(0) }.extractNames()[1]
+
+fun box(): String {
+    testGroup = "Top Level"
+    test(STABLE) { public_baz(0) }
+    test(NATIVE) { public_baz("native") }
+    test(SIMPLE1) { internal_baz(0) }
+    test(NATIVE) { internal_baz("native") }
+    test(SIMPLE1) { private_baz(0) }
+    test(NATIVE) { private_baz("native") }
+
+    testGroup = "Public Class"
+    test(STABLE) { PublicClass().public_baz(0) }
+    test(NATIVE) { PublicClass().public_baz("native") }
+    test(SIMPLE1) { PublicClass().internal_baz(0) }
+    test(NATIVE) { PublicClass().internal_baz("native") }
+    test(SIMPLE1, PublicClass().call_private_baz)
+    test(NATIVE, PublicClass().call_private_native_baz)
+
+    testGroup = "Internal Class"
+    test(SIMPLE1) { InternalClass().public_baz(0) }
+    test(NATIVE) { InternalClass().public_baz("native") }
+    test(SIMPLE1) { InternalClass().internal_baz(0) }
+    test(NATIVE) { InternalClass().internal_baz("native") }
+    test(SIMPLE1, InternalClass().call_private_baz)
+    test(NATIVE, InternalClass().call_private_native_baz)
+
+    testGroup = "Private Class"
+    test(SIMPLE1) { PrivateClass().public_baz(0) }
+    test(NATIVE) { PrivateClass().public_baz("native") }
+    test(SIMPLE1) { PrivateClass().internal_baz(0) }
+    test(NATIVE) { PrivateClass().internal_baz("native") }
+    test(SIMPLE1, PrivateClass().call_private_baz)
+    test(NATIVE, PrivateClass().call_private_native_baz)
+
+    testGroup = "Open Public Class"
+    test(STABLE) { OpenPublicClass().public_baz(0) }
+    test(NATIVE) { OpenPublicClass().public_baz("native") }
+    test(STABLE) { OpenPublicClass().internal_baz(0) }
+    test(NATIVE) { OpenPublicClass().internal_baz("native") }
+    test(STABLE, OpenPublicClass().call_private_baz)
+    test(NATIVE, OpenPublicClass().call_private_native_baz)
+
+    testGroup = "Open Internal Class"
+    test(STABLE) { OpenInternalClass().public_baz(0) }
+    test(NATIVE) { OpenInternalClass().public_baz("native") }
+    test(STABLE) { OpenInternalClass().internal_baz(0) }
+    test(NATIVE) { OpenInternalClass().internal_baz("native") }
+    test(STABLE, OpenInternalClass().call_private_baz)
+    test(NATIVE, OpenInternalClass().call_private_native_baz)
+
+    testGroup = "Open Private Class"
+    test(STABLE) { OpenPrivateClass().public_baz(0) }
+    test(NATIVE) { OpenPrivateClass().public_baz("native") }
+    test(STABLE) { OpenPrivateClass().internal_baz(0) }
+    test(NATIVE) { OpenPrivateClass().internal_baz("native") }
+    test(STABLE, OpenPrivateClass().call_private_baz)
+    test(NATIVE, OpenPrivateClass().call_private_native_baz)
+
+    return "OK"
+}