From a06ca3b370f98e35801772eb88a19c4ecdee205d Mon Sep 17 00:00:00 2001 From: Cees-Jan Kiewiet Date: Wed, 27 May 2020 13:53:29 +0200 Subject: [PATCH] Add tests for escaped quoting --- test/Language/Docker/ParserSpec.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/test/Language/Docker/ParserSpec.hs b/test/Language/Docker/ParserSpec.hs index 03051cc..9605699 100644 --- a/test/Language/Docker/ParserSpec.hs +++ b/test/Language/Docker/ParserSpec.hs @@ -155,6 +155,19 @@ spec = do ast = [ Env [("JAVA_HOME", "C:\\\\jdk1.8.0_112")] ] in assertAst dockerfile ast + it "parses env with % in them" $ + let dockerfile = Text.unlines [ "ENV PHP_FPM_ACCESS_FORMAT=\"prefix \\\"quoted\\\" suffix\"" + ] + ast = [ Env [("PHP_FPM_ACCESS_FORMAT", "%R - %u %t \"%m %r\" %s")] + ] + in assertAst dockerfile ast + + it "parses env with % in them" $ + let dockerfile = Text.unlines [ "ENV PHP_FPM_ACCESS_FORMAT=\"%R - %u %t \\\"%m %r\\\" %s\"" + ] + ast = [ Env [("PHP_FPM_ACCESS_FORMAT", "%R - %u %t \"%m %r\" %s")] + ] + in assertAst dockerfile ast describe "parse RUN" $ do it "escaped with space before" $