Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Tweaking the output of `warn`

  • Loading branch information...
commit 67613549b68af1385b1aa5eb2df066bd936ea254 1 parent 11c3c82
@Pauan Pauan authored
Showing with 7 additions and 6 deletions.
  1. +3 −2 arc.arc
  2. +1 −1  lib/tester.arc
  3. +3 −3 run-tests
View
5 arc.arc
@@ -287,9 +287,10 @@
((racket racket-set-mcdr!) x val))
(def warn (msg . args)
- (disp (+ "Warning: " msg ". "))
+ (disp (+ "Warning: " msg " "))
(map [do (write _) (disp " ")] args)
- (disp #\newline))
+ (writec #\newline)
+ nil)
(def make-semaphore ((o init 0))
(racket-make-semaphore init))
View
2  lib/tester.arc
@@ -67,7 +67,7 @@
(def eval-test ((run expect))
- (let result (tostring
+ (let result (tostring:w/stderr stdout
(errdet:eval run))
(if (match result expect)
(do (when verbose
View
6 run-tests
@@ -12,16 +12,16 @@
(apply orig ,args)))))))
(test-files "tests/apply"
- "tests/arc"
+ ;"tests/arc" ; would like to enable, but it's really slow...
"tests/assign"
"tests/coerce"
"tests/fn"
"tests/if"
"tests/io.arc"
- ;"tests/io.arc (root)"
+ ;"tests/io.arc (root)" ; needs to be run as root
"tests/quasiquote"
"tests/quote"
- ;"tests/re"
+ ;"tests/re" ; our re support is too broken right now, enable later
"tests/strings.arc"
"tests/(coerce foo 'fn)"
)
Please sign in to comment.
Something went wrong with that request. Please try again.