(load "../common")

(mtest
  (sh-esc "|&;<>()$`\\\"' \t\n*?[#~=%abc")
  "\\|\\&\\;\\<\\>\\(\\)\\$\\`\\\\\\\"\\'\\ \\\t\\\n\\*\\?\\[\\#\\~=%abc"
  (sh-esc-all "|&;<>()$`\\\"' \t\n*?[#~=%abc")
  "\\|\\&\\;\\<\\>\\(\\)\\$\\`\\\\\\\"\\'\\ \\\t\\\n\\*\\?\\[\\#\\~\\=\\%abc"
  (sh-esc-dq "$`\\\"\n'abc()*~")
  "\\$\\`\\\\\\\"\\\n'abc()*~"
  (sh-esc-sq "$`\\\"\n'abc()*~")
  "$`\\\"\n'\\''abc()*~")