Initial review notes: improve tests, few new tests

Author: Leeft

packages/cursorless-engine/languages/perl.ts

@@ -131,5 +131,3 @@ export function stringTextFragmentExtractor(
 
   return null;
 }
-
-// EOF

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

@@ -16,7 +16,7 @@ initialState:
       active: {line: 0, character: 36}
   marks: {}
 finalState:
-  documentContents: some_funky_func(  )
+  documentContents: some_funky_func( "three", "args" )
   selections:
     - anchor: {line: 0, character: 17}
       active: {line: 0, character: 17}

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

@@ -22,7 +22,7 @@ initialState:
 finalState:
   documentContents: |-
     %hash = (
-        one => ,
+        ,
         two => 2,
     );
   selections:

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

@@ -0,0 +1,29 @@
+languageId: perl
+command:
+  version: 4
+  spokenForm: chuck item
+  action: {name: remove}
+  targets:
+    - type: primitive
+      modifiers:
+        - type: containingScope
+          scopeType: {type: collectionItem}
+  usePrePhraseSnapshot: true
+initialState:
+  documentContents: |-
+    %hash = (
+        one => 1,
+        two => 2,
+    );
+  selections:
+    - anchor: {line: 2, character: 4}
+      active: {line: 2, character: 4}
+  marks: {}
+finalState:
+  documentContents: |-
+    %hash = (
+        two => 2,
+    );
+  selections:
+    - anchor: {line: 2, character: 4}
+      active: {line: 2, character: 4}

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

@@ -0,0 +1,42 @@
+languageId: perl
+command:
+  version: 4
+  spokenForm: chuck round
+  action: {name: remove}
+  targets:
+    - type: primitive
+      modifiers:
+        - type: containingScope
+          scopeType: {type: surroundingPair, delimiter: parentheses}
+  usePrePhraseSnapshot: true
+initialState:
+  documentContents: |-
+    "aaa (bbb) ccc"
+    'aaa (bbb) ccc'
+    q(aaa (bbb) ccc)
+    qq(aaa (bbb) ccc)
+  selections:
+    - anchor: {line: 0, character: 7}
+      active: {line: 0, character: 7}
+    - anchor: {line: 1, character: 7}
+      active: {line: 1, character: 7}
+    - anchor: {line: 2, character: 8}
+      active: {line: 2, character: 8}
+    - anchor: {line: 3, character: 9}
+      active: {line: 3, character: 9}
+  marks: {}
+finalState:
+  documentContents: |-
+    "aaa ccc"
+    'aaa ccc'
+    q(aaa ccc)
+    qq(aaa ccc)
+  selections:
+    - anchor: {line: 0, character: 5}
+      active: {line: 0, character: 5}
+    - anchor: {line: 1, character: 5}
+      active: {line: 1, character: 5}
+    - anchor: {line: 2, character: 6}
+      active: {line: 2, character: 6}
+    - anchor: {line: 3, character: 7}
+      active: {line: 3, character: 7}