diff --git a/test/regressions/i240_code_inside_lists_test.exs b/test/regressions/i240_code_inside_lists_test.exs
new file mode 100644
index 00000000..bd1d5a4a
--- /dev/null
+++ b/test/regressions/i240_code_inside_lists_test.exs
@@ -0,0 +1,17 @@
+defmodule Regressions.I240CodeInsideListsTest do
+  use Support.AcceptanceTestCase
+  
+  test "code in li" do
+    markdown = """
+    * List Item
+
+      Description
+
+            Some Code
+    """
+    html = "<ul>\n<li><p>List Item</p>\n<p>  Description</p>\n<pre><code>Some Code</code></pre>\n</li>\n</ul>\n"
+    messages = []
+
+    assert as_html(markdown) == {:ok, html, messages}
+  end
+end