;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303#\203\f\301\304!\210\300\305\302\303#\207" [require undercover nil t "tiny.el" tiny] 4) #@96 Return the result of (apply FN ARGS), in a temp buffer with TXT, with point at the end of TXT. (defalias 'with-text-value #[(txt fn &rest args) "\304\305\306\"rq\210\307\216 c\210\310\n \"+\207" [#1=#:temp-buffer txt fn args generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply] 3 (#$ . 204)]) (byte-code "\300\301\302\303\301\304\305\304\306\304&\"\210\300\307\302\303\307\304\310\304\306\304&\"\210\300\311\302\303\311\304\312\304\306\304&\"\210\300\313\302\303\313\304\314\304\306\304&\"\210\300\315\302\303\315\304\316\304\306\304&\"\210\317\320!\207" [ert-set-test tiny-mapconcat-parse record ert-test nil #[nil "\306\3071\310\311\312\313\")\314D0\202\315\n@\nA)D\316\317\320\216\321 \"\211)\2041\322 !\210)\f\210+\306@\3231I\310\311\324\313\")\325D0\202S\315@\n@\nA)DA\326B\317C\327\216\321@A\"\211B)\204o\322C!\210)B\210+\306D\3301\210\310\311\331\313\")\332D0\202\222\315D\n@\nA)DE\333F\317G\334\216\321DE\"\211F)\204\256\322G!\210)F\210+\306H\3351\307\310\311\336\313\")\337D0\202\321\315H\n@\nA)DI\340J\317K\341\216\321HI\"\211J)\204\355\322K!\210)J\210+\306L\3421\310\311\343\313\")\344D0\202\315L\n@\nA)DM\345N\317O\346\216\321LM\"\211N)\204,\322O!\210)N\210+\306P\3471E\310\311\350\313\")\351D0\202O\315P\n@\nA)DQ\352R\317S\353\216\321PQ\"\211R)\204k\322S!\210)R\210+\306T\3541\204\310\311\355\313\")\356D0\202\216\315T\n@\nA)DU\357V\317W\360\216\321TU\"\211V)\204\252\322W!\210)V\210+\306X\3611\303\310\311\362\313\")\363D0\202\315\315X\n@\nA)DY\364Z\317[\365\216\321XY\"\211Z)\204\351\322[!\210)Z\210+\306\\\3661\310\311\367\313\")\370D0\202\f\315\\\n@\nA)D]\371^\317_\372\216\321\\]\"\211^)\204(\322_!\210)^\210+\306`\3731A\310\311\374\313\")\375D0\202K\315`\n@\nA)Da\376b\317c\377\216\321`a\"\211b)\204g\322c!\210)b\210+\306d\201x1\206\310\311\201y\313\")\201zD0\202\220\315d\n@\nA)De\201{f\317g\201|\216\321de\"\211f)\204\260\322g!\210)f\210+\306h\201}1\317\310\311\201~\313\")\201D0\202\331\315h\n@\nA)Di\201\200j\317k\201\201\216\321hi\"\211j)\204\371\322k!\210)j\210+\306l\201\2021\310\311\201\203\313\")\201\204D0\202\"\315l\n@\nA)Dm\201\205n\317o\201\206\216\321lm\"\211n)\204B\322o!\210)n\210+\306p\201\2071a\310\311\201\210\313\")\201\211D0\202k\315p\n@\nA)Dq\201\212r\317s\201\213\216\321pq\"\211r)\204\213\322s!\210)r\210+\306t\201\2141\252\310\311\201\215\313\")\201\216D0\202\264\315t\n@\nA)Du\201\217v\317w\201\220\216\321tu\"\211v)\204\324\322w!\210)v+\207" [#1=#:fn-344 signal-hook-function err #2=#:args-345 #3=#:value-346 #4=#:form-description-348 equal (error) ert--should-signal-hook with-text-value #5="m10" tiny-mapconcat-parse #6=(nil nil "10" nil nil) signal #7=#:ert-form-evaluation-aborted-347 nil #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#1# #2# #3# -explainer- #4# (should (equal (with-text-value #5# #'tiny-mapconcat-parse) '#6#)) :form #7# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #8="m5%x" #9=(nil nil "5" nil "%x") #10=#:ert-form-evaluation-aborted-352 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#35=#:fn-349 #36=#:args-350 #37=#:value-351 -explainer- #38=#:form-description-353 (should (equal (with-text-value #8# #'tiny-mapconcat-parse) '#9#)) :form #10# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #11="m5 10" #12=("5" " " "10" nil nil) #13=#:ert-form-evaluation-aborted-357 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#39=#:fn-354 #40=#:args-355 #41=#:value-356 -explainer- #42=#:form-description-358 (should (equal (with-text-value #11# #'tiny-mapconcat-parse) '#12#)) :form #13# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #14="m5,10" #15=("5" "," "10" nil nil) #16=#:ert-form-evaluation-aborted-362 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#43=#:fn-359 #44=#:args-360 #45=#:value-361 -explainer- #46=#:form-description-363 (should (equal (with-text-value #14# #'tiny-mapconcat-parse) '#15#)) :form #16# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #17="m5 10*xx" #18=("5" " " "10" "(* x x)" nil) #19=#:ert-form-evaluation-aborted-367 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#47=#:fn-364 #48=#:args-365 #49=#:value-366 -explainer- #50=#:form-description-368 (should (equal (with-text-value #17# #'tiny-mapconcat-parse) '#18#)) :form #19# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #20="m5 10*xx%x" #21=("5" " " "10" "(* x x)" "%x") #22=#:ert-form-evaluation-aborted-372 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#51=#:fn-369 #52=#:args-370 #53=#:value-371 -explainer- #54=#:form-description-373 (should (equal (with-text-value #20# #'tiny-mapconcat-parse) '#21#)) :form #22# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #23="m5 10*xx|0x%x" #24=("5" " " "10" "(* x x)" "0x%x") #25=#:ert-form-evaluation-aborted-377 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#55=#:fn-374 #56=#:args-375 #57=#:value-376 -explainer- #58=#:form-description-378 (should (equal (with-text-value #23# #'tiny-mapconcat-parse) '#24#)) :form #25# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #26="m25+x?a%c" #27=(nil nil "25" "(+ x 97)" "%c") #28=#:ert-form-evaluation-aborted-382 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#59=#:fn-379 #60=#:args-380 #61=#:value-381 -explainer- #62=#:form-description-383 (should (equal (with-text-value #26# #'tiny-mapconcat-parse) '#27#)) :form #28# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #29="m25+x?A%c" #30=(nil nil "25" "(+ x 65)" "%c") #31=#:ert-form-evaluation-aborted-387 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#63=#:fn-384 #64=#:args-385 #65=#:value-386 -explainer- #66=#:form-description-388 (should (equal (with-text-value #29# #'tiny-mapconcat-parse) '#30#)) :form #31# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #32="m97,122stringx" #33=("97" "," "122" "(string x)" nil) #34=#:ert-form-evaluation-aborted-392 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#67=#:fn-389 #68=#:args-390 #69=#:value-391 -explainer- #70=#:form-description-393 (should (equal (with-text-value #32# #'tiny-mapconcat-parse) '#33#)) :form #34# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] #35# #36# #37# #38# #39# #40# #41# #42# #43# #44# #45# #46# #47# #48# #49# #50# #51# #52# #53# #54# #55# #56# #57# #58# #59# #60# #61# #62# #63# #64# #65# #66# #67# #68# #69# #70# #71=#:fn-394 #72=#:args-395 #73=#:value-396 #74=#:form-description-398 #78=#:fn-399 #79=#:args-400 #80=#:value-401 #81=#:form-description-403 #85=#:fn-404 #86=#:args-405 #87=#:value-406 #88=#:form-description-408 #92=#:fn-409 #93=#:args-410 #94=#:value-411 #95=#:form-description-413 #99=#:fn-414 #100=#:args-415 #101=#:value-416 #102=#:form-description-418 (error) #75="m97,122stringxx" #76=("97" "," "122" "(string x x)" nil) #77=#:ert-form-evaluation-aborted-397 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#71# #72# #73# -explainer- #74# (should (equal (with-text-value #75# #'tiny-mapconcat-parse) '#76#)) :form #77# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #82="m97,120stringxupcasex" #83=("97" "," "120" "(string x (upcase x))" nil) #84=#:ert-form-evaluation-aborted-402 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#78# #79# #80# -explainer- #81# (should (equal (with-text-value #82# #'tiny-mapconcat-parse) '#83#)) :form #84# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #89="m97,120stringxupcasex)x" #90=("97" "," "120" "(string x (upcase x) x)" nil) #91=#:ert-form-evaluation-aborted-407 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#85# #86# #87# -explainer- #88# (should (equal (with-text-value #89# #'tiny-mapconcat-parse) '#90#)) :form #91# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #96="m\\n;; 10|%(+ x x) and %(* x x) and %s" #97=(nil "\\n;; " "10" nil "%(+ x x) and %(* x x) and %s") #98=#:ert-form-evaluation-aborted-412 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#92# #93# #94# -explainer- #95# (should (equal (with-text-value #96# #'tiny-mapconcat-parse) '#97#)) :form #98# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #103="m10|%0.2f" #104=(nil nil "10" nil "%0.2f") #105=#:ert-form-evaluation-aborted-417 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#99# #100# #101# -explainer- #102# (should (equal (with-text-value #103# #'tiny-mapconcat-parse) '#104#)) :form #105# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6]] 3] :passed tiny-extract-sexps #[nil "\306\3071\310\311\312!)\313D0\202\314\n@\nA)D\315\316\317\216\320 \"\211)\2040\321 !\210)\f\210+\306\3221G\310\311\323!)\324D0\202Q\314\n@\nA)D\325\316\326\216\320\"\211)\204m\321!\210)+\207" [#106=#:fn-419 signal-hook-function err #107=#:args-420 #108=#:value-421 #109=#:form-description-423 equal (error) ert--should-signal-hook tiny-extract-sexps #110="expr1 %(+ x x), nothing %% char %c, hex %x, and expr2 %(* x x), float %0.2f and sym %s" #111=("expr1 %s, nothing %% char %c, hex %x, and expr2 %s, float %0.2f and sym %s" "(+ x x)" nil nil "(* x x)" nil nil) signal #112=#:ert-form-evaluation-aborted-422 nil #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#106# #107# #108# -explainer- #109# (should (equal (tiny-extract-sexps #110#) '#111#)) :form #112# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #113="m1\n5| (%c(+ x ?a -1)) %0.1f(* x 0.2)" #114=("m1\n5| (%c) %0.1f" "(+ x ?a -1)" "(* x 0.2)") #115=#:ert-form-evaluation-aborted-427 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#116=#:fn-424 #117=#:args-425 #118=#:value-426 -explainer- #119=#:form-description-428 (should (equal (tiny-extract-sexps #113#) '#114#)) :form #115# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] #116# #117# #118# #119#] 3] tiny-mapconcat #[nil "\306\3071\310\311\312\313\")\314D0\202\315\n@\nA)D\316\317\320\216\321 \"\211)\2041\322 !\210)\f\210+\306@\3231I\310\311\324\325\")\326D0\202S\315@\n@\nA)DA\327B\317C\330\216\321@A\"\211B)\204o\322C!\210)B\210+\306D\3311\210\310\311\332\333\")\334D0\202\222\315D\n@\nA)DE\335F\317G\336\216\321DE\"\211F)\204\256\322G!\210)F\210+\306H\3371\307\310\311\340\341\")\342D0\202\321\315H\n@\nA)DI\343J\317K\344\216\321HI\"\211J)\204\355\322K!\210)J\210+\306L\3451\310\311\346\347\")\350D0\202\315L\n@\nA)DM\351N\317O\352\216\321LM\"\211N)\204,\322O!\210)N\210+\306P\3531E\310\311\354\355\")\356D0\202O\315P\n@\nA)DQ\357R\317S\360\216\321PQ\"\211R)\204k\322S!\210)R\210+\306T\3611\204\310\311\362\363\")\364D0\202\216\315T\n@\nA)DU\365V\317W\366\216\321TU\"\211V)\204\252\322W!\210)V\210+\306X\3671\303\310\311\370\371\")\372D0\202\315\315X\n@\nA)DY\373Z\317[\374\216\321XY\"\211Z)\204\351\322[!\210)Z\210+\306\\\3751\310\311\376\377\")\201\234D0\202\315\\\n@\nA)D]\201\235^\317_\201\236\216\321\\]\"\211^)\204.\322_!\210)^\210+\306`\201\2371O\310\311\201\240\201\241\")\201\242D0\202Y\315`\n@\nA)Da\201\243b\317c\201\244\216\321`a\"\211b)\204y\322c!\210)b\210+\306d\201\2451\232\310\311\201\246\201\247\")\201\250D0\202\244\315d\n@\nA)De\201\251f\317g\201\252\216\321de\"\211f)\204\304\322g!\210)f\210+\306h\201\2531\345\310\311\201\254\201\255\")\201\256D0\202\357\315h\n@\nA)Di\201\257j\317k\201\260\216\321hi\"\211j)\204\322k!\210)j\210+\306l\201\26110\310\311\201\262\201\263\")\201\264D0\202:\315l\n@\nA)Dm\201\265n\317o\201\266\216\321lm\"\211n)\204Z\322o!\210)n\210+\306p\201\2671{\310\311\201\270\201\271\")\201\272D0\202\205\315p\n@\nA)Dq\201\273r\317s\201\274\216\321pq\"\211r)\204\245\322s!\210)r\210+\306t\201\2751\306\310\311\201\276\201\277\")\201\300D0\202\320\315t\n@\nA)Du\201\301v\317w\201\302\216\321tu\"\211v)\204\360\322w!\210)v\210+\306x\201\3031\310\311\201\304\201\305\")\201\306D0\202\315x\n@\nA)Dy\201\307z\317{\201\310\216\321xy\"\211z)\204;\322{!\210)z\210+\306|\201\3111\\\310\311\201\312\201\313\")\201\314D0\202f\315|\n@\nA)D}\201\315~\317\201\316\216\321|}\"\211~)\204\206\322!\210)~\210+\306\200\201\3171\247\310\311\201\320\201\321\")\201\322D0\202\261\315\200\n@\nA)D\201\201\323\202\317\203\201\324\216\321\200\201\"\211\202)\204\321\322\203!\210)\202\210+\306\204\201\3251\362\310\311\201\326\201\327\")\201\330D0\202\374\315\204\n@\nA)D\205\201\331\206\317\207\201\332\216\321\204\205\"\211\206)\204\322\207!\210)\206\210+\306\210\201\3331=\310\311\201\334\201\335\")\201\336D0\202G\315\210\n@\nA)D\211\201\337\212\317\213\201\340\216\321\210\211\"\211\212)\204g\322\213!\210)\212\210+\306\214\201\3411\210\310\311\201\342\201\343\")\201\344D0\202\222\315\214\n@\nA)D\215\201\345\216\317\217\201\346\216\321\214\215\"\211\216)\204\262\322\217!\210)\216\210+\201\347\220\201\3501\325\310\311\201\351\201\352\")\201\353D0\202\337\315\220\n@\nA)D\221\201\354\222\317\223\201\355\216\321\220\221\"\211\222)\204\377\322\223!\210)\222\210+\201\347\224\201\3561\"\310\311\201\357\201\360\")\201\361D0\202,\315\224\n@\nA)D\225\201\362\226\317\227\201\363\216\321\224\225\"\211\226)\204L\322\227!\210)\226\210+\201\347\230\201\3641o\310\311\201\365\201\366\")\201\367D0\202y\315\230\n@\nA)D\231\201\370\232\317\233\201\371\216\321\230\231\"\211\232)\204\231\322\233!\210)\232+\207" [#120=#:fn-429 signal-hook-function err #121=#:args-430 #122=#:value-431 #123=#:form-description-433 equal (error) ert--should-signal-hook with-text-value #124="m10" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #125="0 1 2 3 4 5 6 7 8 9 10" signal #126=#:ert-form-evaluation-aborted-432 nil #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#120# #121# #122# -explainer- #123# (should (equal (with-text-value #124# (lambda nil (eval (tiny-mapconcat)))) #125#)) :form #126# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #127="mm10" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #128="012345678910" #129=#:ert-form-evaluation-aborted-437 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#148=#:fn-434 #149=#:args-435 #150=#:value-436 -explainer- #151=#:form-description-438 (should (equal (with-text-value #127# (lambda nil (eval (tiny-mapconcat)))) #128#)) :form #129# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #130="m5 10" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #131="5 6 7 8 9 10" #132=#:ert-form-evaluation-aborted-442 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#152=#:fn-439 #153=#:args-440 #154=#:value-441 -explainer- #155=#:form-description-443 (should (equal (with-text-value #130# (lambda nil (eval (tiny-mapconcat)))) #131#)) :form #132# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #133="m5 10*xx" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #134="25 36 49 64 81 100" #135=#:ert-form-evaluation-aborted-447 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#156=#:fn-444 #157=#:args-445 #158=#:value-446 -explainer- #159=#:form-description-448 (should (equal (with-text-value #133# (lambda nil (eval (tiny-mapconcat)))) #134#)) :form #135# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #136="m5 10*xx%x" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #137="19 24 31 40 51 64" #138=#:ert-form-evaluation-aborted-452 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#160=#:fn-449 #161=#:args-450 #162=#:value-451 -explainer- #163=#:form-description-453 (should (equal (with-text-value #136# (lambda nil (eval (tiny-mapconcat)))) #137#)) :form #138# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #139="m5 10*xx|0x%x" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #140="0x19 0x24 0x31 0x40 0x51 0x64" #141=#:ert-form-evaluation-aborted-457 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#164=#:fn-454 #165=#:args-455 #166=#:value-456 -explainer- #167=#:form-description-458 (should (equal (with-text-value #139# (lambda nil (eval (tiny-mapconcat)))) #140#)) :form #141# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #142="m25+x?a%c" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #143="a b c d e f g h i j k l m n o p q r s t u v w x y z" #144=#:ert-form-evaluation-aborted-462 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#168=#:fn-459 #169=#:args-460 #170=#:value-461 -explainer- #171=#:form-description-463 (should (equal (with-text-value #142# (lambda nil (eval (tiny-mapconcat)))) #143#)) :form #144# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #145="m25+x?A%c" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #146="A B C D E F G H I J K L M N O P Q R S T U V W X Y Z" #147=#:ert-form-evaluation-aborted-467 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#172=#:fn-464 #173=#:args-465 #174=#:value-466 -explainer- #175=#:form-description-468 (should (equal (with-text-value #145# (lambda nil (eval (tiny-mapconcat)))) #146#)) :form #147# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #180="m97,122(string x)" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #148# #149# #150# #151# #152# #153# #154# #155# #156# #157# #158# #159# #160# #161# #162# #163# #164# #165# #166# #167# #168# #169# #170# #171# #172# #173# #174# #175# #176=#:fn-469 #177=#:args-470 #178=#:value-471 #179=#:form-description-473 #183=#:fn-474 #184=#:args-475 #185=#:value-476 #186=#:form-description-478 #190=#:fn-479 #191=#:args-480 #192=#:value-481 #193=#:form-description-483 #197=#:fn-484 #198=#:args-485 #199=#:value-486 #200=#:form-description-488 #204=#:fn-489 #205=#:args-490 #206=#:value-491 #207=#:form-description-493 #211=#:fn-494 #212=#:args-495 #213=#:value-496 #214=#:form-description-498 #218=#:fn-499 #219=#:args-500 #220=#:value-501 #221=#:form-description-503 #225=#:fn-504 #226=#:args-505 #227=#:value-506 #228=#:form-description-508 #232=#:fn-509 #233=#:args-510 #234=#:value-511 #235=#:form-description-513 #239=#:fn-514 #240=#:args-515 #241=#:value-516 #242=#:form-description-518 #246=#:fn-519 #247=#:args-520 #248=#:value-521 #249=#:form-description-523 #253=#:fn-524 #254=#:args-525 #255=#:value-526 #256=#:form-description-528 #260=#:fn-529 #261=#:args-530 #262=#:value-531 #263=#:form-description-533 #267=#:fn-534 #268=#:args-535 #269=#:value-536 #270=#:form-description-538 #274=#:fn-539 #275=#:args-540 #276=#:value-541 #277=#:form-description-543 #281=#:fn-544 #282=#:args-545 #283=#:value-546 #284=#:form-description-548 #181="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z" #182=#:ert-form-evaluation-aborted-472 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#176# #177# #178# -explainer- #179# (should (equal (with-text-value #180# (lambda nil (eval (tiny-mapconcat)))) #181#)) :form #182# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #187="m97,122stringxx" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #188="aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,oo,pp,qq,rr,ss,tt,uu,vv,ww,xx,yy,zz" #189=#:ert-form-evaluation-aborted-477 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#183# #184# #185# -explainer- #186# (should (equal (with-text-value #187# (lambda nil (eval (tiny-mapconcat)))) #188#)) :form #189# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #194="m97,120stringxupcasex" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #195="aA,bB,cC,dD,eE,fF,gG,hH,iI,jJ,kK,lL,mM,nN,oO,pP,qQ,rR,sS,tT,uU,vV,wW,xX" #196=#:ert-form-evaluation-aborted-482 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#190# #191# #192# -explainer- #193# (should (equal (with-text-value #194# (lambda nil (eval (tiny-mapconcat)))) #195#)) :form #196# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #201="m97,120stringxupcasex)x" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #202="aAa,bBb,cCc,dDd,eEe,fFf,gGg,hHh,iIi,jJj,kKk,lLl,mMm,nNn,oOo,pPp,qQq,rRr,sSs,tTt,uUu,vVv,wWw,xXx" #203=#:ert-form-evaluation-aborted-487 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#197# #198# #199# -explainer- #200# (should (equal (with-text-value #201# (lambda nil (eval (tiny-mapconcat)))) #202#)) :form #203# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #208="m10|%(+ x x) and %(* x x) and %s" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #209="0 and 0 and 0 2 and 1 and 1 4 and 4 and 2 6 and 9 and 3 8 and 16 and 4 10 and 25 and 5 12 and 36 and 6 14 and 49 and 7 16 and 64 and 8 18 and 81 and 9 20 and 100 and 10" #210=#:ert-form-evaluation-aborted-492 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#204# #205# #206# -explainer- #207# (should (equal (with-text-value #208# (lambda nil (eval (tiny-mapconcat)))) #209#)) :form #210# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #215="m10*2+3x" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #216="6 8 10 12 14 16 18 20 22 24 26" #217=#:ert-form-evaluation-aborted-497 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#211# #212# #213# -explainer- #214# (should (equal (with-text-value #215# (lambda nil (eval (tiny-mapconcat)))) #216#)) :form #217# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #222="m10expx" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #223="1.0 2.718281828459045 7.38905609893065 20.085536923187668 54.598150033144236 148.4131591025766 403.4287934927351 1096.6331584284585 2980.9579870417283 8103.083927575384 22026.465794806718" #224=#:ert-form-evaluation-aborted-502 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#218# #219# #220# -explainer- #221# (should (equal (with-text-value #222# (lambda nil (eval (tiny-mapconcat)))) #223#)) :form #224# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #229="m5 20expx%014.2f" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #230="00000000148.41 00000000403.43 00000001096.63 00000002980.96 00000008103.08 00000022026.47 00000059874.14 00000162754.79 00000442413.39 00001202604.28 00003269017.37 00008886110.52 00024154952.75 00065659969.14 00178482300.96 00485165195.41" #231=#:ert-form-evaluation-aborted-507 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#225# #226# #227# -explainer- #228# (should (equal (with-text-value #229# (lambda nil (eval (tiny-mapconcat)))) #230#)) :form #231# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #236="m, 7|0x%02x" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #237="0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07" #238=#:ert-form-evaluation-aborted-512 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#232# #233# #234# -explainer- #235# (should (equal (with-text-value #236# (lambda nil (eval (tiny-mapconcat)))) #237#)) :form #238# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #243="m1\\n14|*** TODO http://emacsrocks.com/e%02d.html" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #244="*** TODO http://emacsrocks.com/e01.html\n*** TODO http://emacsrocks.com/e02.html\n*** TODO http://emacsrocks.com/e03.html\n*** TODO http://emacsrocks.com/e04.html\n*** TODO http://emacsrocks.com/e05.html\n*** TODO http://emacsrocks.com/e06.html\n*** TODO http://emacsrocks.com/e07.html\n*** TODO http://emacsrocks.com/e08.html\n*** TODO http://emacsrocks.com/e09.html\n*** TODO http://emacsrocks.com/e10.html\n*** TODO http://emacsrocks.com/e11.html\n*** TODO http://emacsrocks.com/e12.html\n*** TODO http://emacsrocks.com/e13.html\n*** TODO http://emacsrocks.com/e14.html" #245=#:ert-form-evaluation-aborted-517 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#239# #240# #241# -explainer- #242# (should (equal (with-text-value #243# (lambda nil (eval (tiny-mapconcat)))) #244#)) :form #245# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #250="m1\\n10|convert img%s.jpg -monochrome -resize 50%% -rotate 180 img%s_mono.pdf" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #251="convert img1.jpg -monochrome -resize 50% -rotate 180 img1_mono.pdf\nconvert img2.jpg -monochrome -resize 50% -rotate 180 img2_mono.pdf\nconvert img3.jpg -monochrome -resize 50% -rotate 180 img3_mono.pdf\nconvert img4.jpg -monochrome -resize 50% -rotate 180 img4_mono.pdf\nconvert img5.jpg -monochrome -resize 50% -rotate 180 img5_mono.pdf\nconvert img6.jpg -monochrome -resize 50% -rotate 180 img6_mono.pdf\nconvert img7.jpg -monochrome -resize 50% -rotate 180 img7_mono.pdf\nconvert img8.jpg -monochrome -resize 50% -rotate 180 img8_mono.pdf\nconvert img9.jpg -monochrome -resize 50% -rotate 180 img9_mono.pdf\nconvert img10.jpg -monochrome -resize 50% -rotate 180 img10_mono.pdf" #252=#:ert-form-evaluation-aborted-522 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#246# #247# #248# -explainer- #249# (should (equal (with-text-value #250# (lambda nil (eval (tiny-mapconcat)))) #251#)) :form #252# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #257="m\\n;; 16list*xxx)*xx%s:%s:%s" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #258="0:0:0\n;; 1:1:1\n;; 8:4:2\n;; 27:9:3\n;; 64:16:4\n;; 125:25:5\n;; 216:36:6\n;; 343:49:7\n;; 512:64:8\n;; 729:81:9\n;; 1000:100:10\n;; 1331:121:11\n;; 1728:144:12\n;; 2197:169:13\n;; 2744:196:14\n;; 3375:225:15\n;; 4096:256:16" #259=#:ert-form-evaluation-aborted-527 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#253# #254# #255# -explainer- #256# (should (equal (with-text-value #257# (lambda nil (eval (tiny-mapconcat)))) #258#)) :form #259# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #264="m\\n8|**** TODO Learning from Data Week %(+ x 2)\\nSCHEDULED: <%(date \"Oct 7 2015\" (* x 7))> DEADLINE: <%(date \"Oct 14 2015\" (* x 7))>" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #265="**** TODO Learning from Data Week 2\nSCHEDULED: <2015-10-07 Wed> DEADLINE: <2015-10-14 Wed>\n**** TODO Learning from Data Week 3\nSCHEDULED: <2015-10-14 Wed> DEADLINE: <2015-10-21 Wed>\n**** TODO Learning from Data Week 4\nSCHEDULED: <2015-10-21 Wed> DEADLINE: <2015-10-28 Wed>\n**** TODO Learning from Data Week 5\nSCHEDULED: <2015-10-28 Wed> DEADLINE: <2015-11-04 Wed>\n**** TODO Learning from Data Week 6\nSCHEDULED: <2015-11-04 Wed> DEADLINE: <2015-11-11 Wed>\n**** TODO Learning from Data Week 7\nSCHEDULED: <2015-11-11 Wed> DEADLINE: <2015-11-18 Wed>\n**** TODO Learning from Data Week 8\nSCHEDULED: <2015-11-18 Wed> DEADLINE: <2015-11-25 Wed>\n**** TODO Learning from Data Week 9\nSCHEDULED: <2015-11-25 Wed> DEADLINE: <2015-12-02 Wed>\n**** TODO Learning from Data Week 10\nSCHEDULED: <2015-12-02 Wed> DEADLINE: <2015-12-09 Wed>" #266=#:ert-form-evaluation-aborted-532 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#260# #261# #262# -explainer- #263# (should (equal (with-text-value #264# (lambda nil (eval (tiny-mapconcat)))) #265#)) :form #266# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] string= (error) #271="m\\n4|**** TODO Classical Mechanics Week %(+ x 5)\\nSCHEDULED: <%(date \"Oct 15 2015\" (* x 7))> DEADLINE: <%(date \"Oct 23 2015\" (* x 7))>" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #272="**** TODO Classical Mechanics Week 5\nSCHEDULED: <2015-10-15 Thu> DEADLINE: <2015-10-23 Fri>\n**** TODO Classical Mechanics Week 6\nSCHEDULED: <2015-10-22 Thu> DEADLINE: <2015-10-30 Fri>\n**** TODO Classical Mechanics Week 7\nSCHEDULED: <2015-10-29 Thu> DEADLINE: <2015-11-06 Fri>\n**** TODO Classical Mechanics Week 8\nSCHEDULED: <2015-11-05 Thu> DEADLINE: <2015-11-13 Fri>\n**** TODO Classical Mechanics Week 9\nSCHEDULED: <2015-11-12 Thu> DEADLINE: <2015-11-20 Fri>" #273=#:ert-form-evaluation-aborted-537 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#267# #268# #269# -explainer- #270# (should (string= (with-text-value #271# (lambda nil (eval (tiny-mapconcat)))) #272#)) :form #273# :value string= ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #278="m7|%(expt 2 x)" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #279="1 2 4 8 16 32 64 128" #280=#:ert-form-evaluation-aborted-542 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#274# #275# #276# -explainer- #277# (should (string= (with-text-value #278# (lambda nil (eval (tiny-mapconcat)))) #279#)) :form #280# :value string= ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #285="m\\n25+?ax|(\"%c\")" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #286="(\"a\")\n(\"b\")\n(\"c\")\n(\"d\")\n(\"e\")\n(\"f\")\n(\"g\")\n(\"h\")\n(\"i\")\n(\"j\")\n(\"k\")\n(\"l\")\n(\"m\")\n(\"n\")\n(\"o\")\n(\"p\")\n(\"q\")\n(\"r\")\n(\"s\")\n(\"t\")\n(\"u\")\n(\"v\")\n(\"w\")\n(\"x\")\n(\"y\")\n(\"z\")" #287=#:ert-form-evaluation-aborted-547 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#281# #282# #283# -explainer- #284# (should (string= (with-text-value #285# (lambda nil (eval (tiny-mapconcat)))) #286#)) :form #287# :value string= ert-explainer :explanation apply ert--signal-should-execution] 6]] 3] tiny-tokenize #[nil "\306\3071\310\311\312!)\313D0\202\314\n@\nA)D\315\316\317\216\320 \"\211)\2040\321 !\210)\f\210+\306@\3221G\310\311\323!)\324D0\202Q\314@\n@\nA)DA\325B\316C\326\216\320@A\"\211B)\204m\321C!\210)B\210+\306D\3271\205\310\311\323!)\324D0\202\217\314D\n@\nA)DE\330F\316G\331\216\320DE\"\211F)\204\253\321G!\210)F\210+\306H\3321\303\310\311\333!)\334D0\202\315\314H\n@\nA)DI\335J\316K\336\216\320HI\"\211J)\204\351\321K!\210)J\210+\306L\3371\310\311\340!)\341D0\202 \314L\n@\nA)DM\342N\316O\343\216\320LM\"\211N)\204'\321O!\210)N\210+\306P\3441?\310\311\341!)\341D0\202I\314P\n@\nA)DQ\345R\316S\346\216\320PQ\"\211R)\204e\321S!\210)R\210+\306T\3471}\310\311\350!)\341D0\202\207\314T\n@\nA)DU\351V\316W\352\216\320TU\"\211V)\204\243\321W!\210)V\210+\306X\3531\273\310\311\354!)\355D0\202\305\314X\n@\nA)DY\356Z\316[\357\216\320XY\"\211Z)\204\341\321[!\210)Z\210+\306\\\3601\371\310\311\361!)\355D0\202\314\\\n@\nA)D]\362^\316_\363\216\320\\]\"\211^)\204\321_!\210)^\210+\306`\36417\310\311\365!)\355D0\202A\314`\n@\nA)Da\366b\316c\367\216\320`a\"\211b)\204]\321c!\210)b\210+\306d\3701u\310\311\371!)\355D0\202\314d\n@\nA)De\372f\316g\373\216\320de\"\211f)\204\233\321g!\210)f\210+\306h\3741\263\310\311\375!)\355D0\202\275\314h\n@\nA)Di\376j\316k\377\216\320hi\"\211j)\204\331\321k!\210)j\210+\306l\201t1\365\310\311\201u!)\355D0\202\377\314l\n@\nA)Dm\201vn\316o\201w\216\320lm\"\211n)\204\321o!\210)n\210+\306p\201x19\310\311\355!)\355D0\202C\314p\n@\nA)Dq\201yr\316s\201z\216\320pq\"\211r)\204c\321s!\210)r+\207" [#288=#:fn-549 signal-hook-function err #289=#:args-550 #290=#:value-551 #291=#:form-description-553 equal (error) ert--should-signal-hook tiny-tokenize #292="stringxx" #293="(string x x)" signal #294=#:ert-form-evaluation-aborted-552 nil #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#288# #289# #290# -explainer- #291# (should (equal (tiny-tokenize #292#) #293#)) :form #294# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #295="*2+xxx" #296="(* 2 (+ x x x))" #297=#:ert-form-evaluation-aborted-557 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#319=#:fn-554 #320=#:args-555 #321=#:value-556 -explainer- #322=#:form-description-558 (should (equal (tiny-tokenize #295#) #296#)) :form #297# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #298=#:ert-form-evaluation-aborted-562 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#323=#:fn-559 #324=#:args-560 #325=#:value-561 -explainer- #326=#:form-description-563 (should (equal (tiny-tokenize "*2+xxx") "(* 2 (+ x x x))")) :form #298# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #299="*2+xx)x" #300="(* 2 (+ x x) x)" #301=#:ert-form-evaluation-aborted-567 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#327=#:fn-564 #328=#:args-565 #329=#:value-566 -explainer- #330=#:form-description-568 (should (equal (tiny-tokenize #299#) #300#)) :form #301# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #302="string x" #303="(string x)" #304=#:ert-form-evaluation-aborted-572 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#331=#:fn-569 #332=#:args-570 #333=#:value-571 -explainer- #334=#:form-description-573 (should (equal (tiny-tokenize #302#) #303#)) :form #304# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #305=#:ert-form-evaluation-aborted-577 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#335=#:fn-574 #336=#:args-575 #337=#:value-576 -explainer- #338=#:form-description-578 (should (equal (tiny-tokenize "(string x)") "(string x)")) :form #305# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #306="string x)" #307=#:ert-form-evaluation-aborted-582 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#339=#:fn-579 #340=#:args-580 #341=#:value-581 -explainer- #342=#:form-description-583 (should (equal (tiny-tokenize #306#) "(string x)")) :form #307# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #308="stringxupcasex)x" #309="(string x (upcase x) x)" #310=#:ert-form-evaluation-aborted-587 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#343=#:fn-584 #344=#:args-585 #345=#:value-586 -explainer- #346=#:form-description-588 (should (equal (tiny-tokenize #308#) #309#)) :form #310# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #311="(stringxupcasex)x" #312=#:ert-form-evaluation-aborted-592 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#347=#:fn-589 #348=#:args-590 #349=#:value-591 -explainer- #350=#:form-description-593 (should (equal (tiny-tokenize #311#) "(string x (upcase x) x)")) :form #312# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #313="(string xupcasex)x" #314=#:ert-form-evaluation-aborted-597 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#351=#:fn-594 #352=#:args-595 #353=#:value-596 -explainer- #354=#:form-description-598 (should (equal (tiny-tokenize #313#) "(string x (upcase x) x)")) :form #314# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #315="(string x upcasex)x" #316=#:ert-form-evaluation-aborted-602 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#355=#:fn-599 #356=#:args-600 #357=#:value-601 -explainer- #358=#:form-description-603 (should (equal (tiny-tokenize #315#) "(string x (upcase x) x)")) :form #316# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #317="(string x upcase x) x" #318=#:ert-form-evaluation-aborted-607 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#359=#:fn-604 #360=#:args-605 #361=#:value-606 -explainer- #362=#:form-description-608 (should (equal (tiny-tokenize #317#) "(string x (upcase x) x)")) :form #318# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] #319# #320# #321# #322# #323# #324# #325# #326# #327# #328# #329# #330# #331# #332# #333# #334# #335# #336# #337# #338# #339# #340# #341# #342# #343# #344# #345# #346# #347# #348# #349# #350# #351# #352# #353# #354# #355# #356# #357# #358# #359# #360# #361# #362# #363=#:fn-609 #364=#:args-610 #365=#:value-611 #366=#:form-description-613 #369=#:fn-614 #370=#:args-615 #371=#:value-616 #372=#:form-description-618 (error) #367="(string x (upcase x) x" #368=#:ert-form-evaluation-aborted-612 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#363# #364# #365# -explainer- #366# (should (equal (tiny-tokenize #367#) "(string x (upcase x) x)")) :form #368# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #373=#:ert-form-evaluation-aborted-617 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#369# #370# #371# -explainer- #372# (should (equal (tiny-tokenize "(string x (upcase x) x)") "(string x (upcase x) x)")) :form #373# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6]] 3] tiny-decreasing-seq #[nil "\306\3071\310\311\312\313\")\314D0\202\315\n@\nA)D\316\317\320\216\321 \"\211)\2041\322 !\210)\f\210+\306\3231I\310\311\324\325\")\326D0\202S\315\n@\nA)D\327\317\330\216\321\"\211)\204o\322!\210)+\207" [#374=#:fn-619 signal-hook-function err #375=#:args-620 #376=#:value-621 #377=#:form-description-623 equal (error) ert--should-signal-hook with-text-value #378="m2 -2" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #379="2 1 0 -1 -2" signal #380=#:ert-form-evaluation-aborted-622 nil #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#374# #375# #376# -explainer- #377# (should (equal (with-text-value #378# (lambda nil (eval (tiny-mapconcat)))) #379#)) :form #380# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #381="m3 -1|%(+ x x)" #[nil "\300\301 !\207" [eval tiny-mapconcat] 2] #382="6 4 2 0 -2" #383=#:ert-form-evaluation-aborted-627 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#384=#:fn-624 #385=#:args-625 #386=#:value-626 -explainer- #387=#:form-description-628 (should (equal (with-text-value #381# (lambda nil (eval (tiny-mapconcat)))) #382#)) :form #383# :value equal ert-explainer :explanation apply ert--signal-should-execution] 6] #384# #385# #386# #387#] 3] provide tiny-test] 10)