From a6fae6b78018f2d7998eb7c9432c2d00400f209b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 10 Dec 2025 23:55:08 +0100
Subject: Org: don't include 'example' class when parsing org example blocks.

These are just unmarked code blocks.

Closes #11339.
---
 test/Tests/Readers/Org/Block.hs           |  4 ++--
 test/Tests/Readers/Org/Block/CodeBlock.hs |  6 +++---
 test/command/4186.md                      | 10 +++++-----
 test/command/8997.md                      |  8 ++++----
 4 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Readers/Org/Block.hs b/test/Tests/Readers/Org/Block.hs
index 2bb658213..8f6427d00 100644
--- a/test/Tests/Readers/Org/Block.hs
+++ b/test/Tests/Readers/Org/Block.hs
@@ -43,7 +43,7 @@ tests =
       T.unlines [ ": echo hello"
                 , ": echo dear tester"
                 ] =?>
-      codeBlockWith ("", ["example"], []) "echo hello\necho dear tester\n"
+      codeBlockWith ("", [], []) "echo hello\necho dear tester\n"
 
   , "Example block surrounded by text" =:
       T.unlines [ "Greetings"
@@ -52,7 +52,7 @@ tests =
                 , "Bye"
                 ] =?>
       mconcat [ para "Greetings"
-              , codeBlockWith ("", ["example"], [])
+              , codeBlockWith ("", [], [])
                               "echo hello\necho dear tester\n"
               , para "Bye"
               ]
diff --git a/test/Tests/Readers/Org/Block/CodeBlock.hs b/test/Tests/Readers/Org/Block/CodeBlock.hs
index ba0229a8c..eaa8cef6d 100644
--- a/test/Tests/Readers/Org/Block/CodeBlock.hs
+++ b/test/Tests/Readers/Org/Block/CodeBlock.hs
@@ -99,7 +99,7 @@ tests =
            results' = "65\n"
        in codeBlockWith ("", classes, params) code'
           <>
-          codeBlockWith ("", ["example"], []) results'
+          codeBlockWith ("", [], []) results'
 
   , "Source block with results and :exports code" =:
        T.unlines [ "#+begin_src emacs-lisp :exports code"
@@ -126,7 +126,7 @@ tests =
                  , "#+RESULTS:"
                  , ": 65" ] =?>
        let results' = "65\n"
-       in codeBlockWith ("", ["example"], []) results'
+       in codeBlockWith ("", [], []) results'
 
   , "Source block with results and :exports none" =:
        T.unlines [ "#+begin_src emacs-lisp :exports none"
@@ -171,7 +171,7 @@ tests =
                  , "a rule."
                  , "#+eND_exAMPle"
                  ] =?>
-       codeBlockWith ("", ["example"], [])
+       codeBlockWith ("", [], [])
                      "A chosen representation of\na rule.\n"
 
   , "Code block with caption" =:
diff --git a/test/command/4186.md b/test/command/4186.md
index b2a2bd6e9..cf7edfd51 100644
--- a/test/command/4186.md
+++ b/test/command/4186.md
@@ -5,7 +5,7 @@
 #+end_example
 ^D
 [ CodeBlock
-    ( "" , [ "example" ] , [] )
+    ( "" , [] , [] )
     "    This should retain the four leading spaces\n"
 ]
 ```
@@ -40,13 +40,13 @@ Outside all lists.
 ^D
 <ul>
 <li><p>depth 1</p>
-<pre id="bob" class="example"><code>    Vertical alignment is four spaces beyond the appearance of the word &quot;depth&quot;.
+<pre id="bob"><code>    Vertical alignment is four spaces beyond the appearance of the word &quot;depth&quot;.
 </code></pre>
 <ul>
 <li><p>depth 2</p>
-<pre class="example"><code>Vertically aligned with the second appearance of the word &quot;depth&quot;.
+<pre><code>Vertically aligned with the second appearance of the word &quot;depth&quot;.
 </code></pre>
-<pre class="example"><code>    Vertical alignment is four spaces beyond the second
+<pre><code>    Vertical alignment is four spaces beyond the second
     appearance of the word &quot;depth&quot;.
     The &quot;begin&quot; portion is a component of
     this deeper list element, so that guarantees
@@ -55,7 +55,7 @@ Outside all lists.
 </code></pre>
 <p>Still inside the inner list element</p></li>
 </ul>
-<pre id="carrie" class="example"><code>This belongs to the outer list element, and is aligned accordingly, since the NAME attribute is not indented deeply enough. It is not enough for the BEGIN alone to be aligned deeply if the block is meant to have a NAME.
+<pre id="carrie"><code>This belongs to the outer list element, and is aligned accordingly, since the NAME attribute is not indented deeply enough. It is not enough for the BEGIN alone to be aligned deeply if the block is meant to have a NAME.
 </code></pre>
 <p>Still in the shallower list element since the preceding example block
 forced the deeper list element to terminate.</p></li>
diff --git a/test/command/8997.md b/test/command/8997.md
index 60e39ed7e..d64b1d32b 100644
--- a/test/command/8997.md
+++ b/test/command/8997.md
@@ -24,7 +24,7 @@
     , Space
     , Str "colon"
     ]
-, CodeBlock ( "" , [ "example" ] , [] ) "aaa\n\nbbb\n"
+, CodeBlock ( "" , [] , [] ) "aaa\n\nbbb\n"
 , Header
     1
     ( "has-no-space-after-second-colon" , [] , [] )
@@ -40,7 +40,7 @@
     , Space
     , Str "colon"
     ]
-, CodeBlock ( "" , [ "example" ] , [] ) "aaa\n\nbbb\n"
+, CodeBlock ( "" , [] , [] ) "aaa\n\nbbb\n"
 ]
 ```
 
@@ -56,7 +56,7 @@
     1
     ( "only-the-colon" , [] , [] )
     [ Str "only" , Space , Str "the" , Space , Str "colon" ]
-, CodeBlock ( "" , [ "example" ] , [] ) "\n"
+, CodeBlock ( "" , [] , [] ) "\n"
 , Header
     1
     ( "only-the-colon-and-a-space" , [] , [] )
@@ -72,6 +72,6 @@
     , Space
     , Str "space"
     ]
-, CodeBlock ( "" , [ "example" ] , [] ) "\n"
+, CodeBlock ( "" , [] , [] ) "\n"
 ]
 ```
-- 
cgit v1.2.3