about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2018-07-25 11:39:19 -0700
committerKartik Agaram <vc@akkartik.com>2018-07-25 11:42:05 -0700
commitd7297b82c57b7920d6cff9c22e87afe77451a786 (patch)
tree528dfd75f052e17a4cef464d9afe172557ab910c
parent55f7befe351cb180ceed52a550cf462a82064dee (diff)
downloadmu-d7297b82c57b7920d6cff9c22e87afe77451a786.tar.gz
4402
-rw-r--r--tangle/003tangle.test.cc118
1 files changed, 99 insertions, 19 deletions
diff --git a/tangle/003tangle.test.cc b/tangle/003tangle.test.cc
index 69c6624a..43bc2b1d 100644
--- a/tangle/003tangle.test.cc
+++ b/tangle/003tangle.test.cc
@@ -6,7 +6,10 @@ void test_tangle() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "adbc");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "d"
+                                 "b"
+                                 "c");
 }
 
 void test_tangle_with_linenumber() {
@@ -17,7 +20,13 @@ void test_tangle_with_linenumber() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "#line 1a#line 5d#line 2bc");
+  CHECK_TRACE_CONTENTS("tangle", "#line 1"
+                                 "a"
+                                 "#line 5"
+                                 "d"
+                                 "#line 2"
+                                 "b"
+                                 "c");
   // no other #line directives
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "#line 3");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "#line 4");
@@ -31,7 +40,11 @@ void test_tangle_linenumbers_with_filename() {
                    "d\n");
   list<Line> dummy;
   tangle(in, "foo", dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a#line 5 \"foo\"dbc");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "#line 5 \"foo\""
+                                 "d"
+                                 "b"
+                                 "c");
 }
 
 void test_tangle_line_numbers_with_multiple_filenames() {
@@ -44,7 +57,12 @@ void test_tangle_line_numbers_with_multiple_filenames() {
   istringstream in2(":(before b)\n"
                     "d\n");
   tangle(in2, "bar", dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a#line 2 \"bar\"d#line 2 \"foo\"bc");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "#line 2 \"bar\""
+                                 "d"
+                                 "#line 2 \"foo\""
+                                 "b"
+                                 "c");
 }
 
 void test_tangle_linenumbers_with_multiple_directives() {
@@ -59,7 +77,15 @@ void test_tangle_linenumbers_with_multiple_directives() {
                     ":(before c)\n"
                     "e");
   tangle(in2, "bar", dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a#line 2 \"bar\"d#line 2 \"foo\"b#line 4 \"bar\"e#line 3 \"foo\"c");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "#line 2 \"bar\""
+                                 "d"
+                                 "#line 2 \"foo\""
+                                 "b"
+                                 "#line 4 \"bar\""
+                                 "e"
+                                 "#line 3 \"foo\""
+                                 "c");
 }
 
 void test_tangle_with_multiple_filenames_after() {
@@ -72,7 +98,12 @@ void test_tangle_with_multiple_filenames_after() {
   istringstream in2(":(after b)\n"
                     "d\n");
   tangle(in2, "bar", dummy);
-  CHECK_TRACE_CONTENTS("tangle", "ab#line 2 \"bar\"d#line 3 \"foo\"c");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "b"
+                                 "#line 2 \"bar\""
+                                 "d"
+                                 "#line 3 \"foo\""
+                                 "c");
 }
 
 void test_tangle_skip_tanglecomments() {
@@ -84,7 +115,12 @@ void test_tangle_skip_tanglecomments() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "abcd");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "b"
+                                 "c"
+                                 ""
+                                 ""
+                                 "d");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "//: 1");
 }
 
@@ -99,7 +135,14 @@ void test_tangle_with_tanglecomments_and_directive() {
                    "e\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a#line 6d#line 3bc#line 8e");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "#line 6"
+                                 "d"
+                                 "#line 3"
+                                 "b"
+                                 "c"
+                                 "#line 8"
+                                 "e");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "//: 1");
 }
 
@@ -115,7 +158,14 @@ void test_tangle_with_tanglecomments_inside_directive() {
                    "e\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a#line 7d#line 3bc#line 9e");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "#line 7"
+                                 "d"
+                                 "#line 3"
+                                 "b"
+                                 "c"
+                                 "#line 9"
+                                 "e");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "//: 1");
 }
 
@@ -126,7 +176,9 @@ void test_tangle_with_multiword_directives() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a bdc");
+  CHECK_TRACE_CONTENTS("tangle", "a b"
+                                 "d"
+                                 "c");
 }
 
 void test_tangle_with_quoted_multiword_directives() {
@@ -136,7 +188,9 @@ void test_tangle_with_quoted_multiword_directives() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a \"b\"dc");
+  CHECK_TRACE_CONTENTS("tangle", "a \"b\""
+                                 "d"
+                                 "c");
 }
 
 void test_tangle2() {
@@ -147,7 +201,10 @@ void test_tangle2() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "abdc");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "b"
+                                 "d"
+                                 "c");
 }
 
 void test_tangle_at_end() {
@@ -158,7 +215,10 @@ void test_tangle_at_end() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "abcd");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "b"
+                                 "c"
+                                 "d");
 }
 
 void test_tangle_indents_hunks_correctly() {
@@ -169,7 +229,10 @@ void test_tangle_indents_hunks_correctly() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "a  b  dc");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "  b"
+                                 "  d"
+                                 "c");
 }
 
 void test_tangle_warns_on_missing_target() {
@@ -211,7 +274,9 @@ void test_tangle_replace() {
                    "d\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "adc");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "d"
+                                 "c");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "b");
 }
 
@@ -225,7 +290,9 @@ void test_tangle_replace_range_of_lines() {
                    "e\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "ade");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "d"
+                                 "e");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "b {");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "c");
 }
@@ -241,7 +308,10 @@ void test_tangle_replace_tracks_old_lines() {
                    "e\n");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "adce");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "d"
+                                 "c"
+                                 "e");
   CHECK_TRACE_DOESNT_CONTAIN("tangle", "b {");
 }
 
@@ -255,7 +325,12 @@ void test_tangle_nested_patterns() {
                    "e");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "acbced");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "c"
+                                 "b"
+                                 "c"
+                                 "e"
+                                 "d");
 }
 
 void test_tangle_nested_patterns2() {
@@ -268,7 +343,12 @@ void test_tangle_nested_patterns2() {
                    "e");
   list<Line> dummy;
   tangle(in, dummy);
-  CHECK_TRACE_CONTENTS("tangle", "acbced");
+  CHECK_TRACE_CONTENTS("tangle", "a"
+                                 "c"
+                                 "b"
+                                 "c"
+                                 "e"
+                                 "d");
 }
 
 // todo: include line numbers in tangle errors