Fix "class name"

Author: Leeft

packages/cursorless-engine/src/languages/perl.ts

@@ -45,7 +45,7 @@ const nodeMatchers: Partial<
     "parenthesized_argument",
     "argument",
   ],
-  className: "package_name",
+  className: "package_statement.package_name!",
 };
 
 export const patternMatchers = createPatternMatchers(nodeMatchers);

packages/cursorless-vscode-e2e/src/suite/fixtures/recorded/languages/perl/changeClassName.yml

@@ -2,21 +2,17 @@ languageId: perl
 command:
   version: 4
   spokenForm: change class name
-  action: { name: clearAndSetSelection }
+  action: {name: clearAndSetSelection}
   targets:
     - type: primitive
       modifiers:
         - type: containingScope
-          scopeType: { type: className }
+          scopeType: {type: className}
   usePrePhraseSnapshot: true
 initialState:
   documentContents: $var = Some::Package::func()
   selections:
-    - anchor: { line: 0, character: 17 }
-      active: { line: 0, character: 17 }
+    - anchor: {line: 0, character: 23}
+      active: {line: 0, character: 23}
   marks: {}
-finalState:
-  documentContents: $var = ::func()
-  selections:
-    - anchor: { line: 0, character: 7 }
-      active: { line: 0, character: 7 }
+thrownError: {name: NoContainingScopeError}

packages/cursorless-vscode-e2e/src/suite/fixtures/recorded/languages/perl/changeClassName2.yml

@@ -0,0 +1,46 @@
+languageId: perl
+command:
+  version: 4
+  spokenForm: change class name
+  action: {name: clearAndSetSelection}
+  targets:
+    - type: primitive
+      modifiers:
+        - type: containingScope
+          scopeType: {type: className}
+  usePrePhraseSnapshot: true
+initialState:
+  documentContents: |-
+    package Foo::Bar::Banana;
+
+    # A sort of
+    # comment
+
+    package Hello::World {
+        1;
+    }
+
+    1;
+  selections:
+    - anchor: {line: 0, character: 13}
+      active: {line: 0, character: 13}
+    - anchor: {line: 5, character: 19}
+      active: {line: 5, character: 19}
+  marks: {}
+finalState:
+  documentContents: |-
+    package ;
+
+    # A sort of
+    # comment
+
+    package  {
+        1;
+    }
+
+    1;
+  selections:
+    - anchor: {line: 0, character: 8}
+      active: {line: 0, character: 8}
+    - anchor: {line: 5, character: 8}
+      active: {line: 5, character: 8}

packages/cursorless-vscode-e2e/src/suite/fixtures/recorded/languages/perl/changeClassName3.yml

@@ -0,0 +1,46 @@
+languageId: perl
+command:
+  version: 4
+  spokenForm: change class name
+  action: {name: clearAndSetSelection}
+  targets:
+    - type: primitive
+      modifiers:
+        - type: containingScope
+          scopeType: {type: className}
+  usePrePhraseSnapshot: true
+initialState:
+  documentContents: |-
+    package Foo::Bar::Banana;
+
+    # A sort of
+    # comment
+
+    package Hello::World {
+        1;
+    }
+
+    1;
+  selections:
+    - anchor: {line: 5, character: 2}
+      active: {line: 5, character: 2}
+    - anchor: {line: 0, character: 2}
+      active: {line: 0, character: 2}
+  marks: {}
+finalState:
+  documentContents: |-
+    package ;
+
+    # A sort of
+    # comment
+
+    package  {
+        1;
+    }
+
+    1;
+  selections:
+    - anchor: {line: 0, character: 8}
+      active: {line: 0, character: 8}
+    - anchor: {line: 5, character: 8}
+      active: {line: 5, character: 8}