private TestContext = minitest TestContext.
+class LexicalScopingTests = TestContext (
+"If a pattern defines a pattern variable (e.g., ?x) and one uses the application combinator on such a pattern, then the pattern variable should only be accessible in closures (that are parameters to the application combinator) that are defined in the same context as the pattern that defines the pattern variable.
+This class contains tests that ensure that this is true."|
+ patternSlot: <testSubject: ?x>.
+testLexicalScopeAccessPatternThroughGetter = (
+ a:: TestSubject new case: patternSlot => [ x ] otherwise: [ false ].
+ a:: ts case: <testSubject: ?x> => [ x ] otherwise: [ false ].
+)) : ('as yet unclassified'
class SimplificationTests = TestContext (|