X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=blobdiff_plain;f=tests%2Ffilter%2Fextract-doctest;h=10dd42a3d8b5f5bc061551db40a4aed6ebbac9b1;hp=28dee5ec7a4942cfd7f31f306fbea6c1f3c907ea;hb=415270d2743be3d8f3a29d87d1ad5021c965e7ff;hpb=8c6b02849c6918f1deac8e463b24335844d65b86

diff --git a/tests/filter/extract-doctest b/tests/filter/extract-doctest
index 28dee5e..10dd42a 100755
--- a/tests/filter/extract-doctest
+++ b/tests/filter/extract-doctest
@@ -56,6 +56,9 @@ while (<>) {
 	    $e->{OutTop} = $1 eq 'nothing' ? '' : $1;
 	} elsif (# parse: expect other wordish things to be comments
 		 m{^(?!or\b)\w{2,} }) {
+	} elsif (m/^$/) {
+	} else {
+	    confess "unk rhs $_ ?";
 	}
 	$e->{CQ} = $in_changequote;
     } else {
@@ -129,9 +132,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";