madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix lexer: Strings can be empty

Browse source
This commit is contained in:
madmaurice 2021-04-10 01:26:07 +02:00
parent ac1f8aef03
commit c5e9cf2155
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Minilisp.pm
View file

@ -75,7 +75,7 @@ sub tokenize {
value => $1, value => $1,
}; };
} }
elsif($str =~ s/^"(([^"\\]|\\.)+)"//) elsif($str =~ s/^"(([^"\\]|\\.)*)"//)
{ {
$debug->("String '$1'"); $debug->("String '$1'");
my $value = $1; my $value = $1;

4
t/strings.t
View file

@ -1,7 +1,9 @@
(plan 4) (plan 5)
(expect "length of string" (= (length "hello") 5)) (expect "length of string" (= (length "hello") 5))
(expect "empty strings" (= (length "") 0))
(expect "string-upcase" (string= (string-upcase "helLo") "HELLO")) (expect "string-upcase" (string= (string-upcase "helLo") "HELLO"))
(expect "string-downcase" (string= (string-downcase "HEllO") "hello")) (expect "string-downcase" (string= (string-downcase "HEllO") "hello"))