tree-sitter-tiger/test/highlight/object-oriented.tig

let
  class A extends Object {}
  /* <- keyword */
  /*      ^ keyword */
  /*              ^ type.builtin */

  type B = class extends A {
  /*       ^ keyword */
  /*             ^ keyword */
  /*                     ^ type */

    var a := 12

    method meth() : int = self.a
    /* <- keyword.method */
    /*     ^ method */
    /*                    ^ variable.builtin */
  }

  var object := new B
  /*            ^ keyword.constructor */
in
  object.a := 27;
  /*     ^ property */

  object.meth()
  /*     ^ method */
end