+
+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)
+}