コード例 #1
0
ファイル: plist.go プロジェクト: dmiller/go-seq
func (p *PList) Equiv(o interface{}) bool {
	if p == o {
		return true
	}

	if os, ok := o.(iseq.Seqable); ok {
		return sequtil.SeqEquiv(p.Seq(), os.Seq())
	}

	return false
}
コード例 #2
0
ファイル: cons.go プロジェクト: dmiller/go-seq
// Equiv returns true if this Cons is eqivalent to the given object, treated as an iseq.Seqable.
func (c *Cons) Equiv(o interface{}) bool {
	if c == o {
		return true
	}

	if os, ok := o.(iseq.Seqable); ok {
		return sequtil.SeqEquiv(c, os.Seq())
	}

	// TODO: handle built-in 'sequable' things such as arrays, slices, strings
	return false
}
コード例 #3
0
ファイル: pvector_test.go プロジェクト: dmiller/go-seq
func TestPVectorAssocN(t *testing.T) {
	v3o := NewPVectorFromItems("abc", 4, 5)
	v3 := NewPVectorFromItems("abc", 4, 5)
	v3a := v3.AssocN(1, "def")
	if !sequtil.SeqEquiv(v3o.Seq(), v3.Seq()) {
		t.Error("PVector.AssocN: appears to have mutated original")
	}
	if v3a.Count() != v3.Count() {
		t.Errorf("PVector.AssocN: count should be %v, got %v", v3.Count(), v3a.Count())
	}
	v3t := NewPVectorFromItems("abc", "def", 5)
	if !sequtil.SeqEquiv(v3a.Seq(), v3t.Seq()) {
		t.Errorf("PVector.AssocN: wrong items")
	}

	v4a := v3.AssocN(3, "pqr")
	if !sequtil.SeqEquiv(v3o.Seq(), v3.Seq()) {
		t.Error("PVector.AssocN: appears to have mutated original")
	}
	if v4a.Count() != v3.Count()+1 {
		t.Errorf("PVector.AssocN: appending count should be %v, got %v", v3.Count()+1, v3a.Count())
	}
	v4t := NewPVectorFromItems("abc", 4, 5, "pqr")
	if !sequtil.SeqEquiv(v4a.Seq(), v4t.Seq()) {
		t.Errorf("PVector.AssocN: wrong items on append")
	}

	v1a := NewPVectorFromItems().AssocN(0, "abc")
	if c := v1a.Count(); c != 1 {
		t.Errorf("PVector.AssocN: appending to empty should have one element, found %v", c)
	}

	if e := v1a.Nth(0); e != "abc" {
		t.Errorf("PVector.AssocN: appending to empty, first (only) element should be abc, got %v", e)
	}
}
コード例 #4
0
ファイル: pvector_test.go プロジェクト: dmiller/go-seq
func TestPVectorConses(t *testing.T) {
	v3 := NewPVectorFromItems("abc", 4, 5)

	s4 := v3.Seq().ConsS(12)

	if s4.Count() != 4 {
		t.Error("SCons of PVector.Seq has wrong count")
	}

	if s4.First() != 12 {
		t.Error("SCons of PVector.Seq has wrong first item")
	}
	if !sequtil.SeqEquiv(s4.Next(), v3.Seq()) {
		t.Error("SCons of PVector.Seq has wrong next seq")
	}
}
コード例 #5
0
ファイル: pvector_test.go プロジェクト: dmiller/go-seq
func TestPVectorCons(t *testing.T) {
	v3 := NewPVectorFromItems("abc", 4, 5)
	v4 := v3.ConsV(12)

	c4 := v3.Cons(12)

	if c4.Count() != 4 {
		t.Error("Cons of PVector has wrong count")
	}
	vc4, vok := c4.(*PVector)
	if !vok {
		t.Errorf("Cons of PVector should be a PVector, got %T", vc4)
	}

	for i := 0; i < c4.Count(); i++ {
		if vc4.Nth(i) != v4.Nth(i) {
			t.Errorf("Cons of PVector has wrong item at %v", i)
		}
	}

	if !sequtil.SeqEquiv(c4.Seq(), v4.Seq()) {
		t.Error("Something wrong with Seq()ing on PVector")
	}
}