Commit 462f30bafd5109c16999f5dfbba065e40d3466c4

Thomas de Grivel 2024-08-11T17:30:36

fix tests for pretty printer

diff --git a/test/ikc3/defstruct.out.expected b/test/ikc3/defstruct.out.expected
index 0b51bb4..1134303 100644
--- a/test/ikc3/defstruct.out.expected
+++ b/test/ikc3/defstruct.out.expected
@@ -1,5 +1,6 @@
 defmodule Test do
-  defstruct [a: 1, b: 2]
+  defstruct [a: 1,
+             b: 2]
 end
 Test
 %Test{}
diff --git a/test/ikc3/facts.kc3 b/test/ikc3/facts.kc3
index 9184df5..f38d239 100644
--- a/test/ikc3/facts.kc3
+++ b/test/ikc3/facts.kc3
@@ -6,11 +6,3 @@ quote %Set.Fact{}
 %Set.Fact{}
 quote %Facts{}
 %Facts{}
-quote Facts.env_facts()
-Facts.env_facts()
-quote cursor = Facts.with_tags(Facts.env_facts(), KC3, :is_a, :module)
-cursor = Facts.with_tags(Facts.env_facts(), KC3, :is_a, :module)
-quote ptr = Facts.Cursor.next(cursor)
-ptr = Facts.Cursor.next(cursor)
-quote f = (Fact) ptr
-f = (Fact) ptr
diff --git a/test/ikc3/plist.out.expected b/test/ikc3/plist.out.expected
index 5b5b6f2..3389d34 100644
--- a/test/ikc3/plist.out.expected
+++ b/test/ikc3/plist.out.expected
@@ -1,6 +1,12 @@
 [a: 1]
 [a: 1]
-[a: 1, b: 2]
-[a: 1, b: 2]
-[a: 1, b: 2, c: 3]
-[a: 1, b: 2, c: 3]
+[a: 1,
+ b: 2]
+[a: 1,
+ b: 2]
+[a: 1,
+ b: 2,
+ c: 3]
+[a: 1,
+ b: 2,
+ c: 3]
diff --git a/test/ikc3/str.out.expected b/test/ikc3/str.out.expected
index 3761183..0327d79 100644
--- a/test/ikc3/str.out.expected
+++ b/test/ikc3/str.out.expected
@@ -66,3 +66,4 @@
 "#{(U8[]) {{0, 0},
            {0, 0},
            {0, 0}}}"
+"(U8[]) {{0, 0},\n        {0, 0},\n        {0, 0}}"
diff --git a/test/kc3s/facts.kc3 b/test/kc3s/facts.kc3
new file mode 100644
index 0000000..f527a62
--- /dev/null
+++ b/test/kc3s/facts.kc3
@@ -0,0 +1,8 @@
+quote Facts.env_facts()
+Facts.env_facts()
+quote cursor = Facts.with_tags(Facts.env_facts(), KC3, :is_a, :module)
+cursor = Facts.with_tags(Facts.env_facts(), KC3, :is_a, :module)
+quote ptr = Facts.Cursor.next(cursor)
+ptr = Facts.Cursor.next(cursor)
+quote f = (Fact) ptr
+f = (Fact) ptr