diff options
| -rw-r--r-- | testWorkspace/syntaxHighlighting.pl | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/testWorkspace/syntaxHighlighting.pl b/testWorkspace/syntaxHighlighting.pl new file mode 100644 index 0000000..c8208d1 --- /dev/null +++ b/testWorkspace/syntaxHighlighting.pl @@ -0,0 +1,104 @@ +## no critic +use strict; +use v5.20; +no strict 'refs'; +use utf8; +use PPR; + +# Set up some variables to use +my ($bar, $baz, $qux, @vals); +$_ = 'Hello world'; +my $baz = 'A'; + + +# https://github.com/richterger/Perl-LanguageServer/issues/192 +print "Not foo" if(!/#foo/); # Negation regexes + +# Regexes start after && but not after and: https://github.com/textmate/perl.tmbundle/issues/32 +print "foo and bar" if(/foo/ and /bar/); # "and" regexes + +# Regexes don't start after grep: https://github.com/textmate/perl.tmbundle/issues/21 +my @numbers = grep /\d+/, @vals; # Grep with regex + +# Regexes don't start after split: +# https://github.com/textmate/perl.tmbundle/issues/27 https://github.com/textmate/perl.tmbundle/issues/28, https://github.com/textmate/perl.tmbundle/issues/45, +# https://github.com/microsoft/vscode/issues/37966 https://github.com/microsoft/vscode/issues/78708 https://github.com/microsoft/vscode/issues/155209 +# https://github.com/bscan/PerlNavigator/issues/110 +my @words = split /\|/, "Foo|bar|"; # split regexes / + + +# Regexes don't start after equals sign +# https://github.com/textmate/perl.tmbundle/issues/52, https://github.com/textmate/perl.tmbundle/issues/44 +my ($match) = /Hello\s+(\S*)/; + +#Regexes incorrectly trigger on //= on newlines: https://github.com/textmate/perl.tmbundle/issues/29 +$bar + //= {baz=>42}; # Close with / + + +my $foo = "Foo is %foo, but $bar->{baz} is baz"; # String interpolation + +$foo = s/$baz/$qux/g; # Left side of substitution allows vars too + +# Correct punctuation variables +# https://github.com/textmate/perl.tmbundle/issues/46 +say "Match" if $foo =~ /Foo($|::)/; + +# https://github.com/Perl/perl5/issues/17742 +$foo =~ /[$[]/; +$foo =~ /$()/; +$foo =~ /$/; + +# Interpolation in character classes: +$foo =~ m/[$baz]/; + +# https://github.com/textmate/perl.tmbundle/issues/18 +my ($ticket_id) = $foo =~ m((\d+)$); # Runs on forever :) + +# https://github.com/textmate/perl.tmbundle/issues/49 +$foo =~ s{foo}{bar} if $bar; # BROKEN regex$ + + +#https://github.com/textmate/perl.tmbundle/issues/33 https://github.com/microsoft/vscode/issues/96024 +$foo =~ tr{/+}{_-}; # Runs on forever :/ +$foo =~ tr/x/y/; # Tr isn't exactly a string, but it's more stringlike than regexlike + +my $jalapeños = 42; # Unicode identifiers + +# Underscore vars: https://github.com/textmate/perl.tmbundle/issues/36 +my $_underscore = 43; + +say ${^UNICODE}; # Caret variables +say $^C; + +# Support dereferencing: https://github.com/textmate/perl.tmbundle/pull/50 +say ${"foo"}; + + +# https://github.com/textmate/perl.tmbundle/issues/48 https://github.com/microsoft/vscode/issues/127467 +sub foo # Comments wrong +{ } + +sub bar{} # Subs without space before brace + +sub my_proto(&$) {} # Prototypes + +$foo->map(); # Methods that look like keywords + +# https://github.com/textmate/perl.tmbundle/issues/53 +$foo->m->s ; # m,s,x or y as method names - + +# Newer keywords from https://github.com/textmate/perl.tmbundle/pull/23 +my $evaled = evalbytes "1+1"; + +# Package comments broken +package # hide me from PAUSE + Foo::Pack; + + +#https://github.com/bscan/PerlNavigator/issues/109 +use constant SHIFT_LEFT => 4; +my $test = 1234; +my $shifted_test = $test << SHIFT_LEFT; +# This is a comment; + |