From 552f0e2c79ce2b7f2bbd3e34c581c44a08fe4bc2 Mon Sep 17 00:00:00 2001
From: Toby Wicks <toby@hisystems.com.au>
Date: Sun, 29 Jun 2014 19:59:03 +0930
Subject: [PATCH] Test for ObjectsList(maxRecords).

hisystems/databaseobjects#92. hisystems/databaseobjects#93.
---
 Database/DatabaseTests.vb | 10 ++++++++++
 1 file changed, 10 insertions(+)

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)