commit 2faf5c438a60ae5cfcd3ee54b98cda5a3230b5c9 · kitten.sh/wonka

.jest.coverage.json

···

       2
       2
        
         "moduleFileExtensions": [

     

       3
       3
        
           "js"

     

       4
       4
        
         ],

     

       5
       5
       +
         "testMatch": [

     

       6
       6
       +
           "**/__tests__/*_test.js"

     

       7
       7
       +
         ],

     

       5
       8
        
         "modulePathIgnorePatterns": [

     

       6
       9
        
           "/es6/"

     

       7
       10
        
         ]

+353 -1

__tests__/wonka_test.re

···

       164
       164
        
           });

     

       165
       165
        
         });

     

       166
       166
        
       

     

       167
       167
       -
         describe("empty", () => {

     

       167
       167
       +
         describe("never", () => {

     

       168
       168
        
           open Expect;

     

       169
       169
        
           open! Expect.Operators;

     

       170
       170
        
       

     
···

       224
       224
        
       

     

       225
       225
        
             expect(nums) |> toEqual([|1, 2, 3, 4|])

     

       226
       226
        
           });

     

       227
       227
       +
       

     

       228
       228
       +
           testPromise("follows the spec for listenables", () => {

     

       229
       229
       +
             Wonka_thelpers.testWithListenable(Wonka.map(x => x))

     

       230
       230
       +
               |> Js.Promise.then_(x => {

     

       231
       231
       +
                 expect(x)

     

       232
       232
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       233
       233
       +
                   |> Js.Promise.resolve

     

       234
       234
       +
               })

     

       235
       235
       +
           });

     

       236
       236
       +
       

     

       237
       237
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       238
       238
       +
             let end_: talkbackT = End;

     

       239
       239
       +
       

     

       240
       240
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.map(x => x))

     

       241
       241
       +
               |> Js.Promise.then_(x => {

     

       242
       242
       +
                 expect(x)

     

       243
       243
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       244
       244
       +
                   |> Js.Promise.resolve

     

       245
       245
       +
               })

     

       246
       246
       +
           });

     

       227
       247
        
         });

     

       228
       248
        
       

     

       229
       249
        
         describe("filter", () => {

     
···

       261
       281
        
       

     

       262
       282
        
             expect(nums) |> toEqual([|2, 4|])

     

       263
       283
        
           });

     

       284
       284
       +
       

     

       285
       285
       +
           testPromise("follows the spec for listenables", () => {

     

       286
       286
       +
             Wonka_thelpers.testWithListenable(Wonka.filter((_) => true))

     

       287
       287
       +
               |> Js.Promise.then_(x => {

     

       288
       288
       +
                 expect(x)

     

       289
       289
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       290
       290
       +
                   |> Js.Promise.resolve

     

       291
       291
       +
               })

     

       292
       292
       +
           });

     

       293
       293
       +
       

     

       294
       294
       +
           testPromise("follows the spec for listenables when filtering", () => {

     

       295
       295
       +
             Wonka_thelpers.testWithListenable(Wonka.filter((_) => false))

     

       296
       296
       +
               |> Js.Promise.then_(x => {

     

       297
       297
       +
                 expect(x)

     

       298
       298
       +
                   |> toEqual(([| Pull, Pull |], [| End |]))

     

       299
       299
       +
                   |> Js.Promise.resolve

     

       300
       300
       +
               })

     

       301
       301
       +
           });

     

       302
       302
       +
       

     

       303
       303
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       304
       304
       +
             let end_: talkbackT = End;

     

       305
       305
       +
       

     

       306
       306
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.filter((_) => true))

     

       307
       307
       +
               |> Js.Promise.then_(x => {

     

       308
       308
       +
                 expect(x)

     

       309
       309
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       310
       310
       +
                   |> Js.Promise.resolve

     

       311
       311
       +
               })

     

       312
       312
       +
           });

     

       264
       313
        
         });

     

       265
       314
        
       

     

       266
       315
        
         describe("scan", () => {

     
···

       300
       349
        
             talkback^(Pull);

     

       301
       350
        
             expect(res) |> toEqual([| Push(1), Push(3), Push(6), End |]);

     

       302
       351
        
           });

     

       352
       352
       +
       

     

       353
       353
       +
           testPromise("follows the spec for listenables", () => {

     

       354
       354
       +
             Wonka_thelpers.testWithListenable(Wonka.scan((_, x) => x, 0))

     

       355
       355
       +
               |> Js.Promise.then_(x => {

     

       356
       356
       +
                 expect(x)

     

       357
       357
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       358
       358
       +
                   |> Js.Promise.resolve

     

       359
       359
       +
               })

     

       360
       360
       +
           });

     

       361
       361
       +
       

     

       362
       362
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       363
       363
       +
             let end_: talkbackT = End;

     

       364
       364
       +
       

     

       365
       365
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.scan((_, x) => x, 0))

     

       366
       366
       +
               |> Js.Promise.then_(x => {

     

       367
       367
       +
                 expect(x)

     

       368
       368
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       369
       369
       +
                   |> Js.Promise.resolve

     

       370
       370
       +
               })

     

       371
       371
       +
           });

     

       303
       372
        
         });

     

       304
       373
        
       

     

       305
       374
        
         describe("merge", () => {

     
···

       329
       398
        
       

     

       330
       399
        
             expect(signals) == [| Push(1), Push(4), Push(5), Push(6), Push(2), Push(3), End |];

     

       331
       400
        
           });

     

       401
       401
       +
       

     

       402
       402
       +
           testPromise("follows the spec for listenables", () => {

     

       403
       403
       +
             Wonka_thelpers.testWithListenable(source => Wonka.merge([|source|]))

     

       404
       404
       +
               |> Js.Promise.then_(x => {

     

       405
       405
       +
                 expect(x)

     

       406
       406
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       407
       407
       +
                   |> Js.Promise.resolve

     

       408
       408
       +
               })

     

       409
       409
       +
           });

     

       410
       410
       +
       

     

       411
       411
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       412
       412
       +
             let end_: talkbackT = End;

     

       413
       413
       +
       

     

       414
       414
       +
             Wonka_thelpers.testTalkbackEnd(source => Wonka.merge([|source|]))

     

       415
       415
       +
               |> Js.Promise.then_(x => {

     

       416
       416
       +
                 expect(x)

     

       417
       417
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       418
       418
       +
                   |> Js.Promise.resolve

     

       419
       419
       +
               })

     

       420
       420
       +
           });

     

       332
       421
        
         });

     

       333
       422
        
       

     

       334
       423
        
         describe("concat", () => {

     
···

       357
       446
        
             });

     

       358
       447
        
       

     

       359
       448
        
             expect(signals) == [| Push(1), Push(2), Push(3), Push(4), Push(5), Push(6), End |];

     

       449
       449
       +
           });

     

       450
       450
       +
       

     

       451
       451
       +
           testPromise("follows the spec for listenables", () => {

     

       452
       452
       +
             Wonka_thelpers.testWithListenable(source => Wonka.concat([|source|]))

     

       453
       453
       +
               |> Js.Promise.then_(x => {

     

       454
       454
       +
                 expect(x)

     

       455
       455
       +
                   |> toEqual(([| Pull |], [| Push(1), Push(2), End |]))

     

       456
       456
       +
                   |> Js.Promise.resolve

     

       457
       457
       +
               })

     

       458
       458
       +
           });

     

       459
       459
       +
       

     

       460
       460
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       461
       461
       +
             let end_: talkbackT = End;

     

       462
       462
       +
       

     

       463
       463
       +
             Wonka_thelpers.testTalkbackEnd(source => Wonka.concat([|source|]))

     

       464
       464
       +
               |> Js.Promise.then_(x => {

     

       465
       465
       +
                 expect(x)

     

       466
       466
       +
                   |> toEqual(([| Pull, end_ |], [| Push(1) |]))

     

       467
       467
       +
                   |> Js.Promise.resolve

     

       468
       468
       +
               })

     

       360
       469
        
           });

     

       361
       470
        
         });

     

       362
       471
        
       

     
···

       417
       526
        
             talkback^(Pull);

     

       418
       527
        
             expect((numsA, nums)) |> toEqual(([| Push(1), Push(1), Push(1) |], [| Push(1), Push(1), Push(1), Push(2), Push(2), End, End |]));

     

       419
       528
        
           });

     

       529
       529
       +
       

     

       530
       530
       +
           testPromise("follows the spec for listenables", () => {

     

       531
       531
       +
             Wonka_thelpers.testWithListenable(Wonka.share)

     

       532
       532
       +
               |> Js.Promise.then_(x => {

     

       533
       533
       +
                 expect(x)

     

       534
       534
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       535
       535
       +
                   |> Js.Promise.resolve

     

       536
       536
       +
               })

     

       537
       537
       +
           });

     

       538
       538
       +
       

     

       539
       539
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       540
       540
       +
             let end_: talkbackT = End;

     

       541
       541
       +
       

     

       542
       542
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.share)

     

       543
       543
       +
               |> Js.Promise.then_(x => {

     

       544
       544
       +
                 expect(x)

     

       545
       545
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       546
       546
       +
                   |> Js.Promise.resolve

     

       547
       547
       +
               })

     

       548
       548
       +
           });

     

       420
       549
        
         });

     

       421
       550
        
       

     

       422
       551
        
         describe("combine", () => {

     
···

       464
       593
        
             talkback^(Pull);

     

       465
       594
        
             expect(res) |> toEqual([| Push((1, 2)), Push((2, 2)), Push((2, 4)), End |]);

     

       466
       595
        
           });

     

       596
       596
       +
       

     

       597
       597
       +
           testPromise("follows the spec for listenables", () => {

     

       598
       598
       +
             Wonka_thelpers.testWithListenable(source => {

     

       599
       599
       +
               let shared = Wonka.share(source);

     

       600
       600
       +
               Wonka.combine(shared, shared)

     

       601
       601
       +
             })

     

       602
       602
       +
               |> Js.Promise.then_(x => {

     

       603
       603
       +
                 expect(x)

     

       604
       604
       +
                   |> toEqual(([||], [| Push((1, 1)), Push((2, 1)), Push((2, 2)), End |]))

     

       605
       605
       +
                   |> Js.Promise.resolve

     

       606
       606
       +
               })

     

       607
       607
       +
           });

     

       608
       608
       +
       

     

       609
       609
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       610
       610
       +
             let end_: talkbackT = End;

     

       611
       611
       +
       

     

       612
       612
       +
             Wonka_thelpers.testTalkbackEnd(source => {

     

       613
       613
       +
               let shared = Wonka.share(source);

     

       614
       614
       +
               Wonka.combine(shared, shared)

     

       615
       615
       +
             })

     

       616
       616
       +
               |> Js.Promise.then_(x => {

     

       617
       617
       +
                 expect(x)

     

       618
       618
       +
                   |> toEqual(([| end_ |], [| Push((1, 1)) |]))

     

       619
       619
       +
                   |> Js.Promise.resolve

     

       620
       620
       +
               })

     

       621
       621
       +
           });

     

       467
       622
        
         });

     

       468
       623
        
       

     

       469
       624
        
         describe("take", () => {

     
···

       533
       688
        
             talkback^(Pull);

     

       534
       689
        
             expect(res) |> toEqual([| Push(1), End |]);

     

       535
       690
        
           });

     

       691
       691
       +
       

     

       692
       692
       +
           testPromise("follows the spec for listenables", () => {

     

       693
       693
       +
             Wonka_thelpers.testWithListenable(Wonka.take(10))

     

       694
       694
       +
               |> Js.Promise.then_(x => {

     

       695
       695
       +
                 expect(x)

     

       696
       696
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       697
       697
       +
                   |> Js.Promise.resolve

     

       698
       698
       +
               })

     

       699
       699
       +
           });

     

       700
       700
       +
       

     

       701
       701
       +
           testPromise("follows the spec for listenables when ending the source", () => {

     

       702
       702
       +
             let end_: talkbackT = End;

     

       703
       703
       +
       

     

       704
       704
       +
             Wonka_thelpers.testWithListenable(Wonka.take(1))

     

       705
       705
       +
               |> Js.Promise.then_(x => {

     

       706
       706
       +
                 expect(x)

     

       707
       707
       +
                   |> toEqual(([| end_ |], [| Push(1), End |]))

     

       708
       708
       +
                   |> Js.Promise.resolve

     

       709
       709
       +
               })

     

       710
       710
       +
           });

     

       711
       711
       +
       

     

       712
       712
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       713
       713
       +
             let end_: talkbackT = End;

     

       714
       714
       +
       

     

       715
       715
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.take(10))

     

       716
       716
       +
               |> Js.Promise.then_(x => {

     

       717
       717
       +
                 expect(x)

     

       718
       718
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       719
       719
       +
                   |> Js.Promise.resolve

     

       720
       720
       +
               })

     

       721
       721
       +
           });

     

       536
       722
        
         });

     

       537
       723
        
       

     

       538
       724
        
         describe("takeLast", () => {

     
···

       568
       754
        
             talkback^(Pull);

     

       569
       755
        
             expect(res) |> toEqual([| Push(3), Push(4), End |]);

     

       570
       756
        
           });

     

       757
       757
       +
       

     

       758
       758
       +
           testPromise("follows the spec for listenables", () => {

     

       759
       759
       +
             Wonka_thelpers.testWithListenable(Wonka.takeLast(10))

     

       760
       760
       +
               |> Js.Promise.then_(x => {

     

       761
       761
       +
                 expect(x)

     

       762
       762
       +
                   |> toEqual(([| Pull, Pull, Pull |], [| /* empty since the source is a pullable */ |]))

     

       763
       763
       +
                   |> Js.Promise.resolve

     

       764
       764
       +
               })

     

       765
       765
       +
           });

     

       766
       766
       +
       

     

       767
       767
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       768
       768
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.takeLast(10))

     

       769
       769
       +
               |> Js.Promise.then_(x => {

     

       770
       770
       +
                 expect(x)

     

       771
       771
       +
                   |> toEqual(([| Pull, Pull |], [| |]))

     

       772
       772
       +
                   |> Js.Promise.resolve

     

       773
       773
       +
               })

     

       774
       774
       +
           });

     

       571
       775
        
         });

     

       572
       776
        
       

     

       573
       777
        
         describe("takeWhile", () => {

     
···

       639
       843
        
       

     

       640
       844
        
             expect(res) |> toEqual([| Push(1), End |]);

     

       641
       845
        
           });

     

       846
       846
       +
       

     

       847
       847
       +
           testPromise("follows the spec for listenables", () => {

     

       848
       848
       +
             Wonka_thelpers.testWithListenable(Wonka.takeWhile((_) => true))

     

       849
       849
       +
               |> Js.Promise.then_(x => {

     

       850
       850
       +
                 expect(x)

     

       851
       851
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       852
       852
       +
                   |> Js.Promise.resolve

     

       853
       853
       +
               })

     

       854
       854
       +
           });

     

       855
       855
       +
       

     

       856
       856
       +
           testPromise("follows the spec for listenables when ending the source", () => {

     

       857
       857
       +
             let end_: talkbackT = End;

     

       858
       858
       +
       

     

       859
       859
       +
             Wonka_thelpers.testWithListenable(Wonka.takeWhile((_) => false))

     

       860
       860
       +
               |> Js.Promise.then_(x => {

     

       861
       861
       +
                 expect(x)

     

       862
       862
       +
                   |> toEqual(([| end_ |], [| End |]))

     

       863
       863
       +
                   |> Js.Promise.resolve

     

       864
       864
       +
               })

     

       865
       865
       +
           });

     

       866
       866
       +
       

     

       867
       867
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       868
       868
       +
             let end_: talkbackT = End;

     

       869
       869
       +
       

     

       870
       870
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.takeWhile((_) => true))

     

       871
       871
       +
               |> Js.Promise.then_(x => {

     

       872
       872
       +
                 expect(x)

     

       873
       873
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       874
       874
       +
                   |> Js.Promise.resolve

     

       875
       875
       +
               })

     

       876
       876
       +
           });

     

       642
       877
        
         });

     

       643
       878
        
       

     

       644
       879
        
         describe("takeUntil", () => {

     
···

       722
       957
        
             talkback^(Pull);

     

       723
       958
        
       

     

       724
       959
        
             expect(res) |> toEqual([| Push(1), Push(2), End |]);

     

       960
       960
       +
           });

     

       725
       961
        
       

     

       962
       962
       +
           testPromise("follows the spec for listenables", () => {

     

       963
       963
       +
             Wonka_thelpers.testWithListenable(Wonka.takeUntil(Wonka.never))

     

       964
       964
       +
               |> Js.Promise.then_(x => {

     

       965
       965
       +
                 expect(x)

     

       966
       966
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       967
       967
       +
                   |> Js.Promise.resolve

     

       968
       968
       +
               })

     

       969
       969
       +
           });

     

       970
       970
       +
       

     

       971
       971
       +
           testPromise("follows the spec for listenables when ending the source", () => {

     

       972
       972
       +
             let end_: talkbackT = End;

     

       973
       973
       +
       

     

       974
       974
       +
             Wonka_thelpers.testWithListenable(Wonka.takeUntil(Wonka.fromValue(0)))

     

       975
       975
       +
               |> Js.Promise.then_(x => {

     

       976
       976
       +
                 expect(x)

     

       977
       977
       +
                   |> toEqual(([| end_ |], [| End |]))

     

       978
       978
       +
                   |> Js.Promise.resolve

     

       979
       979
       +
               })

     

       980
       980
       +
           });

     

       981
       981
       +
       

     

       982
       982
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       983
       983
       +
             let end_: talkbackT = End;

     

       984
       984
       +
       

     

       985
       985
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.takeUntil(Wonka.never))

     

       986
       986
       +
               |> Js.Promise.then_(x => {

     

       987
       987
       +
                 expect(x)

     

       988
       988
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       989
       989
       +
                   |> Js.Promise.resolve

     

       990
       990
       +
               })

     

       726
       991
        
           });

     

       727
       992
        
         });

     

       728
       993
        
       

     
···

       759
       1024
        
             talkback^(Pull);

     

       760
       1025
        
             expect(res) |> toEqual([| Push(3), Push(4), End |]);

     

       761
       1026
        
           });

     

       1027
       1027
       +
       

     

       1028
       1028
       +
           testPromise("follows the spec for listenables", () => {

     

       1029
       1029
       +
             Wonka_thelpers.testWithListenable(Wonka.skip(0))

     

       1030
       1030
       +
               |> Js.Promise.then_(x => {

     

       1031
       1031
       +
                 expect(x)

     

       1032
       1032
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       1033
       1033
       +
                   |> Js.Promise.resolve

     

       1034
       1034
       +
               })

     

       1035
       1035
       +
           });

     

       1036
       1036
       +
       

     

       1037
       1037
       +
           testPromise("follows the spec for listenables when skipping the source", () => {

     

       1038
       1038
       +
             Wonka_thelpers.testWithListenable(Wonka.skip(10))

     

       1039
       1039
       +
               |> Js.Promise.then_(x => {

     

       1040
       1040
       +
                 expect(x)

     

       1041
       1041
       +
                   |> toEqual(([| Pull, Pull |], [| End |]))

     

       1042
       1042
       +
                   |> Js.Promise.resolve

     

       1043
       1043
       +
               })

     

       1044
       1044
       +
           });

     

       1045
       1045
       +
       

     

       1046
       1046
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       1047
       1047
       +
             let end_: talkbackT = End;

     

       1048
       1048
       +
       

     

       1049
       1049
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.skip(10))

     

       1050
       1050
       +
               |> Js.Promise.then_(x => {

     

       1051
       1051
       +
                 expect(x)

     

       1052
       1052
       +
                   |> toEqual(([| Pull, end_ |], [| |]))

     

       1053
       1053
       +
                   |> Js.Promise.resolve

     

       1054
       1054
       +
               })

     

       1055
       1055
       +
           });

     

       762
       1056
        
         });

     

       763
       1057
        
       

     

       764
       1058
        
         describe("skipWhile", () => {

     
···

       794
       1088
        
             talkback^(Pull);

     

       795
       1089
        
             expect(res) |> toEqual([| Push(3), Push(4), End |]);

     

       796
       1090
        
           });

     

       1091
       1091
       +
       

     

       1092
       1092
       +
           testPromise("follows the spec for listenables", () => {

     

       1093
       1093
       +
             Wonka_thelpers.testWithListenable(Wonka.skipWhile((_) => false))

     

       1094
       1094
       +
               |> Js.Promise.then_(x => {

     

       1095
       1095
       +
                 expect(x)

     

       1096
       1096
       +
                   |> toEqual(([||], [| Push(1), Push(2), End |]))

     

       1097
       1097
       +
                   |> Js.Promise.resolve

     

       1098
       1098
       +
               })

     

       1099
       1099
       +
           });

     

       1100
       1100
       +
       

     

       1101
       1101
       +
           testPromise("follows the spec for listenables when skipping the source", () => {

     

       1102
       1102
       +
             Wonka_thelpers.testWithListenable(Wonka.skipWhile((_) => true))

     

       1103
       1103
       +
               |> Js.Promise.then_(x => {

     

       1104
       1104
       +
                 expect(x)

     

       1105
       1105
       +
                   |> toEqual(([| Pull, Pull |], [| End |]))

     

       1106
       1106
       +
                   |> Js.Promise.resolve

     

       1107
       1107
       +
               })

     

       1108
       1108
       +
           });

     

       1109
       1109
       +
       

     

       1110
       1110
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       1111
       1111
       +
             let end_: talkbackT = End;

     

       1112
       1112
       +
       

     

       1113
       1113
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.skipWhile((_) => false))

     

       1114
       1114
       +
               |> Js.Promise.then_(x => {

     

       1115
       1115
       +
                 expect(x)

     

       1116
       1116
       +
                   |> toEqual(([| end_ |], [| Push(1) |]))

     

       1117
       1117
       +
                   |> Js.Promise.resolve

     

       1118
       1118
       +
               })

     

       1119
       1119
       +
           });

     

       797
       1120
        
         });

     

       798
       1121
        
       

     

       799
       1122
        
         describe("skipUntil", () => {

     
···

       877
       1200
        
             talkback^(Pull);

     

       878
       1201
        
       

     

       879
       1202
        
             expect(res) |> toEqual([| End |]);

     

       1203
       1203
       +
           });

     

       1204
       1204
       +
       

     

       1205
       1205
       +
           testPromise("follows the spec for listenables", () => {

     

       1206
       1206
       +
             Wonka_thelpers.testWithListenable(Wonka.skipUntil(Wonka.never))

     

       1207
       1207
       +
               |> Js.Promise.then_(x => {

     

       1208
       1208
       +
                 expect(x)

     

       1209
       1209
       +
                   |> toEqual(([| Pull, Pull, Pull |], [| End |]))

     

       1210
       1210
       +
                   |> Js.Promise.resolve

     

       1211
       1211
       +
               })

     

       1212
       1212
       +
           });

     

       1213
       1213
       +
       

     

       1214
       1214
       +
           testPromise("follows the spec for listenables when skipping the source", () => {

     

       1215
       1215
       +
             Wonka_thelpers.testWithListenable(Wonka.skipUntil(Wonka.fromValue(0)))

     

       1216
       1216
       +
               |> Js.Promise.then_(x => {

     

       1217
       1217
       +
                 expect(x)

     

       1218
       1218
       +
                   |> toEqual(([| Pull |], [| Push(1), Push(2), End |]))

     

       1219
       1219
       +
                   |> Js.Promise.resolve

     

       1220
       1220
       +
               })

     

       1221
       1221
       +
           });

     

       1222
       1222
       +
       

     

       1223
       1223
       +
           testPromise("ends itself and source when its talkback receives the End signal", () => {

     

       1224
       1224
       +
             let end_: talkbackT = End;

     

       1225
       1225
       +
       

     

       1226
       1226
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.skipUntil(Wonka.fromValue(0)))

     

       1227
       1227
       +
               |> Js.Promise.then_(x => {

     

       1228
       1228
       +
                 expect(x)

     

       1229
       1229
       +
                   |> toEqual(([| Pull, end_ |], [| Push(1) |]))

     

       1230
       1230
       +
                   |> Js.Promise.resolve

     

       1231
       1231
       +
               })

     

       880
       1232
        
           });

     

       881
       1233
        
         });

     

       882
       1234

+63

__tests__/wonka_thelpers.re

···

       1
       1
       +
       open Wonka_types;

     

       2
       2
       +
       

     

       3
       3
       +
       let testWithListenable = operator => {

     

       4
       4
       +
         let sink = ref((_: signalT(int)) => ());

     

       5
       5
       +
         let signals = [||];

     

       6
       6
       +
         let source = x => {

     

       7
       7
       +
           sink := x;

     

       8
       8
       +
           x(Start(signal => {

     

       9
       9
       +
             ignore(Js.Array.push(signal, signals))

     

       10
       10
       +
           }));

     

       11
       11
       +
         };

     

       12
       12
       +
       

     

       13
       13
       +
         let talkback = ref((_: talkbackT) => ());

     

       14
       14
       +
         let res = [||];

     

       15
       15
       +
         operator(source)(signal => {

     

       16
       16
       +
           switch (signal) {

     

       17
       17
       +
           | Start(x) => talkback := x

     

       18
       18
       +
           | _ => ignore(Js.Array.push(signal, res))

     

       19
       19
       +
           }

     

       20
       20
       +
         });

     

       21
       21
       +
       

     

       22
       22
       +
         Js.Promise.make((~resolve, ~reject as _) => {

     

       23
       23
       +
           sink^(Push(1));

     

       24
       24
       +
           ignore(Js.Global.setTimeout(() => {

     

       25
       25
       +
             sink^(Push(2));

     

       26
       26
       +
             ignore(Js.Global.setTimeout(() => {

     

       27
       27
       +
               sink^(End);

     

       28
       28
       +
               ignore(Js.Global.setTimeout(() => {

     

       29
       29
       +
                 [@bs] resolve((signals, res));

     

       30
       30
       +
               }, 0));

     

       31
       31
       +
             }, 0));

     

       32
       32
       +
           }, 0));

     

       33
       33
       +
         })

     

       34
       34
       +
       };

     

       35
       35
       +
       

     

       36
       36
       +
       let testTalkbackEnd = operator => {

     

       37
       37
       +
         let sink = ref((_: signalT(int)) => ());

     

       38
       38
       +
         let signals: array(talkbackT) = [||];

     

       39
       39
       +
         let source = x => {

     

       40
       40
       +
           x(Start(signal => ignore(Js.Array.push(signal, signals))));

     

       41
       41
       +
           sink := x;

     

       42
       42
       +
         };

     

       43
       43
       +
       

     

       44
       44
       +
         let talkback = ref((_: talkbackT) => ());

     

       45
       45
       +
         let res = [||];

     

       46
       46
       +
         operator(source)(signal => {

     

       47
       47
       +
           switch (signal) {

     

       48
       48
       +
           | Start(x) => talkback := x

     

       49
       49
       +
           | _ => ignore(Js.Array.push(signal, res))

     

       50
       50
       +
           }

     

       51
       51
       +
         });

     

       52
       52
       +
       

     

       53
       53
       +
         Js.Promise.make((~resolve, ~reject as _) => {

     

       54
       54
       +
           sink^(Push(1));

     

       55
       55
       +
           ignore(Js.Global.setTimeout(() => {

     

       56
       56
       +
             let end_: talkbackT = End;

     

       57
       57
       +
             talkback^(end_);

     

       58
       58
       +
             ignore(Js.Global.setTimeout(() => {

     

       59
       59
       +
               [@bs] resolve((signals, res));

     

       60
       60
       +
             }, 0));

     

       61
       61
       +
           }, 0));

     

       62
       62
       +
         })

     

       63
       63
       +
       };

+37 -23

src/wonka.re

···

       244
       244
        
         sourceA(signal => {

     

       245
       245
        
           switch (signal, state.lastValB) {

     

       246
       246
        
           | (Start(tb), _) => state.talkbackA = tb

     

       247
       247
       -
           | (Push(a), None) => state.lastValA = Some(a)

     

       247
       247
       +
           | (Push(a), None) => {

     

       248
       248
       +
             state.lastValA = Some(a);

     

       249
       249
       +
             state.gotSignal = false;

     

       250
       250
       +
           }

     

       248
       251
        
           | (Push(a), Some(b)) when !state.ended => {

     

       249
       252
        
             state.lastValA = Some(a);

     

       250
       253
        
             state.gotSignal = false;

     
···

       252
       255
        
           }

     

       253
       256
        
           | (End, _) when state.endCounter < 1 =>

     

       254
       257
        
             state.endCounter = state.endCounter + 1

     

       255
       255
       -
           | (End, _) => {

     

       256
       256
       -
             print_endline("end");

     

       257
       257
       -
             sink(End)

     

       258
       258
       +
           | (End, _) when !state.ended => {

     

       259
       259
       +
             state.ended = true;

     

       260
       260
       +
             sink(End);

     

       258
       261
        
           }

     

       259
       262
        
           | _ => ()

     

       260
       263
        
           }

     
···

       263
       266
        
         sourceB(signal => {

     

       264
       267
        
           switch (signal, state.lastValA) {

     

       265
       268
        
           | (Start(tb), _) => state.talkbackB = tb

     

       266
       266
       -
           | (Push(b), None) => state.lastValB = Some(b)

     

       269
       269
       +
           | (Push(b), None) => {

     

       270
       270
       +
             state.lastValB = Some(b);

     

       271
       271
       +
             state.gotSignal = false;

     

       272
       272
       +
           }

     

       267
       273
        
           | (Push(b), Some(a)) when !state.ended => {

     

       268
       274
        
             state.lastValB = Some(b);

     

       269
       275
        
             state.gotSignal = false;

     
···

       271
       277
        
           }

     

       272
       278
        
           | (End, _) when state.endCounter < 1 =>

     

       273
       279
        
             state.endCounter = state.endCounter + 1

     

       274
       274
       -
           | (End, _) => sink(End)

     

       280
       280
       +
           | (End, _) when !state.ended => {

     

       281
       281
       +
             state.ended = true;

     

       282
       282
       +
             sink(End);

     

       283
       283
       +
           }

     

       275
       284
        
           | _ => ()

     

       276
       285
        
           }

     

       277
       286
        
         });

     

       278
       287
        
       

     

       279
       288
        
         sink(Start(signal => {

     

       280
       280
       -
           switch (signal) {

     

       281
       281
       -
           | End => {

     

       282
       282
       -
             state.ended = true;

     

       283
       283
       -
             state.talkbackA(End);

     

       284
       284
       -
             state.talkbackB(End);

     

       285
       285
       -
           }

     

       286
       286
       -
           | Pull when !state.gotSignal => {

     

       287
       287
       -
             state.gotSignal = true;

     

       288
       288
       -
             state.talkbackA(signal);

     

       289
       289
       -
             state.talkbackB(signal);

     

       290
       290
       -
           }

     

       291
       291
       -
           | Pull => ()

     

       292
       292
       -
           }

     

       289
       289
       +
           if (!state.ended) {

     

       290
       290
       +
             switch (signal) {

     

       291
       291
       +
             | End => {

     

       292
       292
       +
               state.ended = true;

     

       293
       293
       +
               state.talkbackA(End);

     

       294
       294
       +
               state.talkbackB(End);

     

       295
       295
       +
             }

     

       296
       296
       +
             | Pull when !state.gotSignal => {

     

       297
       297
       +
               state.gotSignal = true;

     

       298
       298
       +
               state.talkbackA(signal);

     

       299
       299
       +
               state.talkbackB(signal);

     

       300
       300
       +
             }

     

       301
       301
       +
             | Pull => ()

     

       302
       302
       +
             }

     

       303
       303
       +
           };

     

       293
       304
        
         }));

     

       294
       305
        
       };

     

       295
       306
        
       

     
···

       317
       328
        
             };

     

       318
       329
        
           }

     

       319
       330
        
           | Push(_) => ()

     

       320
       320
       -
           | End => {

     

       331
       331
       +
           | End when state.taken < max => {

     

       321
       332
        
             state.taken = max;

     

       322
       333
        
             sink(End)

     

       323
       334
        
           }

     

       335
       335
       +
           | End => ()

     

       324
       336
        
           }

     

       325
       337
        
         });

     

       326
       338
        
       

     
···

       367
       379
        
             talkback := tb;

     

       368
       380
        
             sink(signal);

     

       369
       381
        
           }

     

       370
       370
       -
           | End => {

     

       382
       382
       +
           | End when !ended^ => {

     

       371
       383
        
             ended := true;

     

       372
       384
        
             sink(End);

     

       373
       385
        
           }

     

       386
       386
       +
           | End => ()

     

       374
       387
        
           | Push(x) when !ended^ => {

     

       375
       388
        
             if (!predicate(x)) {

     

       376
       389
        
               ended := true;

     
···

       431
       444
        
               }

     

       432
       445
        
             });

     

       433
       446
        
           }

     

       434
       434
       -
           | End => {

     

       435
       435
       -
             if (!state.ended) state.notifierTalkback(End);

     

       447
       447
       +
           | End when !state.ended => {

     

       448
       448
       +
             state.notifierTalkback(End);

     

       436
       449
        
             state.ended = true;

     

       437
       450
        
             sink(End);

     

       438
       451
        
           }

     

       452
       452
       +
           | End => ()

     

       439
       453
        
           | Push(_) when !state.ended => sink(signal)

     

       440
       454
        
           | Push(_) => ()

     

       441
       455
        
           }