diff --git a/b2/test/subesc b/b2/test/subesc
new file mode 100755
index 0000000..2d38362
--- /dev/null
+++ b/b2/test/subesc
@@ -0,0 +1,49 @@
+#!/bin/bash
+. ./Common
+
+###############################################################################
+
+tst "substitutions: escape *" -R '*\\*' <<EOF
+EOF
+
+expect <<EOF
+^.*\*\$
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: escape . (implicit)" -R 'x.y' <<EOF
+EOF
+
+expect <<EOF
+^x\.y\$
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: escape |" -R 'a\\\|b' <<EOF
+EOF
+
+expect <<EOF
+^a\\|b\$
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: escape \\" -R 'x\\\\y' <<EOF
+EOF
+
+expect <<EOF
+^x\\\\y\$
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: escape EOL" -R 'x\\' <<EOF
+EOF
+
+expect <<EOF
+dummy:2: regexp ends with backslash
+EOF
+
+###############################################################################