Add comprehensive test cases for quote-like strings

Co-authored-by: oalders <[email protected]>

Author: Copilot

t/double-quoted-q.t

@@ -44,4 +44,20 @@ ok( defined $tidied2, 'tidied_document returns a result for pack("qq")' );
 # Make sure the tidied document still contains the pack statement
 like( $tidied2, qr/pack\("qq"/, 'pack statement is preserved' );
 
+# Test various quote-like strings
+my ( $doc3, $logs3 ) = doc(
+    filename => 'test-data/various-quote-strings.pl',
+);
+
+my $tidied3 = $doc3->tidied_document;
+
+ok(
+    do {
+        none { $_->{level} eq 'error' } @$logs3;
+    },
+    'no errors in logs for various quote-like strings'
+);
+
+ok( defined $tidied3, 'tidied_document returns a result for various quote-like strings' );
+
 done_testing;

test-data/various-quote-strings.pl

@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+# Test various quote-like strings that should not cause errors
+use List::Util;
+
+# Simple cases from the issue
+my $str1 = "q";
+my $str2 = "qq";
+
+# Other quote operators
+my $str3 = "qw";
+my $str4 = "qx";
+my $str5 = "qr";
+
+# Regex operators
+my $str6 = "m";
+my $str7 = "s";
+my $str8 = "tr";
+my $str9 = "y";
+
+# Combinations
+my $str10 = "q and qq";
+my $str11 = pack("qq", 10, 0);
+
+# Words that start with these letters but aren't operators
+my $str12 = "quest";
+my $str13 = "query";
+my $str14 = "queue";