X-Git-Url: http://git.scottworley.com/reliable-chat/blobdiff_plain/d69a32e6e69f53f03cd69d13042de685130b3b06..9878d03bc1ec4a37d501ee65b520630235cc86cf:/server/server_test.go diff --git a/server/server_test.go b/server/server_test.go index 13ad4a9..7f3434c 100644 --- a/server/server_test.go +++ b/server/server_test.go @@ -1,3 +1,20 @@ +/* reliable-chat - multipath chat + * Copyright (C) 2012 Scott Worley + * + * 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 . + */ + package main import "testing" @@ -5,80 +22,89 @@ import "runtime" import "strconv" import "time" +func expectMessage(t *testing.T, m *Message, at time.Time, id, say string) { + if m.Time != at { + t.Fail() + } + if m.ID != id { + t.Fail() + } + if m.Text != say { + t.Fail() + } +} + func TestMessageInsertAndRetreive(t *testing.T) { + id := "1" say := "'Ello, Mister Polly Parrot!" at := time.Now() var zero_time time.Time store := start_store() - store.Add <- &Message{at, say} + 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} messages := <-messages_from_store if len(messages) != 1 { t.FailNow() } - if messages[0].Time != at { - t.Fail() - } - if messages[0].Text != say { - t.Fail() - } - close(store.Get) - close(store.Add) + expectMessage(t, &messages[0], at, id, say) } func TestFetchBlocksUntilSpeak(t *testing.T) { start_fetch_wait_count := fetch_wait_count.String() + id := "2" say := "I've got a lovely fresh cuttle fish for you" 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() { runtime.Gosched() } - store.Add <- &Message{at, say} + store.Add <- &Message{at, id, say} messages := <-messages_from_store if len(messages) != 1 { t.FailNow() } - if messages[0].Time != at { - t.Fail() - } - if messages[0].Text != say { - t.Fail() - } - close(store.Get) - close(store.Add) + expectMessage(t, &messages[0], at, id, say) } func TestMultipleListeners(t *testing.T) { + id := "3" say := "This is your nine o'clock alarm call!" 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++ { messages_from_store[i] = make(chan []Message, 1) store.Get <- &StoreRequest{zero_time, messages_from_store[i]} } - store.Add <- &Message{at, say} + store.Add <- &Message{at, id, say} for i := 0; i < num_clients; i++ { messages := <-messages_from_store[i] if len(messages) != 1 { t.FailNow() } - if messages[0].Time != at { - t.Fail() - } - if messages[0].Text != say { - t.Fail() - } + expectMessage(t, &messages[0], at, id, say) } - close(store.Get) - close(store.Add) } func parseDuration(s string) time.Duration { @@ -99,6 +125,9 @@ func atoi(s string) int { func TestPartialRetreive(t *testing.T) { start_speak_count := atoi(speak_count.String()) + id1 := "4" + id2 := "5" + id3 := "6" say1 := "No, no.....No, 'e's stunned!" say2 := "You stunned him, just as he was wakin' up!" say3 := "Norwegian Blues stun easily, major." @@ -108,9 +137,14 @@ func TestPartialRetreive(t *testing.T) { at2 := base.Add(parseDuration("-2m")) at3 := base.Add(parseDuration("-1m")) store := start_store() - store.Add <- &Message{at1, say1} - store.Add <- &Message{at2, say2} - store.Add <- &Message{at3, say3} + 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() } @@ -120,18 +154,133 @@ func TestPartialRetreive(t *testing.T) { if len(messages) != 2 { t.FailNow() } - if messages[0].Time != at2 { - t.Fail() + expectMessage(t, &messages[0], at2, id2, say2) + expectMessage(t, &messages[1], at3, id3, say3) +} + +func TestPrecisePartialRetreive(t *testing.T) { + start_speak_count := atoi(speak_count.String()) + id1 := "7" + id2 := "8" + id3 := "9" + say1 := "Well, he's...he's, ah...probably pining for the fjords." + say2 := "PININ' for the FJORDS?!?!?!?" + say3 := "look, why did he fall flat on his back the moment I got 'im home?" + base := time.Now() + at1 := base.Add(parseDuration("-3m")) + at2 := base.Add(parseDuration("-2m")) + 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} + for atoi(speak_count.String()) != start_speak_count+3 { + runtime.Gosched() } - if messages[0].Text != say2 { - t.Fail() + messages_from_store := make(chan []Message, 1) + store.Get <- &StoreRequest{since, messages_from_store} + messages := <-messages_from_store + if len(messages) != 1 { + t.FailNow() + } + expectMessage(t, &messages[0], at3, id3, say3) +} + +func TestTypicalFlow(t *testing.T) { + id1 := "10" + id2 := "11" + 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 + prev_fetch_wait_count := fetch_wait_count.String() + fetch1 := make(chan []Message, 1) + store.Get <- &StoreRequest{zero_time, fetch1} + for prev_fetch_wait_count == fetch_wait_count.String() { + runtime.Gosched() } - if messages[1].Time != at3 { + + // Someone speaks. This triggers delivery. + at1 := time.Now() + store.Add <- &Message{at1, id1, say1} + messages1 := <-fetch1 + if len(messages1) != 1 { + t.FailNow() + } + expectMessage(t, &messages1[0], at1, id1, say1) + + // Upon recipt, client blocks on fetch with since=at1 + prev_fetch_wait_count = fetch_wait_count.String() + fetch2 := make(chan []Message, 1) + store.Get <- &StoreRequest{at1, fetch2} + for prev_fetch_wait_count == fetch_wait_count.String() { + runtime.Gosched() + } + + // Someone speaks again. This triggers another delivery. + at2 := time.Now() + if !at2.After(at1) { t.Fail() } - if messages[1].Text != say3 { + store.Add <- &Message{at2, id2, say2} + messages2 := <-fetch2 + if len(messages2) != 1 { + 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 + + 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() } - close(store.Get) - close(store.Add) + 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) }