Org writer: add code block identifier as `#+name` to src blocks.

1 files changed, 11 insertions, 0 deletions

diff --git a/test/Tests/Writers/Org.hs b/test/Tests/Writers/Org.hs
index 4c79995d4..cc957fc6c 100644
--- a/test/Tests/Writers/Org.hs
+++ b/test/Tests/Writers/Org.hs
@@ -66,4 +66,15 @@ tests =
           , "- ☒ b"
           ]
     ]
+
+  , testGroup "code blocks"
+    [ "identifier"
+      =: codeBlockWith ("abc", ["python"], []) "return True"
+      =?> T.unlines
+      [ "#+name: abc"
+      , "#+begin_src python"
+      , "return True"
+      , "#+end_src"
+      ]
+    ]
   ]