fmt

Author: pavpanchekha

eval/tests.rkt

@@ -104,15 +104,14 @@
       (match-define (list res* hint* converged?*) (rival-analyze machine hyperrect hint))
 
       (with-check-info (['hyperrect hyperrect] ['hint hint])
-        (check-equal? hint hint*)
-        (check-equal? res res*)
-        (check-equal? converged? converged?*))
+                       (check-equal? hint hint*)
+                       (check-equal? res res*)
+                       (check-equal? converged? converged?*))
 
       (for ([_ (in-range number-of-random-pts-per-rect)])
         (define pt (sample-pts hyperrect))
         (define-values (no-hint-cnt* hint-cnt*)
-          (with-check-info (['pt pt] ['hint hint])
-            (rival-check-hint machine hint pt)))
+          (with-check-info (['pt pt] ['hint hint]) (rival-check-hint machine hint pt)))
         (set! hint-cnt (+ hint-cnt hint-cnt*))
         (set! no-hint-cnt (+ no-hint-cnt no-hint-cnt*))))
     (define skipped-percentage (* (/ hint-cnt no-hint-cnt) 100))
@@ -125,7 +124,7 @@
     (define machine (rival-compile expressions vars discs))
     (define skipped-instr
       (with-check-info (['expressions expressions])
-        (hints-random-checks machine (first rect) (second rect) varc)))
+                       (hints-random-checks machine (first rect) (second rect) varc)))
     (check-true (< skipped-instr 99)
                 (format "Almost no instructions got skipped by hint at ~a" expressions)))