test: Add tests for correctly escaping new lines characters \n

stackbuilders · Jun 11, 2024 · a8b8d4f · a8b8d4f
1 parent adb6062
commit a8b8d4f
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/spec/fixtures/.dotenv b/spec/fixtures/.dotenv
@@ -4,3 +4,8 @@ ENVIRONMENT="$HOME"
 PREVIOUS="$DOTENV"
 ME="$(whoami)"
 BLANK=
+NEWLINE_TEST="Hello\nWorld"
+MULTILINE_TEST="Roses are red
+Violets are blue
+Code is my art
+And bugs are my glue"
diff --git a/src/Configuration/Dotenv/Parse.hs b/src/Configuration/Dotenv/Parse.hs
@@ -25,7 +25,7 @@ import           Text.Megaparsec                     (Parsec, anySingle,
                                                       between, eof, noneOf,
                                                       oneOf, sepEndBy, (<?>))
 import           Text.Megaparsec.Char                (char, digitChar, eol,
-                                                      letterChar, spaceChar)
+                                                      letterChar, spaceChar, string)
 import qualified Text.Megaparsec.Char.Lexer          as L
 
 type Parser = Parsec Void String
@@ -85,8 +85,9 @@ interpolatedValueCommandInterpolation = do
       symbol = L.symbol sc
 
 literalValueFragment :: String -> Parser VarFragment
-literalValueFragment charsToEscape = VarLiteral <$> some (escapedChar <|> normalChar)
+literalValueFragment charsToEscape = VarLiteral <$> some (newlineChar <|> escapedChar <|> normalChar)
   where
+    newlineChar  = string "\\n" >> return '\n'
     escapedChar = (char '\\' *> anySingle) <?> "escaped character"
     normalChar  = noneOf charsToEscape <?> "unescaped character"