[948] in BarnOwl Developers
[D-O-H] r935 - branches/barnowl_sqlite/owl
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:11:27 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@MIT.EDU
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Sat, 9 Feb 2008 22:11:19 -0500 (EST)
Author: nelhage
Date: 2008-02-09 22:11:18 -0500 (Sat, 09 Feb 2008)
New Revision: 935
Modified:
branches/barnowl_sqlite/owl/list.c
branches/barnowl_sqlite/owl/tester.c
Log:
Regression tests for lists
Modified: branches/barnowl_sqlite/owl/list.c
===================================================================
--- branches/barnowl_sqlite/owl/list.c 2008-02-08 23:39:32 UTC (rev 934)
+++ branches/barnowl_sqlite/owl/list.c 2008-02-10 03:11:18 UTC (rev 935)
@@ -100,3 +100,53 @@
{
if (l->list) owl_free(l->list);
}
+
+/************* REGRESSION TESTS **************/
+#ifdef OWL_INCLUDE_REG_TESTS
+
+#include "test.h"
+
+int owl_list_regtest(void) {
+ int numfailed=0;
+ owl_list l;
+ int i;
+
+ printf("# BEGIN testing owl_list\n");
+
+ FAIL_UNLESS("create", 0 == owl_list_create(&l));
+ for(i=0;i<10;i++) {
+ FAIL_UNLESS("insert", 0 == owl_list_append_element(&l, (void*)i));
+ }
+
+ FAIL_UNLESS("size", 10 == owl_list_get_size(&l));
+
+ for(i=0;i<10;i++) {
+ FAIL_UNLESS("get", i == (int)owl_list_get_element(&l, i));
+ }
+
+ for(i=0;i<10;i++) {
+ FAIL_UNLESS("append tail", 0 == owl_list_append_element(&l, (void*)(10+i)));
+ }
+
+ FAIL_UNLESS("size", 20 == owl_list_get_size(&l));
+
+ for(i=10;i<20;i++) {
+ FAIL_UNLESS("get", i == (int)owl_list_get_element(&l, i));
+ }
+
+ for(i=9;i>=0;i--) {
+ FAIL_UNLESS("prepend", 0 == owl_list_prepend_element(&l, (void*)(-i)));
+ }
+
+ FAIL_UNLESS("size", 30 == owl_list_get_size(&l));
+
+ for(i=0;i<10;i++) {
+ FAIL_UNLESS("get", -i == (int)owl_list_get_element(&l, i));
+ }
+
+ printf("# END testing owl_list\n");
+
+ return numfailed;
+}
+
+#endif /* OWL_INCLUDE_REG_TESTS */
Modified: branches/barnowl_sqlite/owl/tester.c
===================================================================
--- branches/barnowl_sqlite/owl/tester.c 2008-02-08 23:39:32 UTC (rev 934)
+++ branches/barnowl_sqlite/owl/tester.c 2008-02-10 03:11:18 UTC (rev 935)
@@ -8,11 +8,6 @@
void screeninit()
{
- char buff[1024];
-
- sprintf(buff, "TERMINFO=%s", TERMINFO);
- putenv(buff);
-
initscr();
start_color();
/* cbreak(); */
@@ -152,6 +147,9 @@
{
owl_errqueue_init(owl_global_get_errqueue(&g));
owl_obarray_init(&(g.obarray));
+ owl_perlconfig_initperl(NULL);
+ /* Now that we have perl, we can initialize the msssage list*/
+ g.msglist = owl_messagelist_new();
int numfailures=0;
if (argc==1 || (argc==2 && 0==strcmp(argv[1],"reg"))) {
@@ -162,6 +160,7 @@
numfailures += owl_variable_regtest();
numfailures += owl_filter_regtest();
numfailures += owl_obarray_regtest();
+ numfailures += owl_list_regtest();
if (numfailures) {
fprintf(stderr, "# *** WARNING: %d failures total\n", numfailures);
}
