Test message drops due to hitting the limit

[reliable-chat] / server / server_test.go

diff --git a/server/server_test.go b/server/server_test.go
index fb20ddc4070459b5bf9668a8b1ae2ac164c5af42..7f3434ca52b82d76a12abb1a64e07b9eeec2bfa5 100644 (file)
--- a/server/server_test.go
+++ b/server/server_test.go
@@ -1,3 +1,20 @@
+/*  reliable-chat - multipath chat
+ *  Copyright (C) 2012  Scott Worley <sworley@chkno.net>
+ *
+ *  This program is free software: you can redistribute it and/or modify
+ *  it under the terms of the GNU Affero General Public License as
+ *  published by the Free Software Foundation, either version 3 of the
+ *  License, or (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU Affero General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Affero General Public License
+ *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
 package main
 
 import "testing"
@@ -23,6 +40,11 @@ func TestMessageInsertAndRetreive(t *testing.T) {
        at := time.Now()
        var zero_time time.Time
        store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
+
        store.Add <- &Message{at, id, say}
        messages_from_store := make(chan []Message, 1)
        store.Get <- &StoreRequest{zero_time, messages_from_store}
@@ -31,8 +53,6 @@ func TestMessageInsertAndRetreive(t *testing.T) {
                t.FailNow()
        }
        expectMessage(t, &messages[0], at, id, say)
-       close(store.Get)
-       close(store.Add)
 }
 
 func TestFetchBlocksUntilSpeak(t *testing.T) {
@@ -42,6 +62,11 @@ func TestFetchBlocksUntilSpeak(t *testing.T) {
        at := time.Now()
        var zero_time time.Time
        store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
+
        messages_from_store := make(chan []Message, 1)
        store.Get <- &StoreRequest{zero_time, messages_from_store}
        for start_fetch_wait_count == fetch_wait_count.String() {
@@ -53,8 +78,6 @@ func TestFetchBlocksUntilSpeak(t *testing.T) {
                t.FailNow()
        }
        expectMessage(t, &messages[0], at, id, say)
-       close(store.Get)
-       close(store.Add)
 }
 
 func TestMultipleListeners(t *testing.T) {
@@ -63,6 +86,11 @@ func TestMultipleListeners(t *testing.T) {
        at := time.Now()
        var zero_time time.Time
        store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
+
        const num_clients = 13
        var messages_from_store [num_clients]chan []Message
        for i := 0; i < num_clients; i++ {
@@ -75,10 +103,8 @@ func TestMultipleListeners(t *testing.T) {
                if len(messages) != 1 {
                        t.FailNow()
                }
-               expectMessage(t,& messages[0], at, id, say)
+               expectMessage(t, &messages[0], at, id, say)
        }
-       close(store.Get)
-       close(store.Add)
 }
 
 func parseDuration(s string) time.Duration {
@@ -111,6 +137,11 @@ func TestPartialRetreive(t *testing.T) {
        at2 := base.Add(parseDuration("-2m"))
        at3 := base.Add(parseDuration("-1m"))
        store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
+
        store.Add <- &Message{at1, id1, say1}
        store.Add <- &Message{at2, id2, say2}
        store.Add <- &Message{at3, id3, say3}
@@ -125,8 +156,6 @@ func TestPartialRetreive(t *testing.T) {
        }
        expectMessage(t, &messages[0], at2, id2, say2)
        expectMessage(t, &messages[1], at3, id3, say3)
-       close(store.Get)
-       close(store.Add)
 }
 
 func TestPrecisePartialRetreive(t *testing.T) {
@@ -143,6 +172,11 @@ func TestPrecisePartialRetreive(t *testing.T) {
        at3 := base.Add(parseDuration("-1m"))
        since := at2
        store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
+
        store.Add <- &Message{at1, id1, say1}
        store.Add <- &Message{at2, id2, say2}
        store.Add <- &Message{at3, id3, say3}
@@ -156,8 +190,6 @@ func TestPrecisePartialRetreive(t *testing.T) {
                t.FailNow()
        }
        expectMessage(t, &messages[0], at3, id3, say3)
-       close(store.Get)
-       close(store.Add)
 }
 
 func TestTypicalFlow(t *testing.T) {
@@ -166,6 +198,10 @@ func TestTypicalFlow(t *testing.T) {
        say1 := "The Norwegian Blue prefers kippin' on it's back!"
        say2 := "Remarkable bird, innit, squire?  Lovely plumage!"
        store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
 
        // A waiting zero-time fetch.
        var zero_time time.Time
@@ -204,7 +240,47 @@ func TestTypicalFlow(t *testing.T) {
                t.FailNow()
        }
        expectMessage(t, &messages2[0], at2, id2, say2)
+}
+
+func TestExpiryDueToLimit(t *testing.T) {
+       previous_limit := *max_messages
+       defer func() { *max_messages = previous_limit }()
+       *max_messages = 2
 
-       close(store.Get)
-       close(store.Add)
+       start_speak_count := atoi(speak_count.String())
+       start_drop_count := atoi(drop_due_to_limit_count.String())
+       id1 := "12"
+       id2 := "13"
+       id3 := "14"
+       say1 := "'E's passed on!"
+       say2 := "This parrot is no more!"
+       say3 := "He has ceased to be!"
+       base := time.Now()
+       at1 := base.Add(parseDuration("-3m"))
+       at2 := base.Add(parseDuration("-2m"))
+       at3 := base.Add(parseDuration("-1m"))
+       store := start_store()
+       defer func() {
+               close(store.Get)
+               close(store.Add)
+       }()
+
+       store.Add <- &Message{at1, id1, say1}
+       store.Add <- &Message{at2, id2, say2}
+       store.Add <- &Message{at3, id3, say3}
+       for atoi(speak_count.String()) != start_speak_count+3 {
+               runtime.Gosched()
+       }
+       if atoi(drop_due_to_limit_count.String()) != start_drop_count+1 {
+               t.Fail()
+       }
+       messages_from_store := make(chan []Message, 1)
+       var zero_time time.Time
+       store.Get <- &StoreRequest{zero_time, messages_from_store}
+       messages := <-messages_from_store
+       if len(messages) != 2 {
+               t.FailNow()
+       }
+       expectMessage(t, &messages[0], at2, id2, say2)
+       expectMessage(t, &messages[1], at3, id3, say3)
 }