This is how clients de-dupe.
type Message struct {
Time time.Time
type Message struct {
Time time.Time
})
http.HandleFunc("/speak", func(w http.ResponseWriter, r *http.Request) {
})
http.HandleFunc("/speak", func(w http.ResponseWriter, r *http.Request) {
- store.Add <- &Message{time.Now(), r.FormValue("text")}
+ store.Add <- &Message{
+ time.Now(),
+ r.FormValue("id"),
+ r.FormValue("text")}
})
log.Fatal(http.ListenAndServe(":"+strconv.Itoa(*port), nil))
})
log.Fatal(http.ListenAndServe(":"+strconv.Itoa(*port), nil))
import "time"
func TestMessageInsertAndRetreive(t *testing.T) {
import "time"
func TestMessageInsertAndRetreive(t *testing.T) {
say := "'Ello, Mister Polly Parrot!"
at := time.Now()
var zero_time time.Time
store := start_store()
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, id, say}
messages_from_store := make(chan []Message, 1)
store.Get <- &StoreRequest{zero_time, messages_from_store}
messages := <-messages_from_store
messages_from_store := make(chan []Message, 1)
store.Get <- &StoreRequest{zero_time, messages_from_store}
messages := <-messages_from_store
if messages[0].Time != at {
t.Fail()
}
if messages[0].Time != at {
t.Fail()
}
+ if messages[0].ID != id {
+ t.Fail()
+ }
if messages[0].Text != say {
t.Fail()
}
if messages[0].Text != say {
t.Fail()
}
func TestFetchBlocksUntilSpeak(t *testing.T) {
start_fetch_wait_count := fetch_wait_count.String()
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
say := "I've got a lovely fresh cuttle fish for you"
at := time.Now()
var zero_time time.Time
for start_fetch_wait_count == fetch_wait_count.String() {
runtime.Gosched()
}
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()
messages := <-messages_from_store
if len(messages) != 1 {
t.FailNow()
if messages[0].Time != at {
t.Fail()
}
if messages[0].Time != at {
t.Fail()
}
+ if messages[0].ID != id {
+ t.Fail()
+ }
if messages[0].Text != say {
t.Fail()
}
if messages[0].Text != say {
t.Fail()
}
}
func TestMultipleListeners(t *testing.T) {
}
func TestMultipleListeners(t *testing.T) {
say := "This is your nine o'clock alarm call!"
at := time.Now()
var zero_time time.Time
say := "This is your nine o'clock alarm call!"
at := time.Now()
var zero_time time.Time
messages_from_store[i] = make(chan []Message, 1)
store.Get <- &StoreRequest{zero_time, messages_from_store[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 {
for i := 0; i < num_clients; i++ {
messages := <-messages_from_store[i]
if len(messages) != 1 {
if messages[0].Time != at {
t.Fail()
}
if messages[0].Time != at {
t.Fail()
}
+ if messages[0].ID != id {
+ t.Fail()
+ }
if messages[0].Text != say {
t.Fail()
}
if messages[0].Text != say {
t.Fail()
}
func TestPartialRetreive(t *testing.T) {
start_speak_count := atoi(speak_count.String())
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."
say1 := "No, no.....No, 'e's stunned!"
say2 := "You stunned him, just as he was wakin' up!"
say3 := "Norwegian Blues stun easily, major."
at2 := base.Add(parseDuration("-2m"))
at3 := base.Add(parseDuration("-1m"))
store := start_store()
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}
+ 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()
}
for atoi(speak_count.String()) != start_speak_count+3 {
runtime.Gosched()
}
if messages[0].Time != at2 {
t.Fail()
}
if messages[0].Time != at2 {
t.Fail()
}
+ if messages[0].ID != id2 {
+ t.Fail()
+ }
if messages[0].Text != say2 {
t.Fail()
}
if messages[1].Time != at3 {
t.Fail()
}
if messages[0].Text != say2 {
t.Fail()
}
if messages[1].Time != at3 {
t.Fail()
}
+ if messages[1].ID != id3 {
+ t.Fail()
+ }
if messages[1].Text != say3 {
t.Fail()
}
if messages[1].Text != say3 {
t.Fail()
}
func TestPrecisePartialRetreive(t *testing.T) {
start_speak_count := atoi(speak_count.String())
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?"
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?"
at3 := base.Add(parseDuration("-1m"))
since := at2
store := start_store()
at3 := base.Add(parseDuration("-1m"))
since := at2
store := start_store()
- store.Add <- &Message{at1, say1}
- store.Add <- &Message{at2, say2}
- store.Add <- &Message{at3, say3}
+ 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()
}
for atoi(speak_count.String()) != start_speak_count+3 {
runtime.Gosched()
}
if messages[0].Time != at3 {
t.Fail()
}
if messages[0].Time != at3 {
t.Fail()
}
+ if messages[0].ID != id3 {
+ t.Fail()
+ }
if messages[0].Text != say3 {
t.Fail()
}
if messages[0].Text != say3 {
t.Fail()
}
}
func TestTypicalFlow(t *testing.T) {
}
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()
say1 := "The Norwegian Blue prefers kippin' on it's back!"
say2 := "Remarkable bird, innit, squire? Lovely plumage!"
store := start_store()
// Someone speaks. This triggers delivery.
at1 := time.Now()
// Someone speaks. This triggers delivery.
at1 := time.Now()
- store.Add <- &Message{at1, say1}
+ store.Add <- &Message{at1, id1, say1}
messages1 := <-fetch1
if len(messages1) != 1 {
t.FailNow()
messages1 := <-fetch1
if len(messages1) != 1 {
t.FailNow()
if messages1[0].Time != at1 {
t.Fail()
}
if messages1[0].Time != at1 {
t.Fail()
}
+ if messages1[0].ID != id1 {
+ t.Fail()
+ }
if messages1[0].Text != say1 {
t.Fail()
}
if messages1[0].Text != say1 {
t.Fail()
}
if !at2.After(at1) {
t.Fail()
}
if !at2.After(at1) {
t.Fail()
}
- store.Add <- &Message{at2, say2}
+ store.Add <- &Message{at2, id2, say2}
messages2 := <-fetch2
if len(messages2) != 1 {
t.FailNow()
messages2 := <-fetch2
if len(messages2) != 1 {
t.FailNow()
if messages2[0].Time != at2 {
t.Fail()
}
if messages2[0].Time != at2 {
t.Fail()
}
+ if messages2[0].ID != id2 {
+ t.Fail()
+ }
if messages2[0].Text != say2 {
t.Fail()
}
if messages2[0].Text != say2 {
t.Fail()
}