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

Bitmap test adjustments

Browse Source 
- fill in unix bitmaps
- combine the horizontal metafunction test cases into a single bitmap
This commit is contained in:
Robby Findler 2013-03-05 22:11:56 -06:00
parent edcb13e206
commit 4483bb9045
4 changed files with 18 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/redex/tests/bitmap-test.rkt
View File

@ -170,30 +170,25 @@
"metafunction-Name-vertical.png") "metafunction-Name-vertical.png")
;; in horizontal mode: ;; in horizontal mode:
(btest (parameterize ([metafunction-pict-style 'left-right]) (btest (vl-append
(parameterize ([metafunction-pict-style 'left-right])
(render-metafunction Name)) (render-metafunction Name))
"metafunction-Name-horizontal.png") (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions])
(btest (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions])
(render-metafunction Name)) (render-metafunction Name))
"metafunction-Name-horizontal-scbeside.png") (parameterize ([metafunction-pict-style 'left-right/vertical-side-conditions])
(btest (parameterize ([metafunction-pict-style 'left-right/vertical-side-conditions])
(render-metafunction Name)) (render-metafunction Name))
"metafunction-Name-horizontal-scvert.png") (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions])
(btest (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions])
(render-metafunction Name)) (render-metafunction Name))
"metafunction-Name-horizontal-sccompact.png") (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions]
(btest (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions]
[linebreaks '(#t #f)]) [linebreaks '(#t #f)])
(render-metafunction Name)) (render-metafunction Name))
"metafunction-Name-horizontal-lb1.png") (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions]
(btest (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions]
[linebreaks '(#f #t)]) [linebreaks '(#f #t)])
(render-metafunction Name)) (render-metafunction Name))
"metafunction-Name-horizontal-lb2.png") (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions]
(btest (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions]
[linebreaks '(#t #f)]) [linebreaks '(#t #f)])
(render-metafunction Name)) (render-metafunction Name)))
"metafunction-Name-horizontal-scbeside-lb1.png") "metafunction-Name-horizontal.png")
;; makes sure that there is no overlap inside or across metafunction calls ;; makes sure that there is no overlap inside or across metafunction calls
;; or when there are unquotes involved ;; or when there are unquotes involved

BIN
collects/redex/tests/bmps-unix/metafunction-Name-horizontal.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 65 KiB

BIN
collects/redex/tests/bmps-unix/metafunction-Name-vertical.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.5 KiB

After

Width:  |  Height:  |  Size: 7.8 KiB

BIN
collects/redex/tests/bmps-unix/metafunction-Name.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 4.7 KiB

After

Width:  |  Height:  |  Size: 6.9 KiB