@apple/tree-sitter-pkl 0.17.0 → 0.18.1

package/test/corpus/snippetTests/listings/listing3.txt

@@ -0,0 +1,490 @@
+===
+listings/listing3.pkl
+===
+
+
+import "pkl:test"
+import "pkl:math"
+
+local x = new Listing {
+  "one"
+  "two"
+  "th" + "ree"
+}
+
+res1 = x[0]
+res2 = x[1]
+res3 = x[2]
+res4 = test.catch(() -> x[-1])
+res5 = test.catch(() -> x[3])
+res6 = test.catch(() -> x[math.minInt])
+res7 = test.catch(() -> x[math.maxInt])
+
+local y = new Listing {
+  new Listing {
+    "one"
+  }
+ new Listing {
+    "two"
+    "th" + "ree"
+  }
+  new Mapping {
+    ["four"] = 4
+  }
+}
+
+res8 = y[0][0]
+res9 = y[1][0]
+res10 = y[1][1]
+res11 = y[2]["four"]
+res12 = test.catch(() -> y[3][0])
+res13 = test.catch(() -> y[1][2])
+res14 = test.catch(() -> y[2]["other"])
+
+res15 = new Listing {
+  "one"
+  this[0]
+  "two"
+  this[2]
+  this[1]
+}
+
+res16 = (res15) {
+  "three"
+  this[0]
+  this[5]
+}
+
+res17 = new Listing {
+  "item"
+  this[0] + "2"
+}
+
+res18 = (res17) {
+  [0] = "element"
+  this[0] + "3"
+}
+
+res19 = (res18) {
+  [0] = "object"
+  this[0] + "4"
+}
+
+res20 = (x) {
+  [0] = super[0] + "2"
+  [1] = super[0] + "3"
+  super[0] + "4"
+  this[0] + "4"
+}
+
+local err0 = new Listing {
+  "foo"
+  this[3]
+}
+res21 = test.catch(() -> err0[1])
+
+res22 = new Listing {
+  super[0]
+  super[3]
+}
+
+
+
+---
+
+(module
+  (importClause
+    (stringConstant
+      (slStringLiteralPart)))
+  (importClause
+    (stringConstant
+      (slStringLiteralPart)))
+  (classProperty
+    (modifier)
+    (identifier)
+    (newExpr
+      (declaredType
+        (qualifiedIdentifier
+          (identifier)))
+      (objectBody
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (additiveExpr
+            (slStringLiteralExpr
+              (slStringLiteralPart))
+            (slStringLiteralExpr
+              (slStringLiteralPart)))))))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (intLiteralExpr)))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (intLiteralExpr)))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (intLiteralExpr)))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (unqualifiedAccessExpr
+              (identifier))
+            (unaryMinusExpr
+              (intLiteralExpr)))))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (unqualifiedAccessExpr
+              (identifier))
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (unqualifiedAccessExpr
+              (identifier))
+            (qualifiedAccessExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (identifier)))))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (unqualifiedAccessExpr
+              (identifier))
+            (qualifiedAccessExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (identifier)))))))
+  (classProperty
+    (modifier)
+    (identifier)
+    (newExpr
+      (declaredType
+        (qualifiedIdentifier
+          (identifier)))
+      (objectBody
+        (objectElement
+          (newExpr
+            (declaredType
+              (qualifiedIdentifier
+                (identifier)))
+            (objectBody
+              (objectElement
+                (slStringLiteralExpr
+                  (slStringLiteralPart))))))
+        (objectElement
+          (newExpr
+            (declaredType
+              (qualifiedIdentifier
+                (identifier)))
+            (objectBody
+              (objectElement
+                (slStringLiteralExpr
+                  (slStringLiteralPart)))
+              (objectElement
+                (additiveExpr
+                  (slStringLiteralExpr
+                    (slStringLiteralPart))
+                  (slStringLiteralExpr
+                    (slStringLiteralPart)))))))
+        (objectElement
+          (newExpr
+            (declaredType
+              (qualifiedIdentifier
+                (identifier)))
+            (objectBody
+              (objectEntry
+                (slStringLiteralExpr
+                  (slStringLiteralPart))
+                (intLiteralExpr))))))))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (subscriptExpr
+        (unqualifiedAccessExpr
+          (identifier))
+        (intLiteralExpr))
+      (intLiteralExpr)))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (subscriptExpr
+        (unqualifiedAccessExpr
+          (identifier))
+        (intLiteralExpr))
+      (intLiteralExpr)))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (subscriptExpr
+        (unqualifiedAccessExpr
+          (identifier))
+        (intLiteralExpr))
+      (intLiteralExpr)))
+  (classProperty
+    (identifier)
+    (subscriptExpr
+      (subscriptExpr
+        (unqualifiedAccessExpr
+          (identifier))
+        (intLiteralExpr))
+      (slStringLiteralExpr
+        (slStringLiteralPart))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (subscriptExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (intLiteralExpr))
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (subscriptExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (intLiteralExpr))
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (subscriptExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart)))))))
+  (classProperty
+    (identifier)
+    (newExpr
+      (declaredType
+        (qualifiedIdentifier
+          (identifier)))
+      (objectBody
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (subscriptExpr
+            (thisExpr)
+            (intLiteralExpr)))
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (subscriptExpr
+            (thisExpr)
+            (intLiteralExpr)))
+        (objectElement
+          (subscriptExpr
+            (thisExpr)
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (amendExpr
+      (parenthesizedExpr
+        (unqualifiedAccessExpr
+          (identifier)))
+      (objectBody
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (subscriptExpr
+            (thisExpr)
+            (intLiteralExpr)))
+        (objectElement
+          (subscriptExpr
+            (thisExpr)
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (newExpr
+      (declaredType
+        (qualifiedIdentifier
+          (identifier)))
+      (objectBody
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (additiveExpr
+            (subscriptExpr
+              (thisExpr)
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart)))))))
+  (classProperty
+    (identifier)
+    (amendExpr
+      (parenthesizedExpr
+        (unqualifiedAccessExpr
+          (identifier)))
+      (objectBody
+        (objectEntry
+          (intLiteralExpr)
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (additiveExpr
+            (subscriptExpr
+              (thisExpr)
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart)))))))
+  (classProperty
+    (identifier)
+    (amendExpr
+      (parenthesizedExpr
+        (unqualifiedAccessExpr
+          (identifier)))
+      (objectBody
+        (objectEntry
+          (intLiteralExpr)
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (additiveExpr
+            (subscriptExpr
+              (thisExpr)
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart)))))))
+  (classProperty
+    (identifier)
+    (amendExpr
+      (parenthesizedExpr
+        (unqualifiedAccessExpr
+          (identifier)))
+      (objectBody
+        (objectEntry
+          (intLiteralExpr)
+          (additiveExpr
+            (superSubscriptExpr
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart))))
+        (objectEntry
+          (intLiteralExpr)
+          (additiveExpr
+            (superSubscriptExpr
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart))))
+        (objectElement
+          (additiveExpr
+            (superSubscriptExpr
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart))))
+        (objectElement
+          (additiveExpr
+            (subscriptExpr
+              (thisExpr)
+              (intLiteralExpr))
+            (slStringLiteralExpr
+              (slStringLiteralPart)))))))
+  (classProperty
+    (modifier)
+    (identifier)
+    (newExpr
+      (declaredType
+        (qualifiedIdentifier
+          (identifier)))
+      (objectBody
+        (objectElement
+          (slStringLiteralExpr
+            (slStringLiteralPart)))
+        (objectElement
+          (subscriptExpr
+            (thisExpr)
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (qualifiedAccessExpr
+      (unqualifiedAccessExpr
+        (identifier))
+      (identifier)
+      (argumentList
+        (functionLiteralExpr
+          (parameterList)
+          (subscriptExpr
+            (unqualifiedAccessExpr
+              (identifier))
+            (intLiteralExpr))))))
+  (classProperty
+    (identifier)
+    (newExpr
+      (declaredType
+        (qualifiedIdentifier
+          (identifier)))
+      (objectBody
+        (objectElement
+          (superSubscriptExpr
+            (intLiteralExpr)))
+        (objectElement
+          (superSubscriptExpr
+            (intLiteralExpr)))))))

package/test/corpus/snippetTests/listings/listing4.txt

@@ -0,0 +1,156 @@
+===
+listings/listing4.pkl
+===
+
+amends "../snippetTest.pkl"
+
+examples {
+  ["listings are lazy"] {
+    local listing = new Listing<String> {
+      "foo"
+      throw("uh oh")
+    }
+    listing[0]
+    module.catch(() -> listing[1])
+  }
+  ["listings are lazy with generator entries"] {
+    local listing = new Listing<String> {
+      when (false) {
+        "uh oh"
+      }
+      "foo"
+      throw("uh oh")
+    }
+    listing[0]
+  }
+  ["nested listings are also lazy"] {
+    local listing = new Listing<Listing<String>> {
+      new {
+        "bar"
+        throw("uh oh")
+      }
+    }
+    listing[0][0]
+  }
+}
+
+---
+
+(module
+  (moduleHeader
+      (extendsOrAmendsClause
+      (stringConstant
+        (slStringLiteralPart))))
+  (classProperty
+    (identifier)
+    (objectBody
+      (objectEntry
+        (slStringLiteralExpr
+          (slStringLiteralPart))
+        (objectBody
+          (objectProperty
+            (modifier)
+            (identifier)
+            (newExpr
+              (declaredType
+                (qualifiedIdentifier
+                  (identifier))
+                (typeArgumentList
+                  (declaredType
+                    (qualifiedIdentifier
+                      (identifier)))))
+              (objectBody
+                (objectElement
+                  (slStringLiteralExpr
+                    (slStringLiteralPart)))
+                (objectElement
+                  (throwExpr
+                    (slStringLiteralExpr
+                      (slStringLiteralPart)))))))
+          (objectElement
+            (subscriptExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (intLiteralExpr)))
+          (objectElement
+            (qualifiedAccessExpr
+              (moduleExpr)
+              (identifier)
+              (argumentList
+                (functionLiteralExpr
+                  (parameterList)
+                  (subscriptExpr
+                    (unqualifiedAccessExpr
+                      (identifier))
+                    (intLiteralExpr))))))))
+      (objectEntry
+        (slStringLiteralExpr
+          (slStringLiteralPart))
+        (objectBody
+          (objectProperty
+            (modifier)
+            (identifier)
+            (newExpr
+              (declaredType
+                (qualifiedIdentifier
+                  (identifier))
+                (typeArgumentList
+                  (declaredType
+                    (qualifiedIdentifier
+                      (identifier)))))
+              (objectBody
+                (whenGenerator
+                  (falseLiteralExpr)
+                  (objectBody
+                    (objectElement
+                      (slStringLiteralExpr
+                        (slStringLiteralPart)))))
+                (objectElement
+                  (slStringLiteralExpr
+                    (slStringLiteralPart)))
+                (objectElement
+                  (throwExpr
+                    (slStringLiteralExpr
+                      (slStringLiteralPart)))))))
+          (objectElement
+            (subscriptExpr
+              (unqualifiedAccessExpr
+                (identifier))
+              (intLiteralExpr)))))
+      (objectEntry
+        (slStringLiteralExpr
+          (slStringLiteralPart))
+        (objectBody
+          (objectProperty
+            (modifier)
+            (identifier)
+            (newExpr
+              (declaredType
+                (qualifiedIdentifier
+                  (identifier))
+                (typeArgumentList
+                  (declaredType
+                    (qualifiedIdentifier
+                      (identifier))
+                    (typeArgumentList
+                      (declaredType
+                        (qualifiedIdentifier
+                          (identifier)))))))
+              (objectBody
+                (objectElement
+                  (newExpr
+                    (objectBody
+                      (objectElement
+                        (slStringLiteralExpr
+                          (slStringLiteralPart)))
+                      (objectElement
+                        (throwExpr
+                          (slStringLiteralExpr
+                            (slStringLiteralPart))))))))))
+          (objectElement
+            (subscriptExpr
+              (subscriptExpr
+                (unqualifiedAccessExpr
+                  (identifier))
+                (intLiteralExpr))
+              (intLiteralExpr))))))))