;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ert ert-x mmm-erb] 2)
(defvar mmm-erb-text "<%= foo do %>\n     <div class=\"clear\"/>\n   <% end %>")
(defconst mmm-erb-edge-emacs (string-lessp "24.3.50" emacs-version))
(defalias 'mmm-erb-current-overlay-string #[nil "\301\302!\303!\"\207" [mmm-current-overlay buffer-substring-no-properties overlay-start overlay-end] 4])
(defalias 'mmm-erb-deftest '(macro . #[(name &rest body) "@\303=\205\n A@\211\203 AA\304\305\306\307\n\"!\310\303	\206! \311\312\310\313\314\315\316\317\320BBBBBBE\257)\207" [body expected-result name :expected-result ert-deftest intern format "mmm-erb-%s" nil :passed ert-with-test-buffer let ((buffer-file-name "foo.html.erb") (mmm-global-mode 'maybe) mmm-parse-when-idle mmm-mode-ext-classes-alist) (mmm-add-mode-ext-class 'html-erb-mode "\\.html\\.erb\\'" 'erb) (html-erb-mode) (mmm-mode-on-maybe) (should mmm-mode)] 15]))
(byte-code "\300\301\302\303#\210\304\305\306\307\305\310\311\310\312\310&\"\207" [put mmm-erb-deftest lisp-indent-function defun ert-set-test mmm-erb-parses-buffer record ert-test nil #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\307\310\211\311\312\313\314#\210\312 \210\315 \210\316\317!\310\320\216/\211)\204( \321!\210)\f\210)0c\210\322 \210\3231\3241E \32523)C0\202R 4\32614@4A)D5\3276\3107\330\216\33115\"\2116)\204n \3217!\210)6\210+\332\333!\210\3348\3351\203 \3100\202\220 4\32684@4A)D9\336:\310;\337\216\33189\"\211:)\204\254 \321;!\210):\210+\340<\3411\304 \3252\342\343 )D0\202\321 4\326<4@4A)D=\344>\310?\345\216\331<=\"\211>)\204\355 \321?!\210)>\210+\346\347!\210\334@\3501\3100\2024\326@4@4A)DA\351B\310C\352\216\331@A\"\211B)\204+\321C!\210)B\210+\340D\3531C\3252\354\343 )D0\202P4\326D4@4A)DE\355F\310G\356\216\331DE\"\211F)\204l\321G!\210)F.\207" [mmm-mode-ext-classes-alist mmm-parse-when-idle mmm-global-mode buffer-file-name #1=#:value-7585 #2=#:form-description-7586 "foo.html.erb" maybe nil mmm-add-mode-ext-class html-erb-mode "\\.html\\.erb\\'" erb mmm-mode-on-maybe gensym "ert-form-evaluation-aborted-" #[nil "\302\303\304\305\257\306	!\207" [#1# #2# (should mmm-mode) :form mmm-mode :value ert--signal-should-execution] 5] ert-fail mmm-apply-all not (error) ert--should-signal-hook signal #3=#:ert-form-evaluation-aborted-7590 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#10=#:fn-7587 #11=#:args-7588 #12=#:value-7589 -explainer- #13=#:form-description-7591 (should (not mmm-current-overlay)) :form #3# :value not ert-explainer :explanation apply ert--signal-should-execution] 6] apply search-backward "foo" mmm-update-current-submode (error) #4=#:ert-form-evaluation-aborted-7595 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#14=#:fn-7592 #15=#:args-7593 #16=#:value-7594 -explainer- #17=#:form-description-7596 (should (mmm-update-current-submode)) :form #4# :value mmm-update-current-submode ert-explainer :explanation apply ert--signal-should-execution] 6] string= (error) #5=" foo do " mmm-erb-current-overlay-string #6=#:ert-form-evaluation-aborted-7600 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#18=#:fn-7597 #19=#:args-7598 #20=#:value-7599 -explainer- #21=#:form-description-7601 (should (string= #5# (mmm-erb-current-overlay-string))) :form #6# :value string= ert-explainer :explanation apply ert--signal-should-execution] 6] search-forward "end" (error) #7=#:ert-form-evaluation-aborted-7605 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#22=#:fn-7602 #23=#:args-7603 #24=#:value-7604 -explainer- #25=#:form-description-7606 (should (mmm-update-current-submode)) :form #7# :value mmm-update-current-submode ert-explainer :explanation apply ert--signal-should-execution] 6] (error) #8=" end " #9=#:ert-form-evaluation-aborted-7610 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#26=#:fn-7607 #27=#:args-7608 #28=#:value-7609 -explainer- #29=#:form-description-7611 (should (string= #8# (mmm-erb-current-overlay-string))) :form #9# :value string= ert-explainer :explanation apply ert--signal-should-execution] 6] mmm-mode mmm-erb-text #10# signal-hook-function mmm-current-overlay err #11# #12# #13# #14# #15# #16# #17# #18# #19# #20# #21# #22# #23# #24# #25# #26# #27# #28# #29#] 4]] 3] :passed] 10)
(defalias 'mmm-erb-assert-string-syntax #[nil "eb\210\306\307!\210\310\3111 \312\313\314 )D0\202! \315\n@\nA)D\316\317\320\216\321\"\211)\2046 \322!\210)\f\210+\306\307!\210\323\3241Q \312\313\314 8)C0\202[ \315\n@\nA)D\325\317\326\216\321\"\211)\204w \322!\210)+\207" [#1=#:fn-7612 signal-hook-function err #2=#:args-7613 #3=#:value-7614 #4=#:form-description-7616 search-forward "\"" nth (error) ert--should-signal-hook 3 syntax-ppss signal #5=#:ert-form-evaluation-aborted-7615 nil #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#1# #2# #3# -explainer- #4# (should (nth 3 (syntax-ppss))) :form #5# :value nth ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail not (error) #6=#:ert-form-evaluation-aborted-7620 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#7=#:fn-7617 #8=#:args-7618 #9=#:value-7619 -explainer- #10=#:form-description-7621 (should (not (nth 3 (syntax-ppss)))) :form #6# :value not ert-explainer :explanation apply ert--signal-should-execution] 6] #7# #8# #9# #10#] 3])
(defalias 'mmm-erb-assert-non-string-syntax #[nil "eb\210\306\307!\210\310\3111 \312\313\314 8)C0\202\" \315\n@\nA)D\316\317\320\216\321\"\211)\2047 \322!\210)\f\210+\306\307!\210\310\3231R \312\313\314 8)C0\202\\ \315\n@\nA)D\324\317\325\216\321\"\211)\204x \322!\210)+\207" [#1=#:fn-7622 signal-hook-function err #2=#:args-7623 #3=#:value-7624 #4=#:form-description-7626 search-forward "\"" not (error) ert--should-signal-hook 3 syntax-ppss signal #5=#:ert-form-evaluation-aborted-7625 nil #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#1# #2# #3# -explainer- #4# (should (not (nth 3 (syntax-ppss)))) :form #5# :value not ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail (error) #6=#:ert-form-evaluation-aborted-7630 #[nil "\305C\306	BD\244\n\307=?\205 \310\nD\244\n\307=?\205) \311\312N\211\205( \313\314	\"D)\244\315\f!\207" [#7=#:fn-7627 #8=#:args-7628 #9=#:value-7629 -explainer- #10=#:form-description-7631 (should (not (nth 3 (syntax-ppss)))) :form #6# :value not ert-explainer :explanation apply ert--signal-should-execution] 6] #7# #8# #9# #10#] 3])
(byte-code "\301\302\303\304\302\305\306\305\307\305&\"\210\301\310\303\304\310\305\311\305\203 \307\202 \312\305&\"\210\301\313\303\304\313\305\314\305\307\305&\"\210\301\315\303\304\315\305\316\305\203B \307\202C \312\305&\"\207" [mmm-erb-edge-emacs ert-set-test mmm-erb-attribute-values-are-strings record ert-test nil #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\307\310\211\311\312\313\314#\210\312 \210\315 \210\316\317!\310\320\216\211)\204( \321!\210)\f\210)c\210\322 \210\323 ,\207" [mmm-mode-ext-classes-alist mmm-parse-when-idle mmm-global-mode buffer-file-name #1=#:value-7632 #2=#:form-description-7633 #3="foo.html.erb" maybe nil mmm-add-mode-ext-class html-erb-mode #4="\\.html\\.erb\\'" erb mmm-mode-on-maybe gensym #5="ert-form-evaluation-aborted-" #[nil "\302\303\304\305\257\306	!\207" [#1# #2# (should mmm-mode) :form mmm-mode :value ert--signal-should-execution] 5] ert-fail mmm-apply-all mmm-erb-assert-string-syntax mmm-mode mmm-erb-text] 4]] 3] :passed mmm-erb-quotes-outside-tags-dont-make-strings #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\307\310\211\311\312\313\314#\210\312 \210\315 \210\316\317!\310\320\216\211)\204( \321!\210)\f\210)\322c\210\323 \210\324 ,\207" [mmm-mode-ext-classes-alist mmm-parse-when-idle mmm-global-mode buffer-file-name #6=#:value-7634 #7=#:form-description-7635 #3# maybe nil mmm-add-mode-ext-class html-erb-mode #4# erb mmm-mode-on-maybe gensym #5# #[nil "\302\303\304\305\257\306	!\207" [#6# #7# (should mmm-mode) :form mmm-mode :value ert--signal-should-execution] 5] ert-fail "<% foo do %><p>\"foo bar\"</p><% end %>" mmm-apply-all mmm-erb-assert-non-string-syntax mmm-mode] 4]] 3] :failed mmm-erb-gt-inside-subregion-doesnt-change-nesting #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\307\310\211\311\312\313\314#\210\312 \210\315 \210\316\317!\310\320\216\211)\204( \321!\210)\f\210)\322c\210\323 \210\324 ,\207" [mmm-mode-ext-classes-alist mmm-parse-when-idle mmm-global-mode buffer-file-name #8=#:value-7636 #9=#:form-description-7637 #3# maybe nil mmm-add-mode-ext-class html-erb-mode #4# erb mmm-mode-on-maybe gensym #5# #[nil "\302\303\304\305\257\306	!\207" [#8# #9# (should mmm-mode) :form mmm-mode :value ert--signal-should-execution] 5] ert-fail "<% if 2 > 1 %><div class=\"foo\"/><% end %>" mmm-apply-all mmm-erb-assert-string-syntax mmm-mode] 4]] 3] mmm-erb-lt-inside-subregion-doesnt-change-nesting #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\307\310\211\311\312\313\314#\210\312 \210\315 \210\316\317!\310\320\216\211)\204( \321!\210)\f\210)\322c\210\323 \210\324 ,\207" [mmm-mode-ext-classes-alist mmm-parse-when-idle mmm-global-mode buffer-file-name #10=#:value-7638 #11=#:form-description-7639 #3# maybe nil mmm-add-mode-ext-class html-erb-mode #4# erb mmm-mode-on-maybe gensym #5# #[nil "\302\303\304\305\257\306	!\207" [#10# #11# (should mmm-mode) :form mmm-mode :value ert--signal-should-execution] 5] ert-fail "<% if 2 < 1 %><p>\"foo bar\"</p><% end %>" mmm-apply-all mmm-erb-assert-non-string-syntax mmm-mode] 4]] 3]] 10)