<NME> ElmRecordResolveTest.kt
<BEF> package org.elm.lang.core.resolve



/**
 * Tests related to resolving record and field references
 *
 * NOTE: as of 2017-12-11 most of this has not yet been implemented.
class ElmRecordResolveTest : ElmResolveTestBase() {

    fun `test field access ref`() = checkByCode(
"""
foo : { b : String }
foo a = a.b
  --X --^
  --X --^
""")

    fun `test record name base ref`() = checkByCode(
            """
  --X   --^
""")

}
}

<MSG> Fix type variable ref resolve in record extensions (#65)

Fixes #62 
<DFF> @@ -9,7 +9,7 @@ package org.elm.lang.core.resolve
 class ElmRecordResolveTest : ElmResolveTestBase() {
 
     fun `test field access ref`() = checkByCode(
-"""
+            """
 foo : { b : String }
 foo a = a.b
   --X --^
@@ -21,4 +21,16 @@ foo a = { a | bar = a.bar }
   --X   --^
 """)
 
+    fun `test record extension type base ref in type alias decl`() = checkByCode(
+            """
+type alias Foo a = { a | bar : Int }
+             --X   --^
+""")
+
+    fun `test record extension type base ref in union type decl`() = checkByCode(
+            """
+type Foo a = Bar { a | bar : Int }
+       --X       --^
+""")
+
 }

Fix type variable ref resolve in record extensions (#65)