From 81b0b803346c3ec8a21c660d932cfb75ba3c3c59 Mon Sep 17 00:00:00 2001
From: "Roger D. Peng [amelia]" <rpeng@jhsph.edu>
Date: Sat, 30 Aug 2008 12:41:57 -0400
Subject: [PATCH] Add regression test for 'push' on a queue

---
 tests/reg-tests.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/reg-tests.R b/tests/reg-tests.R
index 00195e6..34cc0c4 100644
--- a/tests/reg-tests.R
+++ b/tests/reg-tests.R
@@ -170,3 +170,11 @@ dbList(db)
 dbExists(db, "a")
 
 file.remove("mydb")
+
+################################################################################
+## Check queue
+
+db <- createQ("testq")
+push(db, 1)
+push(db, 2)
+top(db)
-- 
2.11.4.GIT