diff --git a/scribble-test/tests/scribble/docs.rkt b/scribble-test/tests/scribble/docs.rkt index 57458426..c2a96abb 100644 --- a/scribble-test/tests/scribble/docs.rkt +++ b/scribble-test/tests/scribble/docs.rkt @@ -45,6 +45,7 @@ (provide docs-tests) (module+ main (docs-tests)) +(module+ test (docs-tests)) (define (docs-tests) (when (or (file-exists? work-dir) (directory-exists? work-dir)) (delete-directory/files work-dir)) diff --git a/scribble-test/tests/scribble/docs/gif.scrbl b/scribble-test/tests/scribble/docs/gif.scrbl new file mode 100644 index 00000000..013c4259 --- /dev/null +++ b/scribble-test/tests/scribble/docs/gif.scrbl @@ -0,0 +1,197 @@ +#lang scribble/manual + +@(define bytes + (bytes-append + #"GIF89a\330\0<\0\367\0\0\0\0\0\0\0\0\1" + #"\1\1\2\2\2\3\3\3\4\4\4\5\5\5\6\6\6\a\a\a" + #"\b\b\b\t\t\t\n\n\n\v\v\v\f\f\f\r\r\r\16\16" + #"\16\17\17\17\20\20\20\21\21\21\22\22\22\23\23\23\24\24\24\25" + #"\25\25\26\26\26\27\27\27\30\30\30\31\31\31\32\32\32\e\e\e" + #"\34\34\34\35\35\35\36\36\36\37\37\37 !!!\"\"" + #"\"###$$$%%%&&&'''((()" + #"))***+++,,,---...///" + #"00011122233344455566" + #"6777888999:::;;;<<<=" + #"==>>>???@@@AAABBBCCC" + #"DDDEEEFFFGGGHHHIIIJJ" + #"JKKKLLLMMMNNNOOOPPPQ" + #"QQRRRSSSTTTUUUVVVXXX" + #"YYYZZZ[[[\\\\\\]]]^^^__" + #"_```aaabbbcccdddeeef" + #"ffggghhhiiijjjkkklll" + #"mmmnnnpppqqqrrrssstt" + #"tuuuvvvwwwxxxyyyzzz{" + #"{{|||}}}~~~\177\177\177\200\200\200\201\201\201" + #"\202\202\202\203\203\203\204\204\204\205\205\205\206\206\206\207\207\207\210\210" + #"\210\211\211\211\212\212\212\213\213\213\214\214\214\215\215\215\216\216\216\217" + #"\217\217\220\220\220\221\221\221\222\222\222\223\223\223\224\224\224\225\225\225" + #"\226\226\226\227\227\227\230\230\230\231\231\231\232\232\232\233\233\233\234\234" + #"\234\235\235\235\236\236\236\237\237\237\240\240\240\241\241\241\242\242\242\243" + #"\243\243\244\244\244\245\245\245\246\246\246\247\247\247\250\250\250\251\251\251" + #"\252\252\252\253\253\253\254\254\254\255\255\255\256\256\256\257\257\257\260\260" + #"\260\261\261\261\262\262\262\263\263\263\264\264\264\265\265\265\266\266\266\267" + #"\267\267\270\270\270\271\271\271\272\272\272\273\273\273\274\274\274\275\275\275" + #"\276\276\276\277\277\277\300\300\300\301\301\301\302\302\302\303\303\303\304\304" + #"\304\305\305\305\306\306\306\307\307\307\310\310\310\311\311\311\312\312\312\313" + #"\313\313\314\314\314\315\315\315\316\316\316\317\317\317\320\320\320\321\321\321" + #"\322\322\322\323\323\323\324\324\324\325\325\325\326\326\326\327\327\327\330\330" + #"\330\331\331\331\332\332\332\333\333\333\334\334\334\335\335\335\336\336\336\337" + #"\337\337\340\340\340\341\341\341\342\342\342\343\343\343\344\344\344\345\345\345" + #"\346\346\346\347\347\347\350\350\350\351\351\351\352\352\352\353\353\353\354\354" + #"\354\355\355\355\356\356\356\357\357\357\360\360\360\361\361\361\362\362\362\363" + #"\363\363\364\364\364\365\365\365\366\366\366\367\367\367\370\370\370\371\371\371" + #"\372\372\372\373\373\373\374\374\374\375\375\375\376\376\376\377\377\377\0\0" + #"\0!\371\4\5\n\0\0\0,\0\0\0\0\330\0<\0\0\b" + #"\377\0\375\t\34H\260\240\301\203\b\23*\\\310\260\241\303\207\20" + #"#J\234H\261\242\305\213\0303j\334\310\261\243\307\217 C\212" + #"\34I\262\244\311\223(S\252\\\311\262\245\313\2270c\312\234I" + #"\263\246\315\2338s\352\334\311\263\247\317\237@\203\n\35J\264\250" + #"\321\243H\223*]\312\264\251\323\247P\243J\235J\265\252\325\253" + #"X\263j\305\bO\35=~\r\371\321[7o\253\331\205\364\372" + #"\204\20Q\202\205\f\34=~\4\231\v\244G\16\32-L\260\335" + #"t\266\357AoZ\2\4\0\321\244L\e+ \f(\316\340\344" + #"\f\26\30\v\2\b\30\224\317/Ku\260\214\351\v\253\314\24," + #"]\274d\215\252dHO\257~\30\213\31\211\20\a\332\271u\354" + #"\316\1\252\20\200\200\34o\353\322\201#\205#\200\35w\226Sb" + #"\363C\243G)z\r\335\311\261p!C\6\f\25&D\30\1" + #"*c\253\32l\276\355#\b\213F\0\16\236P\v\377\2547\352" + #"\205\232q\301M\306\273D#F\237f\361\304/\354\246\245\301\5" + #"\6\2\4\a8\0DW\306JG\250\2\26A\300\4\21@\n" + #"\253\24d\216\30^`\223\36I\350\374\341A\20\257\274\263\235C" + #"\3150\321D.\334T\303\3142\324lSN=\31y\263\214:" + #"\6\21SD\0/\300R\20?\336x\203\317\203\"q\323\206\5" + #"L\364bOD\274\370P\3067\376\364\303\317>\362e\264\217>" + #"\3\22\244\32\213.\276\b\2268\274\314bK.\271\330\"\3130" + #"(\2563\214,S\352\222K-\273\210\343\3178\275H\231\213." + #"\273\244\251&-\275\230sP?\352\24\323I \215\310\242\315\216" + #"\5\221i\246-\257\230\2\312)\270L#\217Azv\251\346\232" + #"m\16\324\315-\260H\371\314\240\a\2253L-\262\274\242L<" + #"\16y\223\306\3>\3242cD\253\300@G;*-\331bB" + #"\267<\361\201s\317\211\20\3062\3768\377S\306\b\30\260\372\1" + #"\22\270\370\263\313\24 \260\312\301\n7\3100\202\6\30\370@\213" + #"A\341\4\22\303\vU\210QD\t!p1\314f\3\355\332\353" + #"s\e\314\220\4\20'L\270\t\212\325\362\352+\260\302\22k\354" + #"@\255\30\361A\255G\354r\320>\212\320\212\1\txt\323\20" + #"=\205X\220\201$$J\264\311\b\204P\213\222\251M\0364\317" + #"8\242\324 X\22\264\230\263\343=\347\354\242\204`1x\22\16" + #"r\364\220cJo\3\254!\r8\337d\223\312\20\34pBP" + #">\263 \201\201\27\301\224\203\3168\274L\21\1\n\204\240'P" + #"\306\e\v&F3\343\210\23\214\24\tx\360\b\244\376\340\314\261" + #"\307 \213L\262\311\2\311#N\37\26\4\320@#\225\25\24\215" + #"\24\371\0311\213:U/\4K\r\3\224\341\rE\212\204@\311" + #"J\4/\264N\31\1\24@\310=\5\345\363\207\3\1\240\21N" + #"A\360\244\21\0\3\220\f\377\330\217=\262\0\241H\222\270\b\261" + #"@\32\332t\235\0176f8\200\1#\230\16\224w\0\b,r" + #"\241>\237\2400\300\24\315\340\2557\337~\3.x\222\376X2" + #"B\1\0024h\20&8D\35\0067\16\265\343\306\1\36xr" + #"\241Dzd\360E\36Z@1\6#\312\340)R\332\n\355#" + #"\207\324\223\34\364\310\5\1\334\361NA\375\3301@\3\311\23\24" + #"\217\34\202@\352\315\30\b\344`\v\351\376\354\3\314\20\2\264\260" + #"J\222\321O/\tA\271\360\20@\r\265@/=\365\5]\237" + #"=A\212,\21C\0-\270\222\347\31`hB\0\270p\r\207" + #"\330\"\a\1\270\201\34\3120\4\"x!\20\303\20\236B\344\301" + #"\6\0024@\2\22h\300\2$p\202@\210ixF`\22C" + #"\354 \0\t\\\342 \223\330@\0\370P\226\202\354\301\0\364\273" + #"\31;\354\1\e\260\364\343\21\31(\300\36\236g\20{\20\202\2" + #"\5\370B\1\377\a\362\302\30\n\344\26\b\344\201\273\\\b\303\352" + #"\25m\2065$\210\36\304\340\206\r\34 \20-\24\b+\302\240" + #"\t0\4`\n\316p\210\"(\20\200\fh\241\21\207\350B\n" + #"$@\202:h\203!\353\310D pa\rn4c\21,\30" + #"@\4\346\360A\220\20O!$4\341A(\301\201\0\364\19" + #"\5\341\303\1\214h\213D\204q \353@\303\0000\260\211\"\21" + #"\204\26\275\331\201\177\6\242H#\372\203\24)\b@\27\34\224\310" + #"E:\261\221\217$\310<\330\360\206W\204P\n\235k\332\34\346" + #"@\2153\4\0\t\305h\b;$)\1C\234\3\36\360H\a" + #".\214@\200\a\354!\35\v\331G<\340\201\17\324\360#\36\246" + #"\230A\0>`\273\220\3741!\201<\241A\biHD\22D" + #"\221\f(\2049\304\341\f6|\1V\3\221F\24\2\300\202V" + #"$$C\1\360@(\276i\312\201\214\243\f\aHA)\272\306" + #"\377\311\3\204s\234\345<'\241\276\360\207u\310\341\0 \30\305" + #"@\200!\206Q\304\243\r\1\350\1/\32\242\215+\4@\4\245" + #" \b>P!\203\0\254\200\25\23yG\34\22@\0000\220\362" + #"#\327D\b\t\t\360\201\31\270\364\2453\360\200\1\272i\20E" + #"\n`\2 \370\0\a\34\3009\202\334B\a\1\370\201/\22\"" + #"\216.\4\300\0\203\353g\2\270\300\tH\320\341\a\0210\2-" + #"\262H\317\233\346t\247=-\3104\260\320\b~\224b\5\4\250" + #"\303:\302W\2105T\303x\1\220\201,\32\302\f&\4 \6" + #"k%H9\302p\324D\334\356!\375\310D\b\2 \4`X" + #"3\204\247Z\b\t\31`\6U\30\366\260\252\30\303\4hZ\312" + #"\5\360\301\32\320\270\5\26\262\300\f\202\270B\2329\310\25B\326" + #"\26\200\5D\202\236\6\0B\e\262\200\2\3D\300\20\360@\210" + #"\"\35\vY\311R\326 \303\310\2_*\32\200\"\377\b\303\37" + #"\322 \3%*\203\a\2\234 \25\ri\206\0\341\367\"@0" + #" \0t`\307DZ\321\321v\376U\204\202-\241$\354A\335" + #"\352\332\343\21*\370\260\200\1\210a\377\e\b1\5X\335P" + #"\16\202\354\201\314\375\370\252\0\254\0\215\203\334\331\210f\356\a\232" + #"\23$\220I\200\201\30\2\211\344\0pp\0063\330B<\215\260" + #"\200\1\32\321\220}\0\242\1\fx\4\370\362P\200\204R\244\22" + #"\35\b\300\31\356\6\222^\374 \0\277]\210>\216\327\200\365\31" + #"D\302\315\343!A\346\347\304\201\314\"\v\246\20\b3\4\370\1" + #"P\200\317\37\350H\303\1x\200\213\273J/\1\217\30H6," + #"\372\1Q\34\204\326\372\305\365@\376\320\205h\b\204\37ze\0" + #"\5\360\200\216\201HB\3\2\20\304\247\26\342\n\31\b\0\fo" + #"\34\2108\274\20\200-\fQ \345\230\306X\ab\16X\364\"" + #"\265\3I\307\31\b@\2Q\b\314#\250hA\0*p\211_" + #"\23\204\35f\250M!\306}\355?D&\r}\24\b<\324@" + #"9F\220\216\e` \302D\375\221\217Q\260\200\0?\270\305\277" + #"\353a\t\22X\300\21T\377\235\270d\bQ5} \242\2\4" + #"X\3\251%Gq\4X\234 \30\327\270@\330q\6\2\16D" + #"\270\28\201)\222\4\211\f\4\0\16\310\204c\e\20`\202S" + #"\310'T\34\330\204\300\2061\205\16\200\341\31\3y\304Z\22\241" + #"\334 \231\202\5\a\230\3039>\362\16l\270\202\t\a\b\300\0" + #"\200\360\211i\264\3|\365\310\6#T \230\36\210B\0343\302" + #"G8F\301\203\374\244\200\21\331@N=\266\1\t\201\v\340\n" + #"\3030\a9\234\301\t%4\300\347\2\211\307)t\260\0\0300" + #"\202\e\371\300\a6\360 \202\34\204\202T\343!\274\300k\v\v" + #"\340\370C\270\1\350@ \272Q\231\301\27^2\210W<\343\35" + #"\357suT\202\5/\270\3049\300b\217<,\340\v\351\226\307" + #"2\262\220v\32t\"\35\2264H?\234A\205\4\330\200\24\362" + #"\320\307/\224\20\202D\314[ \337\16\0\tr-\20Q\240@" + #"\0!8\304\377/E\201\3\n\224a\32\6\277\310>\b\361\201" + #"\v$@?\b\250@\a\356`\263\201\260\302\a\22(\200`\342" + #"/\5\372\26\243\n\25\200\0\202Q\0\22\200\3\356\4\vB0" + #"\0013\2657\e\0\2 \300\1\24\200\0\3\320\aTU\17\324" + #"\340\a/\240\1-\25\3,\300\3y\300\f\364 \37\b\250\200" + #"\202\221\0\30\360\b3\222\17\266 \4\b\20\0012P^#\270" + #"\200\f\320\200\17\30\201\238\17\365\300\a\24\240\30\24@\a\244" + #"\306\nG`\t\324B\n6p\\\373Q\1\201\0z\n\221\17" + #"\334\200\b-`\1*\340\2\37p\3\234\320\16E\362S\1\240" + #"\4\5\26y\255\260\4\21 \1(\200\2\35\320\3\233`\16\377" + #"\306\21\344\20\r\324p\r\331\240\r\331\200\r\324\20\r\342\300O" + #"\376\320\16p\210\r\332\240\r\3270\r\3330(\362\260\r\321P" + #"\rm\b\207\326@*\356p\207\332\260\r\212\270\210\330P\r\322" + #"\361\200\16\226\264\17\357 \16\321\20\v\244\260\v\326 \16\356p" + #"\206\207\270\206oH\r\256!\36\366\360\r\275\360\nX\342\17\235" + #"\210\207\213\310\210\216\b\211\375@\16\324\220\r\331@\r\343\360)" + #"\353\260\f\340\0I\327 \210\331`\r\321P\16T\206\20\317\204" + #"\r\267\260\t\230`\v\3320\17\226T\17\321\240\v\327`c\2" + #"a\17\347\220\f\245\200\t\256\0\r\344\20\202!!$f6\20" + #"f\306\17\311\27h\342!\216e\6\216\336h\216\344\370&\346(" + #"\214\367P\17\315\204\20\351\310\215\4\321\17\371p\17\372\200\32\351" + #"\250|\353\330\215A\"\37\375\240\17\267\23h\345\230|\nq_" + #"\3640\17\357\370.\371`p\373P\17\363p\17\351G#\229" + #"\221\24Y\221\26y\221\30\231\221\32\271\221\34\331\221\36\371\221 " + #"\31\222\"9\222$Y\222&y\222(\231\222*\271\222,i\24" + #"\1\1\0;")) + +@(require pict file/convertible) +@(struct gf () + #:property prop:convertible + (λ (v request default) + (cond + [(equal? request 'gif-bytes) + bytes] + [else default]))) + + +@(gf) diff --git a/scribble-test/tests/scribble/docs/gif.txt b/scribble-test/tests/scribble/docs/gif.txt new file mode 100644 index 00000000..a0a9d5f0 --- /dev/null +++ b/scribble-test/tests/scribble/docs/gif.txt @@ -0,0 +1 @@ +#