Add test case for #256.
This commit is contained in:
Sam Tobin-Hochstadt
parent
709977cccd
commit
ac2b976e40
|
|
@ -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))
|
||||
|
|
|
|||
197
scribble-test/tests/scribble/docs/gif.scrbl
Normal file
197
scribble-test/tests/scribble/docs/gif.scrbl
Normal file
|
|
@ -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*<dMM)$|\214\242\16\310PR\bM"
|
||||
#"\200\212\204p#\v\27%\5=\31p\210t\230\303\23/ \0"
|
||||
#"\22\206\241Z\356\362\303\273\3405\310,\270\0\\}\24B\2\24"
|
||||
#"\300D^\317`\f\201\374A\1\34\250\16C\254Q\205\0\300\240"
|
||||
#"`\3q\4\363~3\21\\\0\225\270~\4,\204UZBm"
|
||||
#"\26\204\233\332-\245\21\335A\16\252\202\203\v\1\200@%\22\242"
|
||||
#"\214\211i\222\2361\\\307\32`\250\b\270mw\304%6\310("
|
||||
#"\274p\v\201\344b\a\3H\3031\324@\bH\31\2\2\202d"
|
||||
#"\b:\304\20\200\20\250\267 G.\0\"\356\372\220U\274 \0"
|
||||
#"MPFHT\4]@v\30\205\331\365&\21\353)\220~\230"
|
||||
#"\371\34\212H\20>\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)
|
||||
1
scribble-test/tests/scribble/docs/gif.txt
Normal file
1
scribble-test/tests/scribble/docs/gif.txt
Normal file
|
|
@ -0,0 +1 @@
|
|||
#<gf>
|
||||
Loading…
Reference in New Issue
Block a user