;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\304\307\310\307\311\307&\"\210\303\312\305\306\312\313\314\307\311\307&\"\210\303\315\305\306\315\316\317\307\311\307&\"\210\320\321!\207" [require ert ebdb-i18n ert-set-test ebdb-i18n-parse-name record ert-test nil #[0 "\301\302\303\"\301\302\304\"\305C\3061\307\310!)\311D0\202%\312\240\210\211@AD\262\313C\314C\315\316\317\320\321$\322\"\323$\216\324\242\"\240)\204L\325\242!\210\266\305C\3261`\307\310!)\327D0\202k\312\240\210\211@AD\262\330C\314C\315\316\317\320\321$\331\"\323$\216\324\242\"\240)\204\222\325\242!\210\210\211\242\262\266\202\207" [signal-hook-function ebdb-parse ebdb-field-name-complex "Max von Sydow" "Brigitte Bardot" string= (error) ert--should-signal-hook ebdb-name-last #1="von Sydow" signal #2=#:ert-form-evaluation-aborted-6323 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (string= (ebdb-name-last max) #1#)) :form eql #2# :value string= ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #3="Bardot" #4=#:ert-form-evaluation-aborted-6328 [(should (string= (ebdb-name-last brigitte) #3#)) :form eql #4# :value string= ert-explainer :explanation apply ert--signal-should-execution]] 15] :passed ebdb-i18n-parse-unhandled-name "Parse a name for which there is no `ebdb-i18n-parse' method\n defined.\n\nThis should fall back to the regular `ebdb-parse' method." #[0 "\301\302C\3031\304\305\306\")C0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204E\322\242!\210\210\211\242\262\266\202\207" [signal-hook-function "عامر" eieio-object-p (error) ert--should-signal-hook ebdb-parse ebdb-field-name-complex signal #5=#:ert-form-evaluation-aborted-6333 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (eieio-object-p (ebdb-parse 'ebdb-field-name-complex arabic-name))) :form eql #5# :value eieio-object-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 14] ebdb-i18n-parse-unhandled-phone "Parse a phone number for which no `ebdb-i18n-parse' method is\ndefined." #[0 "\301\302C\3031\304\305\306\307\"\310\")\311D0\202\"\312\240\210\211@AD\262\313C\314C\315\316\317\320\321$\322\"\323$\216\324\242\"\240)\204I\325\242!\210\210\211\242\262\266\202\207" [signal-hook-function "+1 (206) 555-5555" equal (error) ert--should-signal-hook slot-value ebdb-parse ebdb-field-phone area-code 206 signal #6=#:ert-form-evaluation-aborted-6338 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (slot-value (ebdb-parse 'ebdb-field-phone phone-str) 'area-code) 206)) :form eql #6# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 14] provide ebdb-i18n-test] 10)