Test partial fetch

[reliable-chat] / server / server_test.go

diff --git a/server/server_test.go b/server/server_test.go
index 0afb3846d6c94bcdc304d959ebacc10a673c1e4b..13ad4a941e44c4fcfdc04ee922469c2b35f6cb06 100644 (file)
--- a/server/server_test.go
+++ b/server/server_test.go
@@ -1,24 +1,137 @@
 package main
 
 import "testing"
+import "runtime"
+import "strconv"
 import "time"
 
 func TestMessageInsertAndRetreive(t *testing.T) {
-       say := ""
+       say := "'Ello, Mister Polly Parrot!"
        at := time.Now()
        var zero_time time.Time
        store := start_store()
-       store.Add <- Message{at, say}
+       store.Add <- &Message{at, say}
        messages_from_store := make(chan []Message, 1)
-       store.Get <- StoreRequest{zero_time, messages_from_store}
+       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)
+}
+
+func TestFetchBlocksUntilSpeak(t *testing.T) {
+       start_fetch_wait_count := fetch_wait_count.String()
+       say := "I've got a lovely fresh cuttle fish for you"
+       at := time.Now()
+       var zero_time time.Time
+       store := start_store()
+       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}
+       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)
+}
+
+func TestMultipleListeners(t *testing.T) {
+       say := "This is your nine o'clock alarm call!"
+       at := time.Now()
+       var zero_time time.Time
+       store := start_store()
+       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}
+       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()
+               }
+       }
+       close(store.Get)
+       close(store.Add)
+}
+
+func parseDuration(s string) time.Duration {
+       d, err := time.ParseDuration(s)
+       if err != nil {
+               panic(err)
+       }
+       return d
+}
+
+func atoi(s string) int {
+       i, err := strconv.Atoi(s)
+       if err != nil {
+               panic(err)
+       }
+       return i
+}
+
+func TestPartialRetreive(t *testing.T) {
+       start_speak_count := atoi(speak_count.String())
+       say1 := "No, no.....No, 'e's stunned!"
+       say2 := "You stunned him, just as he was wakin' up!"
+       say3 := "Norwegian Blues stun easily, major."
+       base := time.Now()
+       at1 := base.Add(parseDuration("-4m"))
+       since := base.Add(parseDuration("-3m"))
+       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}
+       for atoi(speak_count.String()) != start_speak_count+3 {
+               runtime.Gosched()
+       }
+       messages_from_store := make(chan []Message, 1)
+       store.Get <- &StoreRequest{since, messages_from_store}
+       messages := <-messages_from_store
+       if len(messages) != 2 {
+               t.FailNow()
+       }
+       if messages[0].Time != at2 {
+               t.Fail()
+       }
+       if messages[0].Text != say2 {
+               t.Fail()
+       }
+       if messages[1].Time != at3 {
+               t.Fail()
+       }
+       if messages[1].Text != say3 {
+               t.Fail()
+       }
+       close(store.Get)
+       close(store.Add)
 }