Test for ObjectsList(maxRecords).

hisystems/DatabaseObjects#92. hisystems/DatabaseObjects#93.
hisystems · Jun 29, 2014 · 552f0e2 · 552f0e2
1 parent d149c63
commit 552f0e2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git 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)