Debugger entered--Lisp error: (quit) apply(debug (error (quit))) ert--run-test-debugger([cl-struct-ert--test-execution-info [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 (quote ert-form-evaluation-aborted-2370))) (let (form-description-2371) (if (condition-case nil ... ...) nil (ert-skip form-description-2371))) value-2369)) (tramp--test-utf8)) nil :passed nil] [cl-struct-ert-test-quit nil nil (quit) ((t tramp-wait-for-regexp # nil "\\(^\\|\\)[^#$\n]*///96b0d12bb9e87819b46cf46bb017e8fe#\\$ ?$") (t tramp-wait-for-output #) (t tramp-send-command ["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "(test -e /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت || test -h /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت) && /bin/ls -ildn -w /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت") (t tramp-do-file-attributes-with-ls ["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) (t tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t apply tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t apply tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-compat-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) (t tramp-sh-handle-write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t apply tramp-sh-handle-write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) (t tramp-sh-file-name-handler write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t apply tramp-sh-file-name-handler write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) (t tramp-file-name-handler write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (nil let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name (concat elt "foo") tmp-name1))) (write-region elt nil file1) (let ((fn-2192 (function file-exists-p)) (args-2193 (list file1))) (let ((value-2194 ...)) (let (form-description-2196) (if ... nil ...)) value-2194)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (copy-file file1 tmp-name2) (let ((fn-2202 (function file-exists-p)) (args-2203 (list file2))) (let ((value-2204 ...)) (let (form-description-2206) (if ... nil ...)) value-2204)) (delete-file file1) (let ((fn-2207 (function file-exists-p)) (args-2208 (list file1))) (let ((value-2209 ...)) (let (form-description-2211) (if ... nil ...)) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 (function file-exists-p)) (args-2213 (list file1))) (let ((value-2214 ...)) (let (form-description-2216) (if ... nil ...)) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let (... ...) (let ... ... value-2219)) (let (... ...) (let ... ... value-2224)) (let (... ...) (let ... ... value-2229)) (let (...) (save-current-buffer ... ...)) (delete-file file3)) (file-error (let (... ...) (let ... ... value-2239))))) (nil while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name ... tmp-name1))) (write-region elt nil file1) (let ((fn-2192 ...) (args-2193 ...)) (let (...) (let ... ...) value-2194)) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (copy-file file1 tmp-name2) (let ((fn-2202 ...) (args-2203 ...)) (let (...) (let ... ...) value-2204)) (delete-file file1) (let ((fn-2207 ...) (args-2208 ...)) (let (...) (let ... ...) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 ...) (args-2213 ...)) (let (...) (let ... ...) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let ... ...) (let ... ...) (let ... ...) (let ... ...) (delete-file file3)) (file-error (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))) (nil let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 ...) (file2 ...) (file3 ...)) (write-region elt nil file1) (let (... ...) (let ... ... value-2194)) (let (...) (save-current-buffer ... ...)) (copy-file file1 tmp-name2) (let (... ...) (let ... ... value-2204)) (delete-file file1) (let (... ...) (let ... ... value-2209)) (copy-file file2 tmp-name1) (let (... ...) (let ... ... value-2214)) (condition-case err (progn ... ... ... ... ... ...) (file-error ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (nil progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* (... ... ...) (write-region elt nil file1) (let ... ...) (let ... ...) (copy-file file1 tmp-name2) (let ... ...) (delete-file file1) (let ... ...) (copy-file file2 tmp-name1) (let ... ...) (condition-case err ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2242 (function equal)) (args-2243 (list ... ...))) (let ((value-2244 ...)) (let (form-description-2246) (if ... nil ...)) value-2244)) (let ((fn-2247 (function equal)) (args-2248 (list ... ...))) (let ((value-2249 ...)) (let (form-description-2251) (if ... nil ...)) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let (... ...) (condition-case nil ... ...) (let ... ...) (condition-case nil ... ...) (let ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2262 (function equal)) (args-2263 (list ... ...))) (let ((value-2264 ...)) (let (form-description-2266) (if ... nil ...)) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* (... ... ... ...) (make-directory file1 ...) (let ... ...) (write-region elt nil file2) (let ... ...) (let ... ...) (let ... ...) (condition-case err ... ...) (delete-file file2) (let ... ...) (delete-directory file1) (let ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (nil unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let* ... ... ... ... ... ... ... ... ... ... ...) (setq --dolist-tail-- ...))) (let ((fn-2242 ...) (args-2243 ...)) (let (...) (let ... ...) value-2244)) (let ((fn-2247 ...) (args-2248 ...)) (let (...) (let ... ...) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let ... ... ... ... ...) (setq --dolist-tail-- ...))) (let ((fn-2262 ...) (args-2263 ...)) (let (...) (let ... ...) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let* ... ... ... ... ... ... ... ... ... ... ... ...) (setq --dolist-tail-- ...)))) (condition-case nil (progn (delete-directory tmp-name1 (quote recursive))) (error nil)) (condition-case nil (progn (delete-directory tmp-name2 (quote recursive))) (error nil))) (nil let* ((tramp-test-temporary-file-directory (file-truename tramp-test-temporary-file-directory)) (tmp-name1 (tramp--test-make-temp-name)) (tmp-name2 (tramp--test-make-temp-name (quote local))) (files (delq nil files))) (unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let (... elt) (while --dolist-tail-- ... ... ...)) (let (... ...) (let ... ... value-2244)) (let (... ...) (let ... ... value-2249)) (let (... elt) (while --dolist-tail-- ... ... ...)) (let (... ...) (let ... ... value-2264)) (let (... elt) (while --dolist-tail-- ... ... ...))) (condition-case nil (progn (delete-directory tmp-name1 ...)) (error nil)) (condition-case nil (progn (delete-directory tmp-name2 ...)) (error nil)))) (t tramp--test-check-files "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (nil let ((coding-system-for-read (quote utf-8)) (coding-system-for-write (quote utf-8)) (file-name-coding-system (quote utf-8))) (tramp--test-check-files (if (tramp--test-hpux-p) nil "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت"))) (t tramp--test-utf8) (t (lambda nil (let ((fn-2367 ...) (args-2368 ...)) (let (...) (let ... ...) value-2369)) (tramp--test-utf8))) (t ert--run-test-internal #0) (t ert-run-test [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let (... ...) (let ... ... value-2369)) (tramp--test-utf8)) nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats tramp-test32-utf8 [[cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil ... ...) nil :passed nil]] #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data (tramp-test32-utf8 0)) [nil] [(22132 25487 789650 0)] [nil] 0 0 0 0 0 (22132 25487 758492 0) nil nil [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ... ...) (tramp--test-utf8)) nil :passed nil] 1450468239.889621] [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let (... ...) (let ... ... value-2369)) (tramp--test-utf8)) nil :passed nil] #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil (#) (#4) message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t ert-run-tests tramp-test32-utf8 #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil (#) (#4) message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t ert tramp-test32-utf8 nil) (t funcall-interactively ert tramp-test32-utf8 nil) (t call-interactively ert record nil) (t command-execute ert record) (t execute-extended-command nil "ert" nil) (t funcall-interactively execute-extended-command nil "ert" nil) (t call-interactively execute-extended-command nil nil) (t command-execute execute-extended-command)) nil] #[0 "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t] (error (quit))) #[128 "\301\300\"\207" [[cl-struct-ert--test-execution-info [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 ...) (args-2368 ...)) (let (...) (let ... ...) value-2369)) (tramp--test-utf8)) nil :passed nil] [cl-struct-ert-test-quit nil nil (quit) ((t tramp-wait-for-regexp # nil "\\(^\\|\\)[^#$\n]*///96b0d12bb9e87819b46cf46bb017e8fe#\\$ ?$") (t tramp-wait-for-output #) (t tramp-send-command ["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "(test -e /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت || test -h /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت) && /bin/ls -ildn -w /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت") (t tramp-do-file-attributes-with-ls ["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) (t tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t apply tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t apply tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-compat-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) (t tramp-sh-handle-write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t apply tramp-sh-handle-write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) (t tramp-sh-file-name-handler write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t apply tramp-sh-file-name-handler write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) (t tramp-file-name-handler write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (nil let* ((file1 ...) (file2 ...) (file3 ...)) (write-region elt nil file1) (let (... ...) (let ... ... value-2194)) (let (...) (save-current-buffer ... ...)) (copy-file file1 tmp-name2) (let (... ...) (let ... ... value-2204)) (delete-file file1) (let (... ...) (let ... ... value-2209)) (copy-file file2 tmp-name1) (let (... ...) (let ... ... value-2214)) (condition-case err (progn ... ... ... ... ... ...) (file-error ...))) (nil while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* (... ... ...) (write-region elt nil file1) (let ... ...) (let ... ...) (copy-file file1 tmp-name2) (let ... ...) (delete-file file1) (let ... ...) (copy-file file2 tmp-name1) (let ... ...) (condition-case err ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) (nil let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let* ... ... ... ... ... ... ... ... ... ... ...) (setq --dolist-tail-- ...))) (nil progn (make-directory tmp-name1) (make-directory tmp-name2) (let (... elt) (while --dolist-tail-- ... ... ...)) (let (... ...) (let ... ... value-2244)) (let (... ...) (let ... ... value-2249)) (let (... elt) (while --dolist-tail-- ... ... ...)) (let (... ...) (let ... ... value-2264)) (let (... elt) (while --dolist-tail-- ... ... ...))) (nil unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let ... ...) (let ... ...) (let ... ...) (let ... ...) (let ... ...) (let ... ...)) (condition-case nil (progn ...) (error nil)) (condition-case nil (progn ...) (error nil))) (nil let* ((tramp-test-temporary-file-directory ...) (tmp-name1 ...) (tmp-name2 ...) (files ...)) (unwind-protect (progn ... ... ... ... ... ... ... ...) (condition-case nil ... ...) (condition-case nil ... ...))) (t tramp--test-check-files "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (nil let ((coding-system-for-read ...) (coding-system-for-write ...) (file-name-coding-system ...)) (tramp--test-check-files (if ... nil "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت"))) (t tramp--test-utf8) (t (lambda nil (let ... ...) (tramp--test-utf8))) (t ert--run-test-internal #2) (t ert-run-test [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil ... ...) nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats tramp-test32-utf8 [[cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." ... nil :passed nil]] #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data (tramp-test32-utf8 0)) [nil] [...] [nil] 0 0 0 0 0 (22132 25487 758492 0) nil nil [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." ... nil :passed nil] 1450468239.889621] [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil ... ...) nil :passed nil] #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil ... ... message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" ... ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t ert-run-tests tramp-test32-utf8 #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil ... ... message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" ... ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t ert tramp-test32-utf8 nil) (t funcall-interactively ert tramp-test32-utf8 nil) (t call-interactively ert record nil) (t command-execute ert record) (t execute-extended-command nil "ert" nil) (t funcall-interactively execute-extended-command nil "ert" nil) (t call-interactively execute-extended-command nil nil) (t command-execute execute-extended-command)) nil] #[0 "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t] ert--run-test-debugger] 4 "\n\n(fn &rest ARGS)"](error (quit)) accept-process-output(# 1 nil t) tramp-accept-process-output(# 1) tramp-wait-for-regexp(# nil "\\(^\\|\\)[^#$\n]*///96b0d12bb9e87819b46cf46bb017e8fe#\\$ ?$") tramp-wait-for-output(#) tramp-send-command(["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "(test -e /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت || test -h /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت) && /bin/ls -ildn -w /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت") tramp-do-file-attributes-with-ls(["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) tramp-sh-handle-file-attributes("/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") apply(tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") tramp-sh-file-name-handler(file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") apply(tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") tramp-file-name-handler(file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") file-attributes("/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") tramp-compat-file-attributes("/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) tramp-sh-handle-write-region("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) apply(tramp-sh-handle-write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) tramp-sh-file-name-handler(write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) apply(tramp-sh-file-name-handler write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) tramp-file-name-handler(write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) write-region("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name (concat elt "foo") tmp-name1))) (write-region elt nil file1) (let ((fn-2192 (function file-exists-p)) (args-2193 (list file1))) (let ((value-2194 (quote ert-form-evaluation-aborted-2195))) (let (form-description-2196) (if (unwind-protect (setq value-2194 (apply fn-2192 args-2193)) (setq form-description-2196 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-2196)) nil (ert-fail form-description-2196))) value-2194)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file1) (let ((fn-2197 ...) (args-2198 ...)) (let (...) (let ... ...) value-2199))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (copy-file file1 tmp-name2) (let ((fn-2202 (function file-exists-p)) (args-2203 (list file2))) (let ((value-2204 (quote ert-form-evaluation-aborted-2205))) (let (form-description-2206) (if (unwind-protect (setq value-2204 (apply fn-2202 args-2203)) (setq form-description-2206 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-2206)) nil (ert-fail form-description-2206))) value-2204)) (delete-file file1) (let ((fn-2207 (function file-exists-p)) (args-2208 (list file1))) (let ((value-2209 (quote ert-form-evaluation-aborted-2210))) (let (form-description-2211) (if (not (unwind-protect (setq value-2209 ...) (setq form-description-2211 ...) (ert--signal-should-execution form-description-2211))) nil (ert-fail form-description-2211))) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 (function file-exists-p)) (args-2213 (list file1))) (let ((value-2214 (quote ert-form-evaluation-aborted-2215))) (let (form-description-2216) (if (unwind-protect (setq value-2214 (apply fn-2212 args-2213)) (setq form-description-2216 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-2216)) nil (ert-fail form-description-2216))) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let ((fn-2217 (function file-symlink-p)) (args-2218 (list file3))) (let ((value-2219 (quote ert-form-evaluation-aborted-2220))) (let (form-description-2221) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2221))) value-2219)) (let ((fn-2222 (function string-equal)) (args-2223 (list (expand-file-name file1) (file-truename file3)))) (let ((value-2224 (quote ert-form-evaluation-aborted-2225))) (let (form-description-2226) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2226))) value-2224)) (let ((fn-2227 (function string-equal)) (args-2228 (list (car ...) (file-remote-p ... ...)))) (let ((value-2229 (quote ert-form-evaluation-aborted-2230))) (let (form-description-2231) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2231))) value-2229)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file3) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (delete-file file3)) (file-error (let ((fn-2237 (function string-equal)) (args-2238 (list (error-message-string err) "make-symbolic-link not supported"))) (let ((value-2239 (quote ert-form-evaluation-aborted-2240))) (let (form-description-2241) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2241))) value-2239))))) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name (concat elt "foo") tmp-name1))) (write-region elt nil file1) (let ((fn-2192 (function file-exists-p)) (args-2193 (list file1))) (let ((value-2194 (quote ert-form-evaluation-aborted-2195))) (let (form-description-2196) (if (unwind-protect (setq value-2194 ...) (setq form-description-2196 ...) (ert--signal-should-execution form-description-2196)) nil (ert-fail form-description-2196))) value-2194)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file1) (let (... ...) (let ... ... value-2199))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (copy-file file1 tmp-name2) (let ((fn-2202 (function file-exists-p)) (args-2203 (list file2))) (let ((value-2204 (quote ert-form-evaluation-aborted-2205))) (let (form-description-2206) (if (unwind-protect (setq value-2204 ...) (setq form-description-2206 ...) (ert--signal-should-execution form-description-2206)) nil (ert-fail form-description-2206))) value-2204)) (delete-file file1) (let ((fn-2207 (function file-exists-p)) (args-2208 (list file1))) (let ((value-2209 (quote ert-form-evaluation-aborted-2210))) (let (form-description-2211) (if (not (unwind-protect ... ... ...)) nil (ert-fail form-description-2211))) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 (function file-exists-p)) (args-2213 (list file1))) (let ((value-2214 (quote ert-form-evaluation-aborted-2215))) (let (form-description-2216) (if (unwind-protect (setq value-2214 ...) (setq form-description-2216 ...) (ert--signal-should-execution form-description-2216)) nil (ert-fail form-description-2216))) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let ((fn-2217 (function file-symlink-p)) (args-2218 (list file3))) (let ((value-2219 ...)) (let (form-description-2221) (if ... nil ...)) value-2219)) (let ((fn-2222 (function string-equal)) (args-2223 (list ... ...))) (let ((value-2224 ...)) (let (form-description-2226) (if ... nil ...)) value-2224)) (let ((fn-2227 (function string-equal)) (args-2228 (list ... ...))) (let ((value-2229 ...)) (let (form-description-2231) (if ... nil ...)) value-2229)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (delete-file file3)) (file-error (let ((fn-2237 (function string-equal)) (args-2238 (list ... "make-symbolic-link not supported"))) (let ((value-2239 ...)) (let (form-description-2241) (if ... nil ...)) value-2239))))) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name (concat elt "foo") tmp-name1))) (write-region elt nil file1) (let ((fn-2192 (function file-exists-p)) (args-2193 (list file1))) (let ((value-2194 (quote ert-form-evaluation-aborted-2195))) (let (form-description-2196) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2196))) value-2194)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file1) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (copy-file file1 tmp-name2) (let ((fn-2202 (function file-exists-p)) (args-2203 (list file2))) (let ((value-2204 (quote ert-form-evaluation-aborted-2205))) (let (form-description-2206) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2206))) value-2204)) (delete-file file1) (let ((fn-2207 (function file-exists-p)) (args-2208 (list file1))) (let ((value-2209 (quote ert-form-evaluation-aborted-2210))) (let (form-description-2211) (if (not ...) nil (ert-fail form-description-2211))) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 (function file-exists-p)) (args-2213 (list file1))) (let ((value-2214 (quote ert-form-evaluation-aborted-2215))) (let (form-description-2216) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2216))) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let ((fn-2217 ...) (args-2218 ...)) (let (...) (let ... ...) value-2219)) (let ((fn-2222 ...) (args-2223 ...)) (let (...) (let ... ...) value-2224)) (let ((fn-2227 ...) (args-2228 ...)) (let (...) (let ... ...) value-2229)) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (delete-file file3)) (file-error (let ((fn-2237 ...) (args-2238 ...)) (let (...) (let ... ...) value-2239))))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name (concat elt "foo") tmp-name1))) (write-region elt nil file1) (let ((fn-2192 (function file-exists-p)) (args-2193 (list file1))) (let ((value-2194 ...)) (let (form-description-2196) (if ... nil ...)) value-2194)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (copy-file file1 tmp-name2) (let ((fn-2202 (function file-exists-p)) (args-2203 (list file2))) (let ((value-2204 ...)) (let (form-description-2206) (if ... nil ...)) value-2204)) (delete-file file1) (let ((fn-2207 (function file-exists-p)) (args-2208 (list file1))) (let ((value-2209 ...)) (let (form-description-2211) (if ... nil ...)) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 (function file-exists-p)) (args-2213 (list file1))) (let ((value-2214 ...)) (let (form-description-2216) (if ... nil ...)) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let (... ...) (let ... ... value-2219)) (let (... ...) (let ... ... value-2224)) (let (... ...) (let ... ... value-2229)) (let (...) (save-current-buffer ... ...)) (delete-file file3)) (file-error (let (... ...) (let ... ... value-2239))))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2242 (function equal)) (args-2243 (list (directory-files tmp-name1 nil directory-files-no-dot-files-regexp) (sort (copy-sequence files) (quote string-lessp))))) (let ((value-2244 (quote ert-form-evaluation-aborted-2245))) (let (form-description-2246) (if (unwind-protect (setq value-2244 (apply fn-2242 args-2243)) (setq form-description-2246 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-2246)) nil (ert-fail form-description-2246))) value-2244)) (let ((fn-2247 (function equal)) (args-2248 (list (directory-files tmp-name2 nil directory-files-no-dot-files-regexp) (sort (copy-sequence files) (quote string-lessp))))) (let ((value-2249 (quote ert-form-evaluation-aborted-2250))) (let (form-description-2251) (if (unwind-protect (setq value-2249 (apply fn-2247 args-2248)) (setq form-description-2251 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-2251)) nil (ert-fail form-description-2251))) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((file1 (substitute-in-file-name (expand-file-name elt tmp-name1))) (file2 (substitute-in-file-name (expand-file-name elt tmp-name2)))) (condition-case nil (progn (write-region elt nil file1)) (error nil)) (let ((fn-2252 (function file-exists-p)) (args-2253 (list file1))) (let ((value-2254 ...)) (let (form-description-2256) (if ... nil ...)) value-2254)) (condition-case nil (progn (write-region elt nil file2 nil (quote nomessage))) (error nil)) (let ((fn-2257 (function file-exists-p)) (args-2258 (list file2))) (let ((value-2259 ...)) (let (form-description-2261) (if ... nil ...)) value-2259))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2262 (function equal)) (args-2263 (list (directory-files tmp-name1 nil directory-files-no-dot-files-regexp) (directory-files tmp-name2 nil directory-files-no-dot-files-regexp)))) (let ((value-2264 (quote ert-form-evaluation-aborted-2265))) (let (form-description-2266) (if (unwind-protect (setq value-2264 (apply fn-2262 args-2263)) (setq form-description-2266 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-2266)) nil (ert-fail form-description-2266))) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((elt1 (concat elt "foo")) (file1 (expand-file-name (concat "foo/" elt) tmp-name1)) (file2 (expand-file-name elt file1)) (file3 (expand-file-name elt1 file1))) (make-directory file1 (quote parents)) (let ((fn-2267 (function file-directory-p)) (args-2268 (list file1))) (let ((value-2269 ...)) (let (form-description-2271) (if ... nil ...)) value-2269)) (write-region elt nil file2) (let ((fn-2272 (function file-exists-p)) (args-2273 (list file2))) (let ((value-2274 ...)) (let (form-description-2276) (if ... nil ...)) value-2274)) (let ((fn-2277 (function equal)) (args-2278 (list ... ...))) (let ((value-2279 ...)) (let (form-description-2281) (if ... nil ...)) value-2279)) (let ((fn-2282 (function equal)) (args-2283 (list ... elt))) (let ((value-2284 ...)) (let (form-description-2286) (if ... nil ...)) value-2284)) (condition-case err (progn (make-symbolic-link file2 file3) (let (... ...) (let ... ... value-2289)) (let (... ...) (let ... ... value-2294)) (let (... ...) (let ... ... value-2299)) (delete-file file3) (let (... ...) (let ... ... value-2304))) (file-error (let (... ...) (let ... ... value-2309)))) (delete-file file2) (let ((fn-2312 (function file-exists-p)) (args-2313 (list file2))) (let ((value-2314 ...)) (let (form-description-2316) (if ... nil ...)) value-2314)) (delete-directory file1) (let ((fn-2317 (function file-exists-p)) (args-2318 (list file1))) (let ((value-2319 ...)) (let (form-description-2321) (if ... nil ...)) value-2319))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name ... tmp-name1))) (write-region elt nil file1) (let ((fn-2192 ...) (args-2193 ...)) (let (...) (let ... ...) value-2194)) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (copy-file file1 tmp-name2) (let ((fn-2202 ...) (args-2203 ...)) (let (...) (let ... ...) value-2204)) (delete-file file1) (let ((fn-2207 ...) (args-2208 ...)) (let (...) (let ... ...) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 ...) (args-2213 ...)) (let (...) (let ... ...) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let ... ...) (let ... ...) (let ... ...) (let ... ...) (delete-file file3)) (file-error (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2242 (function equal)) (args-2243 (list (directory-files tmp-name1 nil directory-files-no-dot-files-regexp) (sort (copy-sequence files) (quote string-lessp))))) (let ((value-2244 (quote ert-form-evaluation-aborted-2245))) (let (form-description-2246) (if (unwind-protect (setq value-2244 ...) (setq form-description-2246 ...) (ert--signal-should-execution form-description-2246)) nil (ert-fail form-description-2246))) value-2244)) (let ((fn-2247 (function equal)) (args-2248 (list (directory-files tmp-name2 nil directory-files-no-dot-files-regexp) (sort (copy-sequence files) (quote string-lessp))))) (let ((value-2249 (quote ert-form-evaluation-aborted-2250))) (let (form-description-2251) (if (unwind-protect (setq value-2249 ...) (setq form-description-2251 ...) (ert--signal-should-execution form-description-2251)) nil (ert-fail form-description-2251))) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((file1 (substitute-in-file-name ...)) (file2 (substitute-in-file-name ...))) (condition-case nil (progn (write-region elt nil file1)) (error nil)) (let ((fn-2252 ...) (args-2253 ...)) (let (...) (let ... ...) value-2254)) (condition-case nil (progn (write-region elt nil file2 nil ...)) (error nil)) (let ((fn-2257 ...) (args-2258 ...)) (let (...) (let ... ...) value-2259))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2262 (function equal)) (args-2263 (list (directory-files tmp-name1 nil directory-files-no-dot-files-regexp) (directory-files tmp-name2 nil directory-files-no-dot-files-regexp)))) (let ((value-2264 (quote ert-form-evaluation-aborted-2265))) (let (form-description-2266) (if (unwind-protect (setq value-2264 ...) (setq form-description-2266 ...) (ert--signal-should-execution form-description-2266)) nil (ert-fail form-description-2266))) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((elt1 (concat elt "foo")) (file1 (expand-file-name ... tmp-name1)) (file2 (expand-file-name elt file1)) (file3 (expand-file-name elt1 file1))) (make-directory file1 (quote parents)) (let ((fn-2267 ...) (args-2268 ...)) (let (...) (let ... ...) value-2269)) (write-region elt nil file2) (let ((fn-2272 ...) (args-2273 ...)) (let (...) (let ... ...) value-2274)) (let ((fn-2277 ...) (args-2278 ...)) (let (...) (let ... ...) value-2279)) (let ((fn-2282 ...) (args-2283 ...)) (let (...) (let ... ...) value-2284)) (condition-case err (progn (make-symbolic-link file2 file3) (let ... ...) (let ... ...) (let ... ...) (delete-file file3) (let ... ...)) (file-error (let ... ...))) (delete-file file2) (let ((fn-2312 ...) (args-2313 ...)) (let (...) (let ... ...) value-2314)) (delete-directory file1) (let ((fn-2317 ...) (args-2318 ...)) (let (...) (let ... ...) value-2319))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (condition-case nil (progn (delete-directory tmp-name1 (quote recursive))) (error nil)) (condition-case nil (progn (delete-directory tmp-name2 (quote recursive))) (error nil))) (let* ((tramp-test-temporary-file-directory (file-truename tramp-test-temporary-file-directory)) (tmp-name1 (tramp--test-make-temp-name)) (tmp-name2 (tramp--test-make-temp-name (quote local))) (files (delq nil files))) (unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 ...) (file2 ...) (file3 ...)) (write-region elt nil file1) (let (... ...) (let ... ... value-2194)) (let (...) (save-current-buffer ... ...)) (copy-file file1 tmp-name2) (let (... ...) (let ... ... value-2204)) (delete-file file1) (let (... ...) (let ... ... value-2209)) (copy-file file2 tmp-name1) (let (... ...) (let ... ... value-2214)) (condition-case err (progn ... ... ... ... ... ...) (file-error ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2242 (function equal)) (args-2243 (list (directory-files tmp-name1 nil directory-files-no-dot-files-regexp) (sort ... ...)))) (let ((value-2244 (quote ert-form-evaluation-aborted-2245))) (let (form-description-2246) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2246))) value-2244)) (let ((fn-2247 (function equal)) (args-2248 (list (directory-files tmp-name2 nil directory-files-no-dot-files-regexp) (sort ... ...)))) (let ((value-2249 (quote ert-form-evaluation-aborted-2250))) (let (form-description-2251) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2251))) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((file1 ...) (file2 ...)) (condition-case nil (progn ...) (error nil)) (let (... ...) (let ... ... value-2254)) (condition-case nil (progn ...) (error nil)) (let (... ...) (let ... ... value-2259))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2262 (function equal)) (args-2263 (list (directory-files tmp-name1 nil directory-files-no-dot-files-regexp) (directory-files tmp-name2 nil directory-files-no-dot-files-regexp)))) (let ((value-2264 (quote ert-form-evaluation-aborted-2265))) (let (form-description-2266) (if (unwind-protect ... ... ...) nil (ert-fail form-description-2266))) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((elt1 ...) (file1 ...) (file2 ...) (file3 ...)) (make-directory file1 (quote parents)) (let (... ...) (let ... ... value-2269)) (write-region elt nil file2) (let (... ...) (let ... ... value-2274)) (let (... ...) (let ... ... value-2279)) (let (... ...) (let ... ... value-2284)) (condition-case err (progn ... ... ... ... ... ...) (file-error ...)) (delete-file file2) (let (... ...) (let ... ... value-2314)) (delete-directory file1) (let (... ...) (let ... ... value-2319))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (condition-case nil (progn (delete-directory tmp-name1 (quote recursive))) (error nil)) (condition-case nil (progn (delete-directory tmp-name2 (quote recursive))) (error nil)))) tramp--test-check-files("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (let ((coding-system-for-read (quote utf-8)) (coding-system-for-write (quote utf-8)) (file-name-coding-system (quote utf-8))) (tramp--test-check-files (if (tramp--test-hpux-p) nil "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت"))) tramp--test-utf8() (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 (quote ert-form-evaluation-aborted-2370))) (let (form-description-2371) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-2371))) value-2369)) (tramp--test-utf8))() ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 (quote ert-form-evaluation-aborted-2370))) (let (form-description-2371) (if (condition-case nil ... ...) nil (ert-skip form-description-2371))) value-2369)) (tramp--test-utf8)) nil :passed nil] [cl-struct-ert-test-quit nil nil (quit) ((t tramp-wait-for-regexp # nil "\\(^\\|\\)[^#$\n]*///96b0d12bb9e87819b46cf46bb017e8fe#\\$ ?$") (t tramp-wait-for-output #) (t tramp-send-command ["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "(test -e /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت || test -h /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت) && /bin/ls -ildn -w /private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU\\+\\+\\+TI/-Tmp-/tramp-test22198dkQ/\\أ\\ص\\ب\\ح\\ \\ب\\و\\س\\ع\\ك\\ \\ا\\ل\\آ\\ن\\ \\ت\\ن\\ز\\ي\\ل\\ \\ن\\س\\خ\\ة\\ \\ك\\ا\\م\\ل\\ة\\ \\م\\ن\\ \\م\\و\\س\\و\\ع\\ة\\ \\و\\ي\\ك\\ي\\ب\\ي\\د\\ي\\ا\\ \\ا\\ل\\ع\\ر\\ب\\ي\\ة\\ \\ل\\ت\\ص\\ف\\ح\\ه\\ا\\ \\ب\\ل\\ا\\ \\ا\\ت\\ص\\ا\\ل\\ \\ب\\ا\\ل\\إ\\ن\\ت\\ر\\ن\\ت") (t tramp-do-file-attributes-with-ls ["mock" nil "anders-lindgrens-macbook.local" "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil] "/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) (t tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t apply tramp-sh-handle-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t apply tramp-sh-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-file-name-handler file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (t tramp-compat-file-attributes "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" integer) (t tramp-sh-handle-write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t apply tramp-sh-handle-write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) (t tramp-sh-file-name-handler write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t apply tramp-sh-file-name-handler write-region ("أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil)) (t tramp-file-name-handler write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil nil) (t write-region "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" nil "/mock:anders-lindgrens-macbook.local:/private/var/folders/qq/qqGPPGoBHOGgJs3oBoKTHU+++TI/-Tmp-/tramp-test22198dkQ/أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (nil let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name (concat elt "foo") tmp-name1))) (write-region elt nil file1) (let ((fn-2192 (function file-exists-p)) (args-2193 (list file1))) (let ((value-2194 ...)) (let (form-description-2196) (if ... nil ...)) value-2194)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (copy-file file1 tmp-name2) (let ((fn-2202 (function file-exists-p)) (args-2203 (list file2))) (let ((value-2204 ...)) (let (form-description-2206) (if ... nil ...)) value-2204)) (delete-file file1) (let ((fn-2207 (function file-exists-p)) (args-2208 (list file1))) (let ((value-2209 ...)) (let (form-description-2211) (if ... nil ...)) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 (function file-exists-p)) (args-2213 (list file1))) (let ((value-2214 ...)) (let (form-description-2216) (if ... nil ...)) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let (... ...) (let ... ... value-2219)) (let (... ...) (let ... ... value-2224)) (let (... ...) (let ... ... value-2229)) (let (...) (save-current-buffer ... ...)) (delete-file file3)) (file-error (let (... ...) (let ... ... value-2239))))) (nil while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 (expand-file-name elt tmp-name1)) (file2 (expand-file-name elt tmp-name2)) (file3 (expand-file-name ... tmp-name1))) (write-region elt nil file1) (let ((fn-2192 ...) (args-2193 ...)) (let (...) (let ... ...) value-2194)) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (copy-file file1 tmp-name2) (let ((fn-2202 ...) (args-2203 ...)) (let (...) (let ... ...) value-2204)) (delete-file file1) (let ((fn-2207 ...) (args-2208 ...)) (let (...) (let ... ...) value-2209)) (copy-file file2 tmp-name1) (let ((fn-2212 ...) (args-2213 ...)) (let (...) (let ... ...) value-2214)) (condition-case err (progn (make-symbolic-link file1 file3) (let ... ...) (let ... ...) (let ... ...) (let ... ...) (delete-file file3)) (file-error (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))) (nil let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* ((file1 ...) (file2 ...) (file3 ...)) (write-region elt nil file1) (let (... ...) (let ... ... value-2194)) (let (...) (save-current-buffer ... ...)) (copy-file file1 tmp-name2) (let (... ...) (let ... ... value-2204)) (delete-file file1) (let (... ...) (let ... ... value-2209)) (copy-file file2 tmp-name1) (let (... ...) (let ... ... value-2214)) (condition-case err (progn ... ... ... ... ... ...) (file-error ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (nil progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* (... ... ...) (write-region elt nil file1) (let ... ...) (let ... ...) (copy-file file1 tmp-name2) (let ... ...) (delete-file file1) (let ... ...) (copy-file file2 tmp-name1) (let ... ...) (condition-case err ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2242 (function equal)) (args-2243 (list ... ...))) (let ((value-2244 ...)) (let (form-description-2246) (if ... nil ...)) value-2244)) (let ((fn-2247 (function equal)) (args-2248 (list ... ...))) (let ((value-2249 ...)) (let (form-description-2251) (if ... nil ...)) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let (... ...) (condition-case nil ... ...) (let ... ...) (condition-case nil ... ...) (let ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((fn-2262 (function equal)) (args-2263 (list ... ...))) (let ((value-2264 ...)) (let (form-description-2266) (if ... nil ...)) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let* (... ... ... ...) (make-directory file1 ...) (let ... ...) (write-region elt nil file2) (let ... ...) (let ... ...) (let ... ...) (condition-case err ... ...) (delete-file file2) (let ... ...) (delete-directory file1) (let ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (nil unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let* ... ... ... ... ... ... ... ... ... ... ...) (setq --dolist-tail-- ...))) (let ((fn-2242 ...) (args-2243 ...)) (let (...) (let ... ...) value-2244)) (let ((fn-2247 ...) (args-2248 ...)) (let (...) (let ... ...) value-2249)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let ... ... ... ... ...) (setq --dolist-tail-- ...))) (let ((fn-2262 ...) (args-2263 ...)) (let (...) (let ... ...) value-2264)) (let ((--dolist-tail-- files) elt) (while --dolist-tail-- (setq elt ...) (let* ... ... ... ... ... ... ... ... ... ... ... ...) (setq --dolist-tail-- ...)))) (condition-case nil (progn (delete-directory tmp-name1 (quote recursive))) (error nil)) (condition-case nil (progn (delete-directory tmp-name2 (quote recursive))) (error nil))) (nil let* ((tramp-test-temporary-file-directory (file-truename tramp-test-temporary-file-directory)) (tmp-name1 (tramp--test-make-temp-name)) (tmp-name2 (tramp--test-make-temp-name (quote local))) (files (delq nil files))) (unwind-protect (progn (make-directory tmp-name1) (make-directory tmp-name2) (let (... elt) (while --dolist-tail-- ... ... ...)) (let (... ...) (let ... ... value-2244)) (let (... ...) (let ... ... value-2249)) (let (... elt) (while --dolist-tail-- ... ... ...)) (let (... ...) (let ... ... value-2264)) (let (... elt) (while --dolist-tail-- ... ... ...))) (condition-case nil (progn (delete-directory tmp-name1 ...)) (error nil)) (condition-case nil (progn (delete-directory tmp-name2 ...)) (error nil)))) (t tramp--test-check-files "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") (nil let ((coding-system-for-read (quote utf-8)) (coding-system-for-write (quote utf-8)) (file-name-coding-system (quote utf-8))) (tramp--test-check-files (if (tramp--test-hpux-p) nil "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت"))) (t tramp--test-utf8) (t (lambda nil (let ((fn-2367 ...) (args-2368 ...)) (let (...) (let ... ...) value-2369)) (tramp--test-utf8))) (t ert--run-test-internal #0) (t ert-run-test [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let (... ...) (let ... ... value-2369)) (tramp--test-utf8)) nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats tramp-test32-utf8 [[cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil ... ...) nil :passed nil]] #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data (tramp-test32-utf8 0)) [nil] [(22132 25487 789650 0)] [nil] 0 0 0 0 0 (22132 25487 758492 0) nil nil [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ... ...) (tramp--test-utf8)) nil :passed nil] 1450468239.889621] [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let (... ...) (let ... ... value-2369)) (tramp--test-utf8)) nil :passed nil] #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil (#) (#4) message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t ert-run-tests tramp-test32-utf8 #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil (#) (#4) message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t ert tramp-test32-utf8 nil) (t funcall-interactively ert tramp-test32-utf8 nil) (t call-interactively ert record nil) (t command-execute ert record) (t execute-extended-command nil "ert" nil) (t funcall-interactively execute-extended-command nil "ert" nil) (t call-interactively execute-extended-command nil nil) (t command-execute execute-extended-command)) nil] #[0 "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t]) ert-run-test([cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 (quote ert-form-evaluation-aborted-2370))) (let (form-description-2371) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-2371))) value-2369)) (tramp--test-utf8)) nil :passed nil]) ert-run-or-rerun-test([cl-struct-ert--stats tramp-test32-utf8 [[cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 ...)) (let (form-description-2371) (if ... nil ...)) value-2369)) (tramp--test-utf8)) nil :passed nil]] #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data (tramp-test32-utf8 0)) [nil] [(22132 25487 789650 0)] [nil] 0 0 0 0 0 (22132 25487 758492 0) nil nil [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 (quote ert-form-evaluation-aborted-2370))) (let (form-description-2371) (if (condition-case nil ... ...) nil (ert-skip form-description-2371))) value-2369)) (tramp--test-utf8)) nil :passed nil] 1450468239.889621] [cl-struct-ert-test tramp-test32-utf8 "Check UTF8 encoding in file names and file contents." (lambda nil (let ((fn-2367 (function tramp--test-enabled)) (args-2368 (list))) (let ((value-2369 (quote ert-form-evaluation-aborted-2370))) (let (form-description-2371) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-2371))) value-2369)) (tramp--test-utf8)) nil :passed nil] #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil (#) (#0) message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) ert-run-tests(tramp-test32-utf8 #[385 "\306\307\"\203)\211\211G\310U\203\211@\202\311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222\211\211G\317U\203A\211A\262\242\202H\311\312\313GD\"@\303\320\204T\321\202U\322\323!\324!\325!\211\326U\203j\321\202n\327\330\"\262\331!\211\326U\203~\321\202\202\327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372\211\211G\317U\203\252\211A\262\242\202\261\311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311\337\340!\210\211\317H\211\326H >\204\333\311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H >\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H >\204[\311\341\342D\"\210\211\211\317\351  \"I\266-\343\351  \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" [nil (#) (#0) message ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) ert(tramp-test32-utf8 nil) funcall-interactively(ert tramp-test32-utf8 nil) call-interactively(ert record nil) command-execute(ert record) execute-extended-command(nil "ert" nil) funcall-interactively(execute-extended-command nil "ert" nil) call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command)