diff --git a/tests/testthat/test-tune-last-fit-reproducibility.R b/tests/testthat/test-tune-last-fit-reproducibility.R
new file mode 100644
index 0000000..79ce522
--- /dev/null
+++ b/tests/testthat/test-tune-last-fit-reproducibility.R
@@ -0,0 +1,34 @@
+test_that("last_fit() is reproducible", {
+  skip_if_not_installed("ranger")
+
+  # ------------------------------------------------------------------------------
+
+  set.seed(1)
+  dat <- sim_regression(200)
+  split <- initial_split(dat)
+  tr_dat <- training(split)
+  te_dat <- testing(split)
+
+  rf_spec <- rand_forest(mode = "regression", trees = 20)
+  rf_wflow <- workflow(outcome ~ ., rf_spec)
+
+  # ------------------------------------------------------------------------------
+
+  # manual:
+
+  set.seed(2)
+  manual_fit <- fit(rf_wflow, tr_dat)
+  manual_pred <-
+    predict(manual_fit, new_data = te_dat)
+
+  # auto:
+
+  set.seed(2)
+  auto_res <- last_fit(rf_wflow, split)
+  auto_pred <-
+    auto_res |>
+    collect_predictions()
+
+  expect_identical(manual_pred$.pred, auto_pred$.pred)
+
+})