diff --git a/Database/DatabaseTests.vb b/Database/DatabaseTests.vb
index 27df9bc..3338e6a 100644
--- a/Database/DatabaseTests.vb
+++ b/Database/DatabaseTests.vb
@@ -171,6 +171,16 @@ Public Class DatabaseTests
 
     End Sub
 
+    <TestMethod()>
+    <TestCategory("Database")>
+    Public Sub ObjectsListMaxRecords(database As Database)
+
+        Dim items = database.ObjectsList(table, maxRecords:=2)
+
+        Assert.AreEqual(items.Count, 2)
+
+    End Sub
+
     <TestMethod()>
     <TestCategory("Database")>
     Public Sub ObjectsList(database As Database)