================================================================================
generators/predicateMembersDynamicMapping
================================================================================

import "pkl:test"

hidden people = new Dynamic {
  ["Pigeon"] { name = "Pigeon"; age = 42 }
  ["Barn Owl"] { name = "Barn Owl"; age = 21 }
  ["Parrot"] { name = "Parrot"; age = 33 }
}

res1 = (people) {
  [[name == "Barn Owl"]] {
    age = 99
  }
}

res2 = (people) {
  [[name.contains("w") || name.contains("e")]] {
    age = 99
  }
}

res3 = (people) {
  [[true]] {
    age = 99
  }
}

res4 = (people) {
  [[false]] {
    age = 99
  }
}

res5 = new {
  barnOwl = "Barn Owl"
  new {
    result = (people) {
      [[name == barnOwl]] {
        age = 99
      }
    }
  }
}

// nested predicate
res6 = (people) {
  [[(people) { [[name == "Barn Owl"]] { age = 99 } }.toMap().values.find((it) -> it.age == 99).name == name]] {
    age = 55
  }
}

// member defined in same block is not affected
res7 = (people) {
  ["Albatross"] = new { name = "Albatross"; age = 4 }
  [[name == "Albatross"]] { age = 9 }
}

res8 = (people) {
  [[name == "Albatross"]] { age = 9 }
  ["Albatross"] = new { name = "Albatross"; age = 4 }
}

// conflicting override
res9 = test.catch(() -> (people) {
  ["Pigeon"] { age = 4 }
  [[name == "Pigeon"]] { age = 9 }
})

res10 = test.catch(() -> (people) {
  [[name.startsWith("P")]] { age = 4 }
  [[name == "Pigeon"]] { age = 9 }
})

// combined with for
res11 = (people) {
  for (_name in List("Pigeon", "Parrot")) {
    [[name == _name]] { age = 99 }
  }
}

// combined with when
res12 = (people) {
  when (10.isOdd) {
    [[name == "Pigeon"]] { age = 99 }
  }
  when (10.isEven) {
    [[name == "Pigeon"]] { age = 122 }
  }
}

--------------------------------------------------------------------------------

(module
  (importClause
    (stringConstant))
  (classProperty
    (modifier)
    (identifier)
    (newExpr
      (type
        (qualifiedIdentifier
          (identifier)))
      (objectBody
        (objectEntry
          (slStringLiteral)
          (objectBody
            (objectProperty
              (identifier)
              (slStringLiteral))
            (objectProperty
              (identifier)
              (intLiteral))))
        (objectEntry
          (slStringLiteral)
          (objectBody
            (objectProperty
              (identifier)
              (slStringLiteral))
            (objectProperty
              (identifier)
              (intLiteral))))
        (objectEntry
          (slStringLiteral)
          (objectBody
            (objectProperty
              (identifier)
              (slStringLiteral))
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectPredicate
          (binaryExpr
            (variableExpr
              (identifier))
            (slStringLiteral))
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectPredicate
          (methodCallExpr
            (binaryExpr
              (methodCallExpr
                (variableExpr
                  (identifier))
                (identifier)
                (argumentList
                  (slStringLiteral)))
              (variableExpr
                (identifier)))
            (identifier)
            (argumentList
              (slStringLiteral)))
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectPredicate
          (trueLiteral)
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectPredicate
          (falseLiteral)
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (classProperty
    (identifier)
    (newExpr
      (objectBody
        (objectProperty
          (identifier)
          (slStringLiteral))
        (objectElement
          (newExpr
            (objectBody
              (objectProperty
                (identifier)
                (objectLiteral
                  (parenthesizedExpr
                    (variableExpr
                      (identifier)))
                  (objectBody
                    (objectPredicate
                      (binaryExpr
                        (variableExpr
                          (identifier))
                        (variableExpr
                          (identifier)))
                      (objectBody
                        (objectProperty
                          (identifier)
                          (intLiteral)))))))))))))
  (lineComment)
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectPredicate
          (binaryExpr
            (propertyCallExpr
              (methodCallExpr
                (propertyCallExpr
                  (methodCallExpr
                    (objectLiteral
                      (parenthesizedExpr
                        (variableExpr
                          (identifier)))
                      (objectBody
                        (objectPredicate
                          (binaryExpr
                            (variableExpr
                              (identifier))
                            (slStringLiteral))
                          (objectBody
                            (objectProperty
                              (identifier)
                              (intLiteral))))))
                    (identifier)
                    (argumentList))
                  (identifier))
                (identifier)
                (argumentList
                  (functionLiteral
                    (parameterList
                      (typedIdentifier
                        (identifier)))
                    (binaryExpr
                      (propertyCallExpr
                        (variableExpr
                          (identifier))
                        (identifier))
                      (intLiteral)))))
              (identifier))
            (variableExpr
              (identifier)))
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (lineComment)
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectEntry
          (slStringLiteral)
          (newExpr
            (objectBody
              (objectProperty
                (identifier)
                (slStringLiteral))
              (objectProperty
                (identifier)
                (intLiteral)))))
        (objectPredicate
          (binaryExpr
            (variableExpr
              (identifier))
            (slStringLiteral))
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral)))))))
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (objectPredicate
          (binaryExpr
            (variableExpr
              (identifier))
            (slStringLiteral))
          (objectBody
            (objectProperty
              (identifier)
              (intLiteral))))
        (objectEntry
          (slStringLiteral)
          (newExpr
            (objectBody
              (objectProperty
                (identifier)
                (slStringLiteral))
              (objectProperty
                (identifier)
                (intLiteral))))))))
  (lineComment)
  (classProperty
    (identifier)
    (methodCallExpr
      (variableExpr
        (identifier))
      (identifier)
      (argumentList
        (functionLiteral
          (parameterList)
          (objectLiteral
            (parenthesizedExpr
              (variableExpr
                (identifier)))
            (objectBody
              (objectEntry
                (slStringLiteral)
                (objectBody
                  (objectProperty
                    (identifier)
                    (intLiteral))))
              (objectPredicate
                (binaryExpr
                  (variableExpr
                    (identifier))
                  (slStringLiteral))
                (objectBody
                  (objectProperty
                    (identifier)
                    (intLiteral))))))))))
  (classProperty
    (identifier)
    (methodCallExpr
      (variableExpr
        (identifier))
      (identifier)
      (argumentList
        (functionLiteral
          (parameterList)
          (objectLiteral
            (parenthesizedExpr
              (variableExpr
                (identifier)))
            (objectBody
              (objectPredicate
                (methodCallExpr
                  (variableExpr
                    (identifier))
                  (identifier)
                  (argumentList
                    (slStringLiteral)))
                (objectBody
                  (objectProperty
                    (identifier)
                    (intLiteral))))
              (objectPredicate
                (binaryExpr
                  (variableExpr
                    (identifier))
                  (slStringLiteral))
                (objectBody
                  (objectProperty
                    (identifier)
                    (intLiteral))))))))))
  (lineComment)
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (forGenerator
          (typedIdentifier
            (identifier))
          (methodCallExpr
            (identifier)
            (argumentList
              (slStringLiteral)
              (slStringLiteral)))
          (objectBody
            (objectPredicate
              (binaryExpr
                (variableExpr
                  (identifier))
                (variableExpr
                  (identifier)))
              (objectBody
                (objectProperty
                  (identifier)
                  (intLiteral)))))))))
  (lineComment)
  (classProperty
    (identifier)
    (objectLiteral
      (parenthesizedExpr
        (variableExpr
          (identifier)))
      (objectBody
        (whenGenerator
          (propertyCallExpr
            (intLiteral)
            (identifier))
          (objectBody
            (objectPredicate
              (binaryExpr
                (variableExpr
                  (identifier))
                (slStringLiteral))
              (objectBody
                (objectProperty
                  (identifier)
                  (intLiteral))))))
        (whenGenerator
          (propertyCallExpr
            (intLiteral)
            (identifier))
          (objectBody
            (objectPredicate
              (binaryExpr
                (variableExpr
                  (identifier))
                (slStringLiteral))
              (objectBody
                (objectProperty
                  (identifier)
                  (intLiteral))))))))))
