diff --git a/test/CMakeLists.txt b/test/CMakeLists.txt
index f3cfd1a3f..0c3676bbf 100644
--- a/test/CMakeLists.txt
+++ b/test/CMakeLists.txt
@@ -21,6 +21,7 @@ set(tests
   drlg_common_test
   drlg_l1_test
   drlg_l2_test
+  drlg_l4_test
   effects_test
   file_util_test
   inv_test
diff --git a/test/Fixtures.cmake b/test/Fixtures.cmake
index 107dcb47f..560f91b78 100644
--- a/test/Fixtures.cmake
+++ b/test/Fixtures.cmake
@@ -11,6 +11,10 @@ set(devilutionx_fixtures
   diablo/6-2034738122.dun
   diablo/7-680552750.dun
   diablo/8-1999936419.dun
+  diablo/13-428074402.dun
+  diablo/14-717625719.dun
+  diablo/15-1583642716.dun
+  diablo/15-1583642716-changed.dun
   hellfire/1-401921334.dun
   hellfire/2-128964898.dun
   hellfire/3-1799396623.dun
diff --git a/test/drlg_l4_test.cpp b/test/drlg_l4_test.cpp
new file mode 100644
index 000000000..6fa2c94d0
--- /dev/null
+++ b/test/drlg_l4_test.cpp
@@ -0,0 +1,86 @@
+#include <fmt/format.h>
+#include <gtest/gtest.h>
+
+#include "drlg_l4.h"
+#include "engine/load_file.hpp"
+#include "gendung.h"
+#include "quests.h"
+#include "utils/paths.h"
+
+using namespace devilution;
+
+namespace {
+
+void TestCreateL4Dungeon(bool changed, int level, uint32_t seed, lvl_entry entry)
+{
+	pMegaTiles = std::make_unique<MegaTile[]>(137);
+	leveltype = DTYPE_HELL;
+
+	currlevel = level;
+	CreateL4Dungeon(seed, entry);
+
+	std::string path = paths::BasePath();
+
+	paths::SetPrefPath(path);
+	std::string dunPath;
+	if (changed)
+		dunPath = fmt::format("test/fixtures/diablo/{}-{}-changed.dun", level, seed);
+	else
+		dunPath = fmt::format("test/fixtures/diablo/{}-{}.dun", level, seed);
+	auto dunData = LoadFileInMem<uint16_t>(dunPath.c_str());
+	ASSERT_NE(dunData, nullptr) << "Unable to load test fixture " << dunPath;
+	ASSERT_EQ(Size(DMAXX, DMAXY), Size(dunData[0], dunData[1]));
+
+	const uint16_t *tileLayer = &dunData[2];
+
+	for (int y = 0; y < DMAXY; y++) {
+		for (int x = 0; x < DMAXX; x++) {
+			auto tileId = static_cast<uint8_t>(SDL_SwapLE16(*tileLayer));
+			tileLayer++;
+			ASSERT_EQ(dungeon[x][y], tileId) << "Tiles don't match at " << x << "x" << y;
+		}
+	}
+
+	const uint16_t *transparentLayer = &dunData[2 + DMAXX * DMAXY * 13];
+
+	for (int y = 16; y < 16 + DMAXY * 2; y++) {
+		for (int x = 16; x < 16 + DMAXX * 2; x++) {
+			auto sectorId = static_cast<uint8_t>(SDL_SwapLE16(*transparentLayer));
+			transparentLayer++;
+			ASSERT_EQ(dTransVal[x][y], sectorId) << "Room/region indexes don't match at " << x << "x" << y;
+		}
+	}
+}
+
+TEST(Drlg_l1, CreateL4Dungeon_diablo_13_428074402)
+{
+	TestCreateL4Dungeon(false, 13, 428074402, ENTRY_MAIN);
+	EXPECT_EQ(ViewPosition, Point(26, 64));
+	TestCreateL4Dungeon(false, 13, 428074402, ENTRY_PREV);
+	EXPECT_EQ(ViewPosition, Point(47, 79));
+}
+
+TEST(Drlg_l1, CreateL4Dungeon_diablo_14_717625719)
+{
+	TestCreateL4Dungeon(false, 14, 717625719, ENTRY_MAIN);
+	EXPECT_EQ(ViewPosition, Point(90, 64));
+	TestCreateL4Dungeon(false, 14, 717625719, ENTRY_PREV);
+	EXPECT_EQ(ViewPosition, Point(49, 31));
+}
+
+TEST(Drlg_l1, CreateL4Dungeon_diablo_15_1583642716)
+{
+	Quests[Q_DIABLO]._qactive = QUEST_INIT;
+	TestCreateL4Dungeon(false, 15, 1583642716, ENTRY_MAIN);
+	EXPECT_EQ(ViewPosition, Point(44, 26));
+	TestCreateL4Dungeon(false, 15, 1583642716, ENTRY_PREV);
+	EXPECT_EQ(ViewPosition, Point(87, 69));
+
+	Quests[Q_DIABLO]._qactive = QUEST_ACTIVE;
+	TestCreateL4Dungeon(true, 15, 1583642716, ENTRY_MAIN);
+	EXPECT_EQ(ViewPosition, Point(44, 26));
+	TestCreateL4Dungeon(true, 15, 1583642716, ENTRY_PREV);
+	EXPECT_EQ(ViewPosition, Point(87, 69));
+}
+
+} // namespace
diff --git a/test/fixtures/diablo/13-428074402.dun b/test/fixtures/diablo/13-428074402.dun
new file mode 100644
index 000000000..d36a6dcd6
Binary files /dev/null and b/test/fixtures/diablo/13-428074402.dun differ
diff --git a/test/fixtures/diablo/14-717625719.dun b/test/fixtures/diablo/14-717625719.dun
new file mode 100644
index 000000000..fad074639
Binary files /dev/null and b/test/fixtures/diablo/14-717625719.dun differ
diff --git a/test/fixtures/diablo/15-1583642716-changed.dun b/test/fixtures/diablo/15-1583642716-changed.dun
new file mode 100644
index 000000000..012379111
Binary files /dev/null and b/test/fixtures/diablo/15-1583642716-changed.dun differ
diff --git a/test/fixtures/diablo/15-1583642716.dun b/test/fixtures/diablo/15-1583642716.dun
new file mode 100644
index 000000000..d516a8ba9
Binary files /dev/null and b/test/fixtures/diablo/15-1583642716.dun differ