diff --git a/R/community.R b/R/community.R
index b5d355a76cb..33dad0f2777 100644
--- a/R/community.R
+++ b/R/community.R
@@ -1825,6 +1825,15 @@ cluster_leiden <- function(
 
   ensure_igraph(graph)
 
+  # The C core accepts directed graphs since igraph 1.0,
+  # but this wrapper passes no in-weights and scales the resolution
+  # for undirected modularity, so it would silently compute the wrong objective.
+  if (is_directed(graph)) {
+    cli::cli_abort(
+      "Leiden algorithm is only implemented for undirected graphs."
+    )
+  }
+
   # Parse objective function argument
   objective_function <- igraph_match_arg(objective_function)
   objective_function <- switch(objective_function, "cpm" = 0, "modularity" = 1)
diff --git a/man/cluster_leiden.Rd b/man/cluster_leiden.Rd
index cb4b00aacef..c7709756306 100644
--- a/man/cluster_leiden.Rd
+++ b/man/cluster_leiden.Rd
@@ -106,7 +106,7 @@ specify any \code{vertex_weights}, the correct vertex weights and scaling of
 \code{objective_function} argument.
 }
 \section{Related documentation in the C library}{
-\href{https://igraph.org/c/html/0.10.17/igraph-Community.html#igraph_community_leiden}{\code{community_leiden()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Structural.html#igraph_strength}{\code{strength()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_vcount}{\code{vcount()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_edges}{\code{edges()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_get_eids}{\code{get_eids()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_ecount}{\code{ecount()}}
+\href{https://igraph.org/c/html/0.10.17/igraph-Community.html#igraph_community_leiden}{\code{community_leiden()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Structural.html#igraph_strength}{\code{strength()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_is_directed}{\code{is_directed()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_vcount}{\code{vcount()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_edges}{\code{edges()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_get_eids}{\code{get_eids()}}, \href{https://igraph.org/c/html/0.10.17/igraph-Basic.html#igraph_ecount}{\code{ecount()}}
 }
 
 \examples{
diff --git a/tests/testthat/test-community.R b/tests/testthat/test-community.R
index 81ced5a26fa..66123bbc5e2 100644
--- a/tests/testthat/test-community.R
+++ b/tests/testthat/test-community.R
@@ -455,6 +455,67 @@ test_that("cluster_leiden works", {
   )
 })
 
+test_that("cluster_leiden() rejects directed graphs", {
+  ring <- make_ring(6, directed = TRUE)
+  expect_error(
+    cluster_leiden(ring, objective_function = "modularity"),
+    "only implemented for undirected graphs"
+  )
+  expect_error(
+    cluster_leiden(ring, objective_function = "CPM"),
+    "only implemented for undirected graphs"
+  )
+
+  E(ring)$weight <- seq_len(ecount(ring))
+  expect_error(
+    cluster_leiden(ring, objective_function = "modularity"),
+    "only implemented for undirected graphs"
+  )
+})
+
+test_that("cluster_leiden() reports modularity as its quality", {
+  karate <- make_graph("Zachary")
+  for (resolution in c(0.5, 1, 2)) {
+    igraph_local_seed(42)
+    karate_leiden <- cluster_leiden(
+      karate,
+      "modularity",
+      resolution = resolution
+    )
+    expect_equal(
+      karate_leiden$quality,
+      modularity(karate, membership(karate_leiden), resolution = resolution)
+    )
+  }
+
+  triangles <- make_graph(~ 1-2-3-1, 4-5-6-4, 3-4)
+  E(triangles)$weight <- c(2, 2, 2, 3, 3, 3, 1)
+  igraph_local_seed(42)
+  triangles_leiden <- cluster_leiden(triangles, "modularity")
+  expect_equal(unname(membership(triangles_leiden)), c(1, 1, 1, 2, 2, 2))
+  expect_equal(
+    triangles_leiden$quality,
+    modularity(triangles, membership(triangles_leiden))
+  )
+})
+
+test_that("cluster_leiden() resolution controls the number of communities", {
+  triangles <- make_graph(~ 1-2-3-1, 4-5-6-4, 3-4)
+  E(triangles)$weight <- c(2, 2, 2, 3, 3, 3, 1)
+
+  igraph_local_seed(42)
+  low <- cluster_leiden(triangles, "modularity", resolution = 0.01)
+  expect_length(low, 1)
+  expect_equal(
+    low$quality,
+    modularity(triangles, membership(low), resolution = 0.01)
+  )
+
+  igraph_local_seed(42)
+  high <- cluster_leiden(triangles, "modularity", resolution = 50)
+  expect_length(high, vcount(triangles))
+})
+
 test_that("modularity_matrix works", {
   karate <- make_graph("zachary")