doctests: Extract and use

[subdirmk.git] / tests / filter / extract-doctest

diff --git a/tests/filter/extract-doctest b/tests/filter/extract-doctest
index 28dee5ec7a4942cfd7f31f306fbea6c1f3c907ea..1bcd47318b03a220081b06d8b3406b4f266e6207 100755 (executable)
--- a/tests/filter/extract-doctest
+++ b/tests/filter/extract-doctest
@@ -129,9 +129,9 @@ sub writeout ($) {
                  '','','', 'normal',
                 sub { !$_[0]{CQ} } );
     write_permode($dir_prefix,
-                 "&:changequote NEWQUOTE",
-                 "NEWQUOTE:changequote &",
-                 "\n",
+                 "&:changequote NEWQUOTE\n",
+                 "NEWQUOTE:changequote &\n",
+                 "",
                  'changequote',
                  sub { $_[0]{CQ} } );
     oh "# doctest ends\n";