mirror of
https://github.com/IBM/fp-go.git
synced 2025-11-25 22:21:49 +02:00
34 lines
564 B
Go
34 lines
564 B
Go
package testing
|
|
|
|
import (
|
|
"fmt"
|
|
"testing"
|
|
|
|
EQ "github.com/IBM/fp-go/eq"
|
|
"github.com/stretchr/testify/assert"
|
|
)
|
|
|
|
func TestMonadLaws(t *testing.T) {
|
|
// some comparison
|
|
eqe := EQ.FromStrictEquals[string]()
|
|
eqa := EQ.FromStrictEquals[bool]()
|
|
eqb := EQ.FromStrictEquals[int]()
|
|
eqc := EQ.FromStrictEquals[string]()
|
|
|
|
ab := func(a bool) int {
|
|
if a {
|
|
return 1
|
|
}
|
|
return 0
|
|
}
|
|
|
|
bc := func(b int) string {
|
|
return fmt.Sprintf("value %d", b)
|
|
}
|
|
|
|
laws := AssertLaws(t, eqe, eqa, eqb, eqc, ab, bc)
|
|
|
|
assert.True(t, laws(true))
|
|
assert.True(t, laws(false))
|
|
}
|