Removing unnecessary newlines and making tests newline accurate

collects/datalog/pretty.rkt

@@ -48,10 +48,9 @@
      (format-external e)]))
 (define (format-questions ls)
   (v-concat
-   (append (map (lambda (l)
+   (map (lambda (l)
           (h-append (format-question l) dot))
-                ls)
+        ls)))
-           (list line))))
 (define (format-clause c)
   (if (empty? (clause-body c))
       (format-literal (clause-head c))

collects/tests/datalog/eval.rkt

@@ -14,15 +14,11 @@
     (define test-rkt (build-path examples-dir (format "~a.rkt" t)))
     (define test-txt (build-path examples-dir (format "~a.txt" t)))
     (test-equal? t
-                 (filter (lambda (l)
-                           (not (string=? l "")))
                  (with-input-from-string
                      (with-output-to-string
                          (lambda () (dynamic-require test-rkt #f)))
-                           port->lines))
+                   port->lines)
-                 (filter (lambda (l)
+                 (file->lines test-txt)))
-                           (not (string=? l "")))
-                         (file->lines test-txt))))
   
   (define (test-files d)
     (for ([f (in-list (directory-list d))]

collects/tests/datalog/examples/bidipath.txt

@@ -14,4 +14,3 @@ path(d, d).
 path(d, c).
 path(d, b).
 path(d, a).
-

collects/tests/datalog/examples/path.txt

@@ -14,4 +14,3 @@ path(d, b).
 path(d, c).
 path(d, d).
 path(d, a).
-

collects/tests/datalog/examples/revpath.txt

@@ -14,4 +14,3 @@ path(d, d).
 path(d, c).
 path(d, b).
 path(d, a).
-

collects/tests/datalog/examples/sym.txt

@@ -4,5 +4,3 @@ perm(c, a).
 perm(b, a).
 perm(b, c).
 perm(c, b).
-
-

collects/tests/datalog/examples/tutorial.txt

@@ -1,26 +1,19 @@
 parent(john, douglas).
 
-
 parent(john, douglas).
 parent(bob, john).
 parent(ebbon, bob).
-
 parent(john, douglas).
 
-
 ancestor(ebbon, bob).
 ancestor(bob, john).
 ancestor(john, douglas).
 ancestor(bob, douglas).
 ancestor(ebbon, john).
 ancestor(ebbon, douglas).
-
 ancestor(bob, john).
 ancestor(ebbon, john).
-
 parent(john, douglas).
 parent(ebbon, bob).
-
 ancestor(ebbon, bob).
 ancestor(john, douglas).
-

collects/tests/datalog/paren-examples/add1.txt

@@ -1,3 +1,3 @@
 add1(2) = (3).
-
 add2(1, 3).
+

collects/tests/datalog/paren-examples/bidipath.txt

@@ -14,4 +14,3 @@ path(d, d).
 path(d, c).
 path(d, b).
 path(d, a).
-

collects/tests/datalog/paren-examples/path.txt

@@ -14,4 +14,3 @@ path(d, b).
 path(d, c).
 path(d, d).
 path(d, a).
-

collects/tests/datalog/paren-examples/revpath.txt

@@ -14,4 +14,3 @@ path(d, d).
 path(d, c).
 path(d, b).
 path(d, a).
-

collects/tests/datalog/paren-examples/sym.txt

@@ -4,5 +4,3 @@ perm(c, a).
 perm(b, a).
 perm(b, c).
 perm(c, b).
-
-

collects/tests/datalog/paren-examples/tutorial.txt

@@ -1,26 +1,19 @@
 parent(john, douglas).
 
-
 parent(john, douglas).
 parent(bob, john).
 parent(ebbon, bob).
-
 parent(john, douglas).
 
-
 ancestor(ebbon, bob).
 ancestor(bob, john).
 ancestor(john, douglas).
 ancestor(bob, douglas).
 ancestor(ebbon, john).
 ancestor(ebbon, douglas).
-
 ancestor(bob, john).
 ancestor(ebbon, john).
-
 parent(john, douglas).
 parent(ebbon, bob).
-
 ancestor(ebbon, bob).
 ancestor(john, douglas).
-