go/fp-go
1
0
Fork 0
mirror of https://github.com/IBM/fp-go.git synced 2025-08-10 22:31:32 +02:00
Code Issues Releases Activity

fix: refactor Writer monad

Browse Source 
Signed-off-by: Dr. Carsten Leue <carsten.leue@de.ibm.com>
This commit is contained in:
Dr. Carsten Leue
2024-02-13 10:44:57 +01:00
parent d0e4984b60
commit 01786a054b
10 changed files with 302 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
writer/bind_test.go
View File

@@ -34,33 +34,33 @@ var (
)
func getLastName(s utils.Initial) Writer[[]string, string] {
return Of[string](monoid)("Doe")
return Of[string](monoid, "Doe")
}
func getGivenName(s utils.WithLastName) Writer[[]string, string] {
return Of[string](monoid)("John")
return Of[string](monoid, "John")
}
func TestBind(t *testing.T) {
res := F.Pipe3(
Do[utils.Initial](monoid)(utils.Empty),
Bind(utils.SetLastName, getLastName),
Bind(utils.SetGivenName, getGivenName),
Do[utils.Initial](monoid, utils.Empty),
Bind(sg, utils.SetLastName, getLastName),
Bind(sg, utils.SetGivenName, getGivenName),
Map[[]string](utils.GetFullName),
)
assert.True(t, eq.Equals(res, Of[string](monoid)("John Doe")))
assert.True(t, eq.Equals(res, Of[string](monoid, "John Doe")))
}
func TestApS(t *testing.T) {
res := F.Pipe3(
Do[utils.Initial](monoid)(utils.Empty),
ApS(utils.SetLastName, Of[string](monoid)("Doe")),
ApS(utils.SetGivenName, Of[string](monoid)("John")),
Do[utils.Initial](monoid, utils.Empty),
ApS(sg, utils.SetLastName, Of[string](monoid, "Doe")),
ApS(sg, utils.SetGivenName, Of[string](monoid, "John")),
Map[[]string](utils.GetFullName),
)
assert.True(t, eq.Equals(res, Of[string](monoid)("John Doe")))
assert.True(t, eq.Equals(res, Of[string](monoid, "John Doe")))
}