suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust options tests to match new multi-party blame printouts

Browse Source
This commit is contained in:
Robby Findler 2013-03-21 10:21:48 -05:00
parent acd6764019
commit fe721eaef4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/unstable/options.rkt
View File

@ -47,10 +47,10 @@
(define (has-proper-blame? blame msg [extra ""])
(define options-preface
(regexp-quote " -- multiple blame parties due to option contract transfers --\n"))
(regexp-quote "blaming multiple parties:"))
(define (multi-blame->regexp blame)
(foldr
(λ (fst rst) (string-append (format "~a\n" fst) rst))
(λ (fst rst) (string-append (format "\n ~a" fst) rst))
""
blame))
(define reg