;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require persist seq] 2) (defalias 'with-local-temp-persist '(macro . #[(&rest body) "\301\302\303BB\304BB\207" [body unwind-protect let ((persist--directory-location "./persist/") (persist--symbols nil)) ((delete-directory "./persist" t))] 4])) (byte-code "\300\301\302\303#\210\304\305\306\307\305\310\311\310\312\310\313&\"\210\304\314\306\307\314\310\315\310\312\310\313&\"\207" [put with-local-temp-persist edebug-form-spec body ert-set-test test-persist-symbol record ert-test nil #[nil "\304\305!\306\307\216\306\310 \311\n\312\"\210\313 \n\"*\211)\204!\314 !\210))\207" [#1=#:value-1067 #2=#:form-description-1068 sym persist--symbols gensym #4="ert-form-evaluation-aborted-" nil #[nil "\302\303\304\305\257\306 !\207" [#1# #2# (should #3=(let ((persist--symbols nil) (sym (cl-gensym))) (persist-symbol sym 10) (seq-contains-p persist--symbols sym))) :form #3# :value ert--signal-should-execution] 5] cl-gensym persist-symbol 10 seq-contains-p ert-fail] 3] :passed "/home/mmarcos/.emacs.d/elpa/persist-0.8/test/persist-tests.el" test-persist-save-only-persistant #[nil "\306\307!\310\211\311\3121#\313\216\314\216\315\310\316\317 !+\211)0\210\2025\320\321\n\322\320$\210\211)\210 \204C\323\324\n \325\326D\"!\210+)\207" [#6=#:value-1069 #5=#:form-description-1070 #:form-description-fn-1072 #:errorp1071 persist--symbols persist--directory-location gensym #4# nil #[nil "\207" [#5#] 1] (error) #[nil "\302\303\304\305\257\306 !\207" [#6# #5# (should-error (with-local-temp-persist #7=(persist-save (cl-gensym))) :type 'error :exclude-subtypes t) :form (unwind-protect (let ((persist--directory-location #9="./persist/") (persist--symbols nil)) #7#) (delete-directory #8="./persist" t)) :value ert--signal-should-execution] 5] #[nil "\300\301\302\"\207" [delete-directory #8# t] 3] #9# persist-save cl-gensym t ert--should-error-handle-error error ert-fail append :fail-reason "did not signal an error" -condition-] 6]] 11)#@293 Test persisting symbols. - symbol is not persisted when value is set to INIT and default value is set to DEFAULT. - symbol is persisted when value is changed according to CHANGE. - persisted file contents match PRINTED-CHANGED. - symbol is not persisted after value is set back to DEFAULT. (defalias 'persist-test-persist-save '(macro . #[(init default change printed-changed) "\304\305\306\307\310\311E\312\311 E\313\314\315\n\316\317\320\321 \322BBD\310\311 E\323BBBBBBBBBBBBBD\207" [init default change printed-changed with-local-temp-persist let ((sym (cl-gensym))) (should-not (file-exists-p (persist--file-location sym))) set sym persist-symbol (persist-save sym) (should t) (should-not (file-exists-p (persist--file-location sym))) (persist-save sym) (should (file-exists-p (persist--file-location sym))) should string-match-p ((with-temp-buffer (insert-file-contents (persist--file-location sym)) (buffer-string))) ((persist-save sym) (should-not (file-exists-p (persist--file-location sym))))] 16 (#$ . 2091)])) (byte-code "\300\301\302\303\301\304\305\306\307\306\310&\"\210\300\311\302\303\311\312\313\306\307\306\310&\"\210\300\314\302\303\314\315\316\306\307\306\310&\"\210\300\317\302\303\317\320\321\306\307\306\310&\"\210\300\322\302\303\322\306\323\306\307\306\310&\"\210\300\324\302\303\324\306\325\306\307\306\310&\"\210\300\326\302\303\326\306\327\306\307\306\310&\"\210\300\330\302\303\330\306\331\306\307\306\310&\"\210\300\332\302\303\332\306\333\306\307\306\310&\"\210\300\334\302\303\334\306\335\306\307\306\310&\"\210\300\336\302\303\336\337\340\306\307\306\310&\"\207" [ert-set-test test-persist-save-number record ert-test "Test saving number." #[nil "\306\216\307\310\311 \312\3131\314\315\n!)C0\202#\316 @ A)D.\317/\3100\320\216\321 .\"\211/)\203>\3220!\210)/+\210\n\323L\210\324\n\323\"\210\325\n!\210\326\327!1\3102\330\216\3311*1)\210\3123\3321t\314\315\n!)C0\202~\3163 @ A)D4\3335\3106\334\216\32134\"\2115)\203\232\3226!\210)5+\210\n\335L\210\325\n!\210\3127\3361\271\314\315\n!)C0\202\303\3167 @ A)D8\3379\310:\340\216\32178\"\2119)\204\337\322:!\210)9+\210\341;\3421 \314\343\344\345\331\"\310?\352\216\321;=\"\211>)\204/\322?!\210)>+\210\n\323L\210\325\n!\210\312@\3531N\314\315\n!)C0\202X\316@ @ A)DA\354B\310C\355\216\321@A\"\211B)\203t\322C!\210)B.\207" [persist--symbols persist--directory-location sym #1=#:fn-1073 signal-hook-function err #[nil "\300\301\302\"\207" [delete-directory #30="./persist" t] 3] #31="./persist/" nil cl-gensym file-exists-p (error) ert--should-signal-hook persist--file-location signal #2=#:ert-form-evaluation-aborted-1076 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#1# #8=#:args-1074 #9=#:value-1075 -explainer- #10=#:form-description-1077 (should-not #33=(file-exists-p (persist--file-location sym))) :form #2# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] apply ert-fail 1 persist-symbol persist-save gensym #35="ert-form-evaluation-aborted-" #[nil "\302\303\304\305\257\306 !\207" [#11=#:value-1078 #12=#:form-description-1079 (should t) :form t :value ert--signal-should-execution] 5] t (error) #3=#:ert-form-evaluation-aborted-1083 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#13=#:fn-1080 #14=#:args-1081 #15=#:value-1082 -explainer- #16=#:form-description-1084 (should-not #36=(file-exists-p (persist--file-location sym))) :form #3# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] 2 (error) #4=#:ert-form-evaluation-aborted-1088 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#17=#:fn-1085 #18=#:args-1086 #19=#:value-1087 -explainer- #20=#:form-description-1089 (should #38=(file-exists-p (persist--file-location sym))) :form #4# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] string-match-p (error) #5="2" generate-new-buffer #40=" *temp*" #[nil "\301!\205 \302!\207" [#22=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents buffer-string #6=#:ert-form-evaluation-aborted-1093 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#21=#:fn-1090 #23=#:args-1091 #24=#:value-1092 -explainer- #25=#:form-description-1094 (should (string-match-p #5# . #41=((with-temp-buffer (insert-file-contents (persist--file-location sym)) (buffer-string))))) :form #6# :value ert--get-explainer string-match-p :explanation apply ert--signal-should-execution] 6] (error) #7=#:ert-form-evaluation-aborted-1098 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#26=#:fn-1095 #27=#:args-1096 #28=#:value-1097 -explainer- #29=#:form-description-1099 (should-not #43=(file-exists-p (persist--file-location sym))) :form #7# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] #8# #9# #10# #11# #12# #13# #14# #15# #16# #17# #18# #19# #20# #21# #22# #23# #24# #25# #26# #27# #28# #29#] 4] nil :passed "/home/mmarcos/.emacs.d/elpa/persist-0.8/test/persist-tests.el" test-persist-save-string "Test saving string." #[nil "\306\216\307\310\311 \312\3131\314\315\n!)C0\202#\316 @ A)D-\317.\310/\320\216\321 -\"\211.)\203>\322/!\210).+\210\n\323L\210\324\n\323\"\210\325\n!\210\326\327!0\3101\330\216\3310*0)\210\3122\3321t\314\315\n!)C0\202~\3162 @ A)D3\3334\3105\334\216\32123\"\2114)\203\232\3225!\210)4+\210\n\335L\210\325\n!\210\3126\3361\271\314\315\n!)C0\202\303\3166 @ A)D7\3378\3109\340\216\32167\"\2118)\204\337\3229!\210)8+\210\341:\3421 \314\335\343\344\331\";r;q\210\345\216\346\315\n!!\210\347 ,D0\202\316: @ A)D<\350=\310>\351\216\321:<\"\211=)\204/\322>!\210)=+\210\n\323L\210\325\n!\210\312?\3521N\314\315\n!)C0\202X\316? @ A)D@\353A\310B\354\216\321?@\"\211A)\203t\322B!\210)A.\207" [persist--symbols persist--directory-location sym #32=#:fn-1100 signal-hook-function err #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil cl-gensym file-exists-p (error) ert--should-signal-hook persist--file-location signal #34=#:ert-form-evaluation-aborted-1103 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#32# #45=#:args-1101 #46=#:value-1102 -explainer- #47=#:form-description-1104 (should-not #33#) :form #34# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] apply ert-fail "foo" persist-symbol persist-save gensym #35# #[nil "\302\303\304\305\257\306 !\207" [#48=#:value-1105 #49=#:form-description-1106 (should t) :form t :value ert--signal-should-execution] 5] t (error) #37=#:ert-form-evaluation-aborted-1110 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#50=#:fn-1107 #51=#:args-1108 #52=#:value-1109 -explainer- #53=#:form-description-1111 (should-not #36#) :form #37# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] "bar" (error) #39=#:ert-form-evaluation-aborted-1115 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#54=#:fn-1112 #55=#:args-1113 #56=#:value-1114 -explainer- #57=#:form-description-1116 (should #38#) :form #39# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] string-match-p (error) generate-new-buffer #40# #[nil "\301!\205 \302!\207" [#59=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents buffer-string #42=#:ert-form-evaluation-aborted-1120 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#58=#:fn-1117 #60=#:args-1118 #61=#:value-1119 -explainer- #62=#:form-description-1121 (should (string-match-p "bar" . #41#)) :form #42# :value ert--get-explainer string-match-p :explanation apply ert--signal-should-execution] 6] (error) #44=#:ert-form-evaluation-aborted-1125 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#63=#:fn-1122 #64=#:args-1123 #65=#:value-1124 -explainer- #66=#:form-description-1126 (should-not #43#) :form #44# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] #45# #46# #47# #48# #49# #50# #51# #52# #53# #54# #55# #56# #57# #58# #59# #60# #61# #62# #63# #64# #65# #66#] 4] test-persist-save-hash "Test saving hash table." #[nil "\306 \307!\310\216\311\312\313 \314\3151\"\3163\317\f!)C0\202.4\3204@4A)D5\3216\3127\322\216\323 5\"\2116)\203I\3247!\210)6+\210\fL\210\325\f \"\210\326\f!\210\327\330!8\3129\331\216\3328*8)\210\314:\3331\200\3163\317\f!)C0\202\2154\320:4@4A)D;\334<\312=\335\216\323:;\"\211<)\203\251\324=!\210)<+\210\336\337\340\fJ#\210\326\f!\210\314>\3411\314\3163\317\f!)C0\202\3314\320>4@4A)D?\342@\312A\343\216\323>?\"\211@)\204\365\324A!\210)@+\210\344B\3451+\3163\346CX\203\347\202\350\351\352\332\"DrDq\210\353\216\354\317\f!!\210\355 ,D0\20284\320B4@4A)DE\356F\312G\357\216\323BE\"\211F)\204T\324G!\210)F+\210\f L\210\326\f!\210\314H\3601t\3163\317\f!)C0\202\2014\320H4@4A)DI\361J\312K\362\216\323HI\"\211J)\203\235\324K!\210)J. \207" [hash default persist--symbols persist--directory-location sym #67=#:fn-1127 make-hash-table copy-hash-table #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil cl-gensym file-exists-p (error) ert--should-signal-hook persist--file-location signal #68=#:ert-form-evaluation-aborted-1130 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#67# #75=#:args-1128 #76=#:value-1129 -explainer- #77=#:form-description-1131 (should-not #33#) :form #68# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] apply ert-fail persist-symbol persist-save gensym #35# #[nil "\302\303\304\305\257\306 !\207" [#78=#:value-1132 #79=#:form-description-1133 (should t) :form t :value ert--signal-should-execution] 5] t (error) #69=#:ert-form-evaluation-aborted-1137 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#80=#:fn-1134 #81=#:args-1135 #82=#:value-1136 -explainer- #83=#:form-description-1138 (should-not #36#) :form #69# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] puthash foo "bar" (error) #70=#:ert-form-evaluation-aborted-1142 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#84=#:fn-1139 #85=#:args-1140 #86=#:value-1141 -explainer- #87=#:form-description-1143 (should #38#) :form #70# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] string-match-p (error) 30 #71="#s(hash-table data (foo \"bar\"))\n" #72="#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data (foo \"bar\"))" generate-new-buffer #40# #[nil "\301!\205 \302!\207" [#89=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents buffer-string #73=#:ert-form-evaluation-aborted-1147 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#88=#:fn-1144 #90=#:args-1145 #91=#:value-1146 -explainer- #92=#:form-description-1148 (should (string-match-p (if (<= 30 emacs-major-version) #71# #72#) . #41#)) :form #73# :value ert--get-explainer string-match-p :explanation apply ert--signal-should-execution] 6] (error) #74=#:ert-form-evaluation-aborted-1152 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#93=#:fn-1149 #94=#:args-1150 #95=#:value-1151 -explainer- #96=#:form-description-1153 (should-not #43#) :form #74# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] signal-hook-function err #75# #76# #77# #78# #79# #80# #81# #82# #83# #84# #85# #86# #87# #88# emacs-major-version #89# #90# #91# #92# #93# #94# #95# #96#] 4] test-persist-save-record "Test saving record." #[nil "\306\307\310\311#\312!\313\216\314\315\316 \317\3201%\3213\322\f!)C0\20214\3234@4A)D5\3246\3157\325\216\326 5\"\2116)\203L\3277!\210)6+\210\fL\210\330\f \"\210\331\f!\210\332\333!8\3159\334\216\3358*8)\210\317:\3361\203\3213\322\f!)C0\202\2204\323:4@4A)D;\337<\315=\340\216\326:;\"\211<)\203\254\327=!\210)<+\210\fJ\211>\341\342I)\210\331\f!\210\317?\3431\322\3213\322\f!)C0\202\3374\323?4@4A)D@\344A\315B\345\216\326?@\"\211A)\204\373\327B!\210)A+\210\346C\3471&\3213\350\351\352\335\"DrDq\210\353\216\354\322\f!!\210\355 ,D0\20234\323C4@4A)DE\356F\315G\357\216\326CE\"\211F)\204O\327G!\210)F+\210\f L\210\331\f!\210\317H\3601o\3213\322\f!)C0\202|4\323H4@4A)DI\361J\315K\362\216\326HI\"\211J)\203\230\327K!\210)J. \207" [rec default persist--symbols persist--directory-location sym #97=#:fn-1154 record foo a b copy-sequence #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil cl-gensym file-exists-p (error) ert--should-signal-hook persist--file-location signal #98=#:ert-form-evaluation-aborted-1157 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#97# #104=#:args-1155 #105=#:value-1156 -explainer- #106=#:form-description-1158 (should-not #33#) :form #98# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] apply ert-fail persist-symbol persist-save gensym #35# #[nil "\302\303\304\305\257\306 !\207" [#107=#:value-1159 #108=#:form-description-1160 (should t) :form t :value ert--signal-should-execution] 5] t (error) #99=#:ert-form-evaluation-aborted-1164 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#109=#:fn-1161 #110=#:args-1162 #111=#:value-1163 -explainer- #112=#:form-description-1165 (should-not #36#) :form #99# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] 2 quux (error) #100=#:ert-form-evaluation-aborted-1169 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#113=#:fn-1166 #114=#:args-1167 #115=#:value-1168 -explainer- #116=#:form-description-1170 (should #38#) :form #100# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] string-match-p (error) #101="#s(foo a quux)" generate-new-buffer #40# #[nil "\301!\205 \302!\207" [#118=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents buffer-string #102=#:ert-form-evaluation-aborted-1174 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#117=#:fn-1171 #119=#:args-1172 #120=#:value-1173 -explainer- #121=#:form-description-1175 (should (string-match-p #101# . #41#)) :form #102# :value ert--get-explainer string-match-p :explanation apply ert--signal-should-execution] 6] (error) #103=#:ert-form-evaluation-aborted-1179 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#122=#:fn-1176 #123=#:args-1177 #124=#:value-1178 -explainer- #125=#:form-description-1180 (should-not #43#) :form #103# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] signal-hook-function err #104# #105# #106# #107# #108# #109# #110# #111# #112# #:v #113# #114# #115# #116# #117# #118# #119# #120# #121# #122# #123# #124# #125#] 5] test-persist-load #[nil "\306\216\307\310\311 \211\312L\210\313\n\314\"\210\315\n!\210\316\3171'\320\312\nJ)D0\2020\321 @ A)D\322\310 \323\216\324 \"\211)\204K\325 !\210)+\210\n\326L\210\316!\3271f\320\326\nJ)D0\202p\321! @ A)D\"\330#\310$\331\216\324!\"\"\211#)\204\214\325$!\210)#+\210\332\n!\210\316%\3331\247\320\312\nJ)D0\202\261\321% @ A)D&\334'\310(\335\216\324%&\"\211')\204\315\325(!\210)'.\207" [persist--symbols persist--directory-location sym #126=#:fn-1181 signal-hook-function err #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil cl-gensym 10 persist-symbol 1 persist-save equal (error) ert--should-signal-hook signal #127=#:ert-form-evaluation-aborted-1184 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#126# #130=#:args-1182 #131=#:value-1183 -explainer- #132=#:form-description-1185 (should (equal 10 (symbol-value sym))) :form #127# :value ert--get-explainer equal :explanation apply ert--signal-should-execution] 6] apply ert-fail 30 (error) #128=#:ert-form-evaluation-aborted-1189 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#133=#:fn-1186 #134=#:args-1187 #135=#:value-1188 -explainer- #136=#:form-description-1190 (should (equal 30 (symbol-value sym))) :form #128# :value ert--get-explainer equal :explanation apply ert--signal-should-execution] 6] persist-load (error) #129=#:ert-form-evaluation-aborted-1194 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#137=#:fn-1191 #138=#:args-1192 #139=#:value-1193 -explainer- #140=#:form-description-1195 (should (equal 10 (symbol-value sym))) :form #129# :value ert--get-explainer equal :explanation apply ert--signal-should-execution] 6] #130# #131# #132# #133# #134# #135# #136# #137# #138# #139# #140#] 4] test-persist-remove #[nil "\306\216\307\310\311 \312\3131\314\n)C0\202!\315 @ A)D\316\310\317\216\320 \"\211)\203<\321!\210)+\210\322\n\323\"\210\312\3241V\314\n)C0\202`\315 @ A)D\325 \310!\326\216\320\"\211 )\204|\321!!\210) +\210\327\n!\210\312\"\3301\225\314\n)C0\202\237\315\" @ A)D#\331$\310%\332\216\320\"#\"\211$)\203\273\321%!\210)$.\207" [persist--symbols persist--directory-location sym #141=#:fn-1196 signal-hook-function err #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil cl-gensym persist--persistant-p (error) ert--should-signal-hook signal #142=#:ert-form-evaluation-aborted-1199 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#141# #145=#:args-1197 #146=#:value-1198 -explainer- #147=#:form-description-1200 (should-not (persist--persistant-p sym)) :form #142# :value ert--get-explainer persist--persistant-p :explanation apply ert--signal-should-execution] 6] apply ert-fail persist-symbol 10 (error) #143=#:ert-form-evaluation-aborted-1204 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#148=#:fn-1201 #149=#:args-1202 #150=#:value-1203 -explainer- #151=#:form-description-1205 (should (persist--persistant-p sym)) :form #143# :value ert--get-explainer persist--persistant-p :explanation apply ert--signal-should-execution] 6] persist-unpersist (error) #144=#:ert-form-evaluation-aborted-1209 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#152=#:fn-1206 #153=#:args-1207 #154=#:value-1208 -explainer- #155=#:form-description-1210 (should-not (persist--persistant-p sym)) :form #144# :value ert--get-explainer persist--persistant-p :explanation apply ert--signal-should-execution] 6] #145# #146# #147# #148# #149# #150# #151# #152# #153# #154# #155#] 3] test-persist-defvar #[nil "\306\216\307\310\311\312\313\314#\210\311\315\316\314#\210\317\315\310\316#\210\320\3211$\312C0\202-\322 @ A)D\323\310 \324\216\325\n\f\"\211)\203D\326 !\210) +\210\320!\3271U\315C0\202_\322! @ A)D\"\330#\310$\331\216\325!\"\"\211#)\204{\326$!\210)#+\210\332%\3331\224\334&\316\335\315!)D0\202\236\322% @ A)D'\336(\310)\337\216\325%'\"\211()\204\272\326)!\210)(.\207" [persist--symbols persist--directory-location #156=#:fn-1211 err #157=#:args-1212 #158=#:value-1213 #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil defvar-1 test-no-persist-variable 10 "docstring" test-persist-variable 20 persist--defvar-1 persist--persistant-p (error) signal #159=#:ert-form-evaluation-aborted-1214 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#156# #157# #158# -explainer- #162=#:form-description-1215 (should-not (persist--persistant-p 'test-no-persist-variable)) :form #159# :value ert--get-explainer persist--persistant-p :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #160=#:ert-form-evaluation-aborted-1219 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#163=#:fn-1216 #164=#:args-1217 #165=#:value-1218 -explainer- #166=#:form-description-1220 (should (persist--persistant-p 'test-persist-variable)) :form #160# :value ert--get-explainer persist--persistant-p :explanation apply ert--signal-should-execution] 6] = (error) ert--should-signal-hook persist-default #161=#:ert-form-evaluation-aborted-1224 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#167=#:fn-1221 #168=#:args-1222 #169=#:value-1223 -explainer- #170=#:form-description-1225 (should (= 20 (persist-default 'test-persist-variable))) :form #161# :value ert--get-explainer = :explanation apply ert--signal-should-execution] 6] #162# #163# #164# #165# #166# #167# signal-hook-function #168# #169# #170#] 4] test-persist-default-set-to-initvalue #[nil "\306\300\307\310#\210\311\300\312\307#\210\313\306\300\307\310#\210\311\300\312\307#\210\314\3151,\316\307\317\300!)D0\2025\320 @ A)D\321\312\322\216\323 \f\"\211)\204L\324!\210) +\207" [test-persist-variable-default #171=#:fn-1226 signal-hook-function err #172=#:args-1227 #173=#:value-1228 defvar-1 INIT "Docstring." persist--defvar-1 nil CHANGED equal (error) ert--should-signal-hook persist-default signal #174=#:ert-form-evaluation-aborted-1229 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#171# #172# #173# -explainer- #175=#:form-description-1230 (should (equal 'INIT (persist-default 'test-persist-variable-default))) :form #174# :value ert--get-explainer equal :explanation apply ert--signal-should-execution] 6] apply ert-fail #175#] 4] test-persist-default-nil-initvalue #[nil "\306\300\307\310#\210\311\300\307\211#\210\312\306\300\307\310#\210\311\300\307\211#\210\313\3141+\315\316\300!)C0\2024\317 @ A)D\320\307\321\216\322 \f\"\211)\204K\323!\210) +\207" [test-persist-variable-default #176=#:fn-1231 signal-hook-function err #177=#:args-1232 #178=#:value-1233 defvar-1 nil "Docstring." persist--defvar-1 CHANGED null (error) ert--should-signal-hook persist-default signal #179=#:ert-form-evaluation-aborted-1234 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#176# #177# #178# -explainer- #180=#:form-description-1235 (should (null (persist-default 'test-persist-variable-default))) :form #179# :value ert--get-explainer null :explanation apply ert--signal-should-execution] 6] apply ert-fail #180#] 4] test-persist-location #[nil "\306\216\307 \310\311\312\"\210\313L\210\314\313\"\210\315\311\"\210\316\3171/\320\321\322!\323\"\324!)D0\2028\325 @ A)D\326\3279\330\216\331 \f\"\211)\204O\3329!\210) +\210\333!\210\334:\3351i\320\324!)C0\202s\325: @ A)D;\336<\327=\337\216\331:;\"\211<)\203\217\332=!\210)<+\210\340L\210\333!\210\334>\3411\256\320\324!)C0\202\270\325> @ A)D?\342@\327A\343\216\331>?\"\211@)\204\324\332A!\210)@+\210\344B\3451\376\320\346\347\350\312\"CrCq\210\351\216\352\324!!\210\353 ,D0\202\325B @ A)DD\354E\327F\355\216\331BD\"\211E)\204$\332F!\210)E+\210\333G\35616\357C0\202@\325G @ A)DH\360I\327\211J\361KL\3621c\363\216\331GH\"\211I)0\210\202xM\312L\364KM\365\327$\210M\211I)\210L\204\210\332\366K \367\370D\"!\210+I-\207" [sym #181=#:fn-1236 signal-hook-function err #182=#:args-1237 #183=#:value-1238 #[nil "\300\301\302\"\207" [delete-directory "./persist-defined-location" t] 3] cl-gensym delete-directory "./persist-defined-location" t 10 persist-symbol persist-location equal (error) ert--should-signal-hook expand-file-name symbol-name #184="./persist-defined-location/" persist--file-location signal #185=#:ert-form-evaluation-aborted-1239 nil #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#181# #182# #183# -explainer- #192=#:form-description-1240 (should (equal (expand-file-name (symbol-name sym) #184#) (persist--file-location sym))) :form #185# :value ert--get-explainer equal :explanation apply ert--signal-should-execution] 6] apply ert-fail persist-save file-exists-p (error) #186=#:ert-form-evaluation-aborted-1244 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#193=#:fn-1241 #194=#:args-1242 #195=#:value-1243 -explainer- #196=#:form-description-1245 (should-not (file-exists-p (persist--file-location sym))) :form #186# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] 20 (error) #187=#:ert-form-evaluation-aborted-1249 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#197=#:fn-1246 #198=#:args-1247 #199=#:value-1248 -explainer- #200=#:form-description-1250 (should (file-exists-p (persist--file-location sym))) :form #187# :value ert--get-explainer file-exists-p :explanation apply ert--signal-should-execution] 6] string-match-p (error) #188="20" generate-new-buffer #40# #[nil "\301!\205 \302!\207" [#202=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents buffer-string #189=#:ert-form-evaluation-aborted-1254 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#201=#:fn-1251 #203=#:args-1252 #204=#:value-1253 -explainer- #205=#:form-description-1255 (should (string-match-p #188# (with-temp-buffer (insert-file-contents (persist--file-location sym)) (buffer-string)))) :form #189# :value ert--get-explainer string-match-p :explanation apply ert--signal-should-execution] 6] (error) fred #191=#:ert-form-evaluation-aborted-1259 #[nil "\207" [#190=#:form-description-1260] 1] (error) #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#206=#:fn-1256 #207=#:args-1257 #208=#:value-1258 -explainer- #190# (should-error (persist-save 'fred)) :form #191# :value ert--get-explainer persist-save :explanation apply ert--signal-should-execution] 6] ert--should-error-handle-error error append :fail-reason "did not signal an error" #192# #193# #194# #195# #196# #197# #198# #199# #200# #201# #202# #203# #204# #205# #206# #207# #208# #190# #:form-description-fn-1262 #:errorp1261 -condition-] 6] test-persist-reset "Symbol should be reset to a copy of the default." #[nil "\306 \307\216\310\311\312\305\313\305!\203\311\202\314#\210\315\305\311#\210\316\31711\320 \321\305!)D0\202='\322'@'A)D(\323)\311*\324\216\325 (\"\211))\203X\326*!\210))+\210\316+\3271n\320 )D0\202{'\322+'@'A)D,\330-\311.\331\216\325+,\"\211-)\203\227\326.!\210)-+\210\316/\3321\257\320\321\305!)D0\202\274'\322/'@'A)D0\3331\3112\334\216\325/0\"\2111)\203\330\3262!\210)1+\210\335\305!\210\3163\3361\364\320 \321\305!)D0\202'\3223'@'A)D4\3375\3116\340\216\32534\"\2115)\203\3266!\210)5+\210\3167\34113\320 )D0\202@'\3227'@'A)D8\3429\311:\343\216\32578\"\2119)\203\\\326:!\210)9+\210\316;\3441t\320\321\305!)D0\202\201'\322;'@'A)D<\345=\311>\346\216\325;<\"\211=)\203\235\326>!\210)=.\207" [initial-value persist--symbols persist--directory-location #209=#:fn-1263 signal-hook-function persist--test-reset-variable make-hash-table #[nil "\300\301\302\"\207" [delete-directory #30# t] 3] #31# nil defvar-1 boundp "docstring" persist--defvar-1 eq (error) ert--should-signal-hook persist-default signal #210=#:ert-form-evaluation-aborted-1266 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#209# #216=#:args-1264 #217=#:value-1265 -explainer- #218=#:form-description-1267 (should-not (eq persist--test-reset-variable (persist-default 'persist--test-reset-variable))) :form #210# :value ert--get-explainer eq :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #211=#:ert-form-evaluation-aborted-1271 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#219=#:fn-1268 #220=#:args-1269 #221=#:value-1270 -explainer- #222=#:form-description-1272 (should-not (eq persist--test-reset-variable initial-value)) :form #211# :value ert--get-explainer eq :explanation apply ert--signal-should-execution] 6] (error) #212=#:ert-form-evaluation-aborted-1276 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#223=#:fn-1273 #224=#:args-1274 #225=#:value-1275 -explainer- #226=#:form-description-1277 (should-not (eq initial-value (persist-default 'persist--test-reset-variable))) :form #212# :value ert--get-explainer eq :explanation apply ert--signal-should-execution] 6] persist-reset (error) #213=#:ert-form-evaluation-aborted-1281 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#227=#:fn-1278 #228=#:args-1279 #229=#:value-1280 -explainer- #230=#:form-description-1282 (should-not (eq persist--test-reset-variable (persist-default 'persist--test-reset-variable))) :form #213# :value ert--get-explainer eq :explanation apply ert--signal-should-execution] 6] (error) #214=#:ert-form-evaluation-aborted-1286 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#231=#:fn-1283 #232=#:args-1284 #233=#:value-1285 -explainer- #234=#:form-description-1287 (should-not (eq persist--test-reset-variable initial-value)) :form #214# :value ert--get-explainer eq :explanation apply ert--signal-should-execution] 6] (error) #215=#:ert-form-evaluation-aborted-1291 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312!\211\205(\313\314 \"D)\244\315\f!\207" [#235=#:fn-1288 #236=#:args-1289 #237=#:value-1290 -explainer- #238=#:form-description-1292 (should-not (eq initial-value (persist-default 'persist--test-reset-variable))) :form #215# :value ert--get-explainer eq :explanation apply ert--signal-should-execution] 6] err #216# #217# #218# #219# #220# #221# #222# #223# #224# #225# #226# #227# #228# #229# #230# #231# #232# #233# #234# #235# #236# #237# #238#] 4]] 11)