diff --git a/collects/redex/tests/bitmap-test.rkt b/collects/redex/tests/bitmap-test.rkt index 1e921219dc..fa14b866f3 100644 --- a/collects/redex/tests/bitmap-test.rkt +++ b/collects/redex/tests/bitmap-test.rkt @@ -170,30 +170,25 @@ "metafunction-Name-vertical.png") ;; in horizontal mode: -(btest (parameterize ([metafunction-pict-style 'left-right]) - (render-metafunction Name)) +(btest (vl-append + (parameterize ([metafunction-pict-style 'left-right]) + (render-metafunction Name)) + (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions]) + (render-metafunction Name)) + (parameterize ([metafunction-pict-style 'left-right/vertical-side-conditions]) + (render-metafunction Name)) + (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions]) + (render-metafunction Name)) + (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions] + [linebreaks '(#t #f)]) + (render-metafunction Name)) + (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions] + [linebreaks '(#f #t)]) + (render-metafunction Name)) + (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions] + [linebreaks '(#t #f)]) + (render-metafunction Name))) "metafunction-Name-horizontal.png") -(btest (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions]) - (render-metafunction Name)) - "metafunction-Name-horizontal-scbeside.png") -(btest (parameterize ([metafunction-pict-style 'left-right/vertical-side-conditions]) - (render-metafunction Name)) - "metafunction-Name-horizontal-scvert.png") -(btest (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions]) - (render-metafunction Name)) - "metafunction-Name-horizontal-sccompact.png") -(btest (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions] - [linebreaks '(#t #f)]) - (render-metafunction Name)) - "metafunction-Name-horizontal-lb1.png") -(btest (parameterize ([metafunction-pict-style 'left-right/compact-side-conditions] - [linebreaks '(#f #t)]) - (render-metafunction Name)) - "metafunction-Name-horizontal-lb2.png") -(btest (parameterize ([metafunction-pict-style 'left-right/beside-side-conditions] - [linebreaks '(#t #f)]) - (render-metafunction Name)) - "metafunction-Name-horizontal-scbeside-lb1.png") ;; makes sure that there is no overlap inside or across metafunction calls ;; or when there are unquotes involved diff --git a/collects/redex/tests/bmps-unix/metafunction-Name-horizontal.png b/collects/redex/tests/bmps-unix/metafunction-Name-horizontal.png new file mode 100644 index 0000000000..302dfd9f7e Binary files /dev/null and b/collects/redex/tests/bmps-unix/metafunction-Name-horizontal.png differ diff --git a/collects/redex/tests/bmps-unix/metafunction-Name-vertical.png b/collects/redex/tests/bmps-unix/metafunction-Name-vertical.png index 9af61344eb..ec7e1f3499 100644 Binary files a/collects/redex/tests/bmps-unix/metafunction-Name-vertical.png and b/collects/redex/tests/bmps-unix/metafunction-Name-vertical.png differ diff --git a/collects/redex/tests/bmps-unix/metafunction-Name.png b/collects/redex/tests/bmps-unix/metafunction-Name.png index 52bd3b3e4c..470eb6810b 100644 Binary files a/collects/redex/tests/bmps-unix/metafunction-Name.png and b/collects/redex/tests/bmps-unix/metafunction-Name.png differ