1
1
package com .jnape .palatable .lambda .matchers ;
2
2
3
3
import com .jnape .palatable .lambda .adt .Either ;
4
+ import com .jnape .palatable .lambda .adt .hlist .Tuple2 ;
5
+ import com .jnape .palatable .lambda .io .IO ;
6
+ import com .jnape .palatable .lambda .monad .MonadRec ;
4
7
import com .jnape .palatable .lambda .monad .transformer .builtin .StateT ;
5
8
import org .junit .Test ;
6
9
import testsupport .matchers .StateTMatcher ;
@@ -36,21 +39,23 @@ public void whenExecWithMatcher() {
36
39
@ Test
37
40
public void whenRunWithUsingTwoMatchers () {
38
41
assertThat (stateT (Either .right (1 )),
39
- whenRunWith (left ("0" ), isRightThat (equalTo (1 )), isRightThat (isLeftThat (equalTo ("0" )))));
42
+ StateTMatcher .<Either <String , Integer >, Either <String , ?>, Integer , Either <String , Integer >, Either <String , Either <String , Integer >>, Either <String , Tuple2 <Integer , Either <String , Integer >>>>whenRunWith (left ("0" ),
43
+ isRightThat (equalTo (1 )), isRightThat (isLeftThat (equalTo ("0" )))));
40
44
}
41
45
42
46
@ Test
43
47
public void whenRunWithUsingOneTupleMatcher () {
44
48
assertThat (stateT (Either .right (1 )),
45
- whenRunWith (left ("0" ), isRightThat (equalTo (tuple (1 , left ("0" ))))));
49
+ StateTMatcher .<Either <String , Integer >, Either <String , ?>, Integer , Either <String , Integer >, Either <String , Either <String , Integer >>, Either <String , Tuple2 <Integer , Either <String , Integer >>>>whenRunWith (left ("0" ),
50
+ isRightThat (equalTo (tuple (1 , left ("0" ))))));
46
51
}
47
52
48
53
@ Test
49
54
public void onlyRunsStateOnceWithTupleMatcher () {
50
55
AtomicInteger count = new AtomicInteger (0 );
51
56
52
57
assertThat (StateT .gets (s -> io (count ::incrementAndGet )),
53
- whenRunWith (0 , yieldsValue (equalTo (tuple (1 , 0 )))));
58
+ StateTMatcher .< Integer , IO <?>, Integer , IO < Integer >, IO < Integer >, IO < Tuple2 < Integer , Integer >>> whenRunWith (0 , yieldsValue (equalTo (tuple (1 , 0 )))));
54
59
assertEquals (1 , count .get ());
55
60
}
56
61
}
0 commit comments