commit 2faf5c438a60ae5cfcd3ee54b98cda5a3230b5c9 · kitten.sh/wonka

.jest.coverage.json

···

       2
        
         "moduleFileExtensions": [

     

       3
        
           "js"

     

       4
        
         ],

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       5
        
         "modulePathIgnorePatterns": [

     

       6
        
           "/es6/"

     

       7
        
         ]

···

       2
        
         "moduleFileExtensions": [

     

       3
        
           "js"

     

       4
        
         ],

     

       5
       +
         "testMatch": [

     

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

     

       7
       +
         ],

     

       8
        
         "modulePathIgnorePatterns": [

     

       9
        
           "/es6/"

     

       10
        
         ]

+353 -1

__tests__/wonka_test.re

···

       164
        
           });

     

       165
        
         });

     

       166
        
       

     

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

     

       168
        
           open Expect;

     

       169
        
           open! Expect.Operators;

     

       170
        
       

     
···

       224
        
       

     

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

     

       226
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       227
        
         });

     

       228
        
       

     

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

     
···

       261
        
       

     

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

     

       263
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       264
        
         });

     

       265
        
       

     

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

     
···

       300
        
             talkback^(Pull);

     

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

     

       302
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       303
        
         });

     

       304
        
       

     

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

     
···

       329
        
       

     

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

     

       331
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       332
        
         });

     

       333
        
       

     

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

     
···

       357
        
             });

     

       358
        
       

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       360
        
           });

     

       361
        
         });

     

       362
        
       

     
···

       417
        
             talkback^(Pull);

     

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

     

       419
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       420
        
         });

     

       421
        
       

     

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

     
···

       464
        
             talkback^(Pull);

     

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

     

       466
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       467
        
         });

     

       468
        
       

     

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

     
···

       533
        
             talkback^(Pull);

     

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

     

       535
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       536
        
         });

     

       537
        
       

     

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

     
···

       568
        
             talkback^(Pull);

     

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

     

       570
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       571
        
         });

     

       572
        
       

     

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

     
···

       639
        
       

     

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

     

       641
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       642
        
         });

     

       643
        
       

     

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

     
···

       722
        
             talkback^(Pull);

     

       723
        
       

     

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

     

       0
        
       
     

       725
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       726
        
           });

     

       727
        
         });

     

       728
        
       

     
···

       759
        
             talkback^(Pull);

     

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

     

       761
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       762
        
         });

     

       763
        
       

     

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

     
···

       794
        
             talkback^(Pull);

     

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

     

       796
        
           });

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       797
        
         });

     

       798
        
       

     

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

     
···

       877
        
             talkback^(Pull);

     

       878
        
       

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       880
        
           });

     

       881
        
         });

     

       882

···

       164
        
           });

     

       165
        
         });

     

       166
        
       

     

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

     

       168
        
           open Expect;

     

       169
        
           open! Expect.Operators;

     

       170
        
       

     
···

       224
        
       

     

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

     

       226
        
           });

     

       227
       +
       

     

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

     

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

     

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

     

       231
       +
                 expect(x)

     

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

     

       233
       +
                   |> Js.Promise.resolve

     

       234
       +
               })

     

       235
       +
           });

     

       236
       +
       

     

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

     

       238
       +
             let end_: talkbackT = End;

     

       239
       +
       

     

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

     

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

     

       242
       +
                 expect(x)

     

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

     

       244
       +
                   |> Js.Promise.resolve

     

       245
       +
               })

     

       246
       +
           });

     

       247
        
         });

     

       248
        
       

     

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

     
···

       281
        
       

     

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

     

       283
        
           });

     

       284
       +
       

     

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

     

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

     

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

     

       288
       +
                 expect(x)

     

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

     

       290
       +
                   |> Js.Promise.resolve

     

       291
       +
               })

     

       292
       +
           });

     

       293
       +
       

     

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

     

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

     

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

     

       297
       +
                 expect(x)

     

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

     

       299
       +
                   |> Js.Promise.resolve

     

       300
       +
               })

     

       301
       +
           });

     

       302
       +
       

     

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

     

       304
       +
             let end_: talkbackT = End;

     

       305
       +
       

     

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

     

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

     

       308
       +
                 expect(x)

     

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

     

       310
       +
                   |> Js.Promise.resolve

     

       311
       +
               })

     

       312
       +
           });

     

       313
        
         });

     

       314
        
       

     

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

     
···

       349
        
             talkback^(Pull);

     

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

     

       351
        
           });

     

       352
       +
       

     

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

     

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

     

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

     

       356
       +
                 expect(x)

     

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

     

       358
       +
                   |> Js.Promise.resolve

     

       359
       +
               })

     

       360
       +
           });

     

       361
       +
       

     

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

     

       363
       +
             let end_: talkbackT = End;

     

       364
       +
       

     

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

     

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

     

       367
       +
                 expect(x)

     

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

     

       369
       +
                   |> Js.Promise.resolve

     

       370
       +
               })

     

       371
       +
           });

     

       372
        
         });

     

       373
        
       

     

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

     
···

       398
        
       

     

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

     

       400
        
           });

     

       401
       +
       

     

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

     

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

     

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

     

       405
       +
                 expect(x)

     

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

     

       407
       +
                   |> Js.Promise.resolve

     

       408
       +
               })

     

       409
       +
           });

     

       410
       +
       

     

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

     

       412
       +
             let end_: talkbackT = End;

     

       413
       +
       

     

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

     

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

     

       416
       +
                 expect(x)

     

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

     

       418
       +
                   |> Js.Promise.resolve

     

       419
       +
               })

     

       420
       +
           });

     

       421
        
         });

     

       422
        
       

     

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

     
···

       446
        
             });

     

       447
        
       

     

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

     

       449
       +
           });

     

       450
       +
       

     

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

     

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

     

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

     

       454
       +
                 expect(x)

     

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

     

       456
       +
                   |> Js.Promise.resolve

     

       457
       +
               })

     

       458
       +
           });

     

       459
       +
       

     

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

     

       461
       +
             let end_: talkbackT = End;

     

       462
       +
       

     

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

     

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

     

       465
       +
                 expect(x)

     

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

     

       467
       +
                   |> Js.Promise.resolve

     

       468
       +
               })

     

       469
        
           });

     

       470
        
         });

     

       471
        
       

     
···

       526
        
             talkback^(Pull);

     

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

     

       528
        
           });

     

       529
       +
       

     

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

     

       531
       +
             Wonka_thelpers.testWithListenable(Wonka.share)

     

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

     

       533
       +
                 expect(x)

     

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

     

       535
       +
                   |> Js.Promise.resolve

     

       536
       +
               })

     

       537
       +
           });

     

       538
       +
       

     

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

     

       540
       +
             let end_: talkbackT = End;

     

       541
       +
       

     

       542
       +
             Wonka_thelpers.testTalkbackEnd(Wonka.share)

     

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

     

       544
       +
                 expect(x)

     

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

     

       546
       +
                   |> Js.Promise.resolve

     

       547
       +
               })

     

       548
       +
           });

     

       549
        
         });

     

       550
        
       

     

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

     
···

       593
        
             talkback^(Pull);

     

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

     

       595
        
           });

     

       596
       +
       

     

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

     

       598
       +
             Wonka_thelpers.testWithListenable(source => {

     

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

     

       600
       +
               Wonka.combine(shared, shared)

     

       601
       +
             })

     

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

     

       603
       +
                 expect(x)

     

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

     

       605
       +
                   |> Js.Promise.resolve

     

       606
       +
               })

     

       607
       +
           });

     

       608
       +
       

     

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

     

       610
       +
             let end_: talkbackT = End;

     

       611
       +
       

     

       612
       +
             Wonka_thelpers.testTalkbackEnd(source => {

     

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

     

       614
       +
               Wonka.combine(shared, shared)

     

       615
       +
             })

     

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

     

       617
       +
                 expect(x)

     

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

     

       619
       +
                   |> Js.Promise.resolve

     

       620
       +
               })

     

       621
       +
           });

     

       622
        
         });

     

       623
        
       

     

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

     
···

       688
        
             talkback^(Pull);

     

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

     

       690
        
           });

     

       691
       +
       

     

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

     

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

     

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

     

       695
       +
                 expect(x)

     

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

     

       697
       +
                   |> Js.Promise.resolve

     

       698
       +
               })

     

       699
       +
           });

     

       700
       +
       

     

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

     

       702
       +
             let end_: talkbackT = End;

     

       703
       +
       

     

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

     

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

     

       706
       +
                 expect(x)

     

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

     

       708
       +
                   |> Js.Promise.resolve

     

       709
       +
               })

     

       710
       +
           });

     

       711
       +
       

     

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

     

       713
       +
             let end_: talkbackT = End;

     

       714
       +
       

     

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

     

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

     

       717
       +
                 expect(x)

     

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

     

       719
       +
                   |> Js.Promise.resolve

     

       720
       +
               })

     

       721
       +
           });

     

       722
        
         });

     

       723
        
       

     

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

     
···

       754
        
             talkback^(Pull);

     

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

     

       756
        
           });

     

       757
       +
       

     

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

     

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

     

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

     

       761
       +
                 expect(x)

     

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

     

       763
       +
                   |> Js.Promise.resolve

     

       764
       +
               })

     

       765
       +
           });

     

       766
       +
       

     

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

     

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

     

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

     

       770
       +
                 expect(x)

     

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

     

       772
       +
                   |> Js.Promise.resolve

     

       773
       +
               })

     

       774
       +
           });

     

       775
        
         });

     

       776
        
       

     

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

     
···

       843
        
       

     

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

     

       845
        
           });

     

       846
       +
       

     

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

     

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

     

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

     

       850
       +
                 expect(x)

     

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

     

       852
       +
                   |> Js.Promise.resolve

     

       853
       +
               })

     

       854
       +
           });

     

       855
       +
       

     

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

     

       857
       +
             let end_: talkbackT = End;

     

       858
       +
       

     

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

     

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

     

       861
       +
                 expect(x)

     

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

     

       863
       +
                   |> Js.Promise.resolve

     

       864
       +
               })

     

       865
       +
           });

     

       866
       +
       

     

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

     

       868
       +
             let end_: talkbackT = End;

     

       869
       +
       

     

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

     

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

     

       872
       +
                 expect(x)

     

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

     

       874
       +
                   |> Js.Promise.resolve

     

       875
       +
               })

     

       876
       +
           });

     

       877
        
         });

     

       878
        
       

     

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

     
···

       957
        
             talkback^(Pull);

     

       958
        
       

     

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

     

       960
       +
           });

     

       961
        
       

     

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

     

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

     

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

     

       965
       +
                 expect(x)

     

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

     

       967
       +
                   |> Js.Promise.resolve

     

       968
       +
               })

     

       969
       +
           });

     

       970
       +
       

     

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

     

       972
       +
             let end_: talkbackT = End;

     

       973
       +
       

     

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

     

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

     

       976
       +
                 expect(x)

     

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

     

       978
       +
                   |> Js.Promise.resolve

     

       979
       +
               })

     

       980
       +
           });

     

       981
       +
       

     

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

     

       983
       +
             let end_: talkbackT = End;

     

       984
       +
       

     

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

     

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

     

       987
       +
                 expect(x)

     

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

     

       989
       +
                   |> Js.Promise.resolve

     

       990
       +
               })

     

       991
        
           });

     

       992
        
         });

     

       993
        
       

     
···

       1024
        
             talkback^(Pull);

     

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

     

       1026
        
           });

     

       1027
       +
       

     

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

     

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

     

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

     

       1031
       +
                 expect(x)

     

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

     

       1033
       +
                   |> Js.Promise.resolve

     

       1034
       +
               })

     

       1035
       +
           });

     

       1036
       +
       

     

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

     

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

     

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

     

       1040
       +
                 expect(x)

     

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

     

       1042
       +
                   |> Js.Promise.resolve

     

       1043
       +
               })

     

       1044
       +
           });

     

       1045
       +
       

     

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

     

       1047
       +
             let end_: talkbackT = End;

     

       1048
       +
       

     

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

     

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

     

       1051
       +
                 expect(x)

     

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

     

       1053
       +
                   |> Js.Promise.resolve

     

       1054
       +
               })

     

       1055
       +
           });

     

       1056
        
         });

     

       1057
        
       

     

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

     
···

       1088
        
             talkback^(Pull);

     

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

     

       1090
        
           });

     

       1091
       +
       

     

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

     

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

     

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

     

       1095
       +
                 expect(x)

     

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

     

       1097
       +
                   |> Js.Promise.resolve

     

       1098
       +
               })

     

       1099
       +
           });

     

       1100
       +
       

     

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

     

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

     

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

     

       1104
       +
                 expect(x)

     

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

     

       1106
       +
                   |> Js.Promise.resolve

     

       1107
       +
               })

     

       1108
       +
           });

     

       1109
       +
       

     

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

     

       1111
       +
             let end_: talkbackT = End;

     

       1112
       +
       

     

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

     

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

     

       1115
       +
                 expect(x)

     

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

     

       1117
       +
                   |> Js.Promise.resolve

     

       1118
       +
               })

     

       1119
       +
           });

     

       1120
        
         });

     

       1121
        
       

     

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

     
···

       1200
        
             talkback^(Pull);

     

       1201
        
       

     

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

     

       1203
       +
           });

     

       1204
       +
       

     

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

     

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

     

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

     

       1208
       +
                 expect(x)

     

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

     

       1210
       +
                   |> Js.Promise.resolve

     

       1211
       +
               })

     

       1212
       +
           });

     

       1213
       +
       

     

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

     

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

     

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

     

       1217
       +
                 expect(x)

     

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

     

       1219
       +
                   |> Js.Promise.resolve

     

       1220
       +
               })

     

       1221
       +
           });

     

       1222
       +
       

     

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

     

       1224
       +
             let end_: talkbackT = End;

     

       1225
       +
       

     

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

     

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

     

       1228
       +
                 expect(x)

     

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

     

       1230
       +
                   |> Js.Promise.resolve

     

       1231
       +
               })

     

       1232
        
           });

     

       1233
        
         });

     

       1234

+63

__tests__/wonka_thelpers.re

···

       1
       +
       open Wonka_types;

     

       2
       +
       

     

       3
       +
       let testWithListenable = operator => {

     

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

     

       5
       +
         let signals = [||];

     

       6
       +
         let source = x => {

     

       7
       +
           sink := x;

     

       8
       +
           x(Start(signal => {

     

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

     

       10
       +
           }));

     

       11
       +
         };

     

       12
       +
       

     

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

     

       14
       +
         let res = [||];

     

       15
       +
         operator(source)(signal => {

     

       16
       +
           switch (signal) {

     

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

     

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

     

       19
       +
           }

     

       20
       +
         });

     

       21
       +
       

     

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

     

       23
       +
           sink^(Push(1));

     

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

     

       25
       +
             sink^(Push(2));

     

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

     

       27
       +
               sink^(End);

     

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

     

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

     

       30
       +
               }, 0));

     

       31
       +
             }, 0));

     

       32
       +
           }, 0));

     

       33
       +
         })

     

       34
       +
       };

     

       35
       +
       

     

       36
       +
       let testTalkbackEnd = operator => {

     

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

     

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

     

       39
       +
         let source = x => {

     

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

     

       41
       +
           sink := x;

     

       42
       +
         };

     

       43
       +
       

     

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

     

       45
       +
         let res = [||];

     

       46
       +
         operator(source)(signal => {

     

       47
       +
           switch (signal) {

     

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

     

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

     

       50
       +
           }

     

       51
       +
         });

     

       52
       +
       

     

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

     

       54
       +
           sink^(Push(1));

     

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

     

       56
       +
             let end_: talkbackT = End;

     

       57
       +
             talkback^(end_);

     

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

     

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

     

       60
       +
             }, 0));

     

       61
       +
           }, 0));

     

       62
       +
         })

     

       63
       +
       };

+37 -23

src/wonka.re

···

       244
        
         sourceA(signal => {

     

       245
        
           switch (signal, state.lastValB) {

     

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

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

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

     

       249
        
             state.lastValA = Some(a);

     

       250
        
             state.gotSignal = false;

     
···

       252
        
           }

     

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

     

       254
        
             state.endCounter = state.endCounter + 1

     

       255
       -
           | (End, _) => {

     

       256
       -
             print_endline("end");

     

       257
       -
             sink(End)

     

       258
        
           }

     

       259
        
           | _ => ()

     

       260
        
           }

     
···

       263
        
         sourceB(signal => {

     

       264
        
           switch (signal, state.lastValA) {

     

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

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

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

     

       268
        
             state.lastValB = Some(b);

     

       269
        
             state.gotSignal = false;

     
···

       271
        
           }

     

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

     

       273
        
             state.endCounter = state.endCounter + 1

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       275
        
           | _ => ()

     

       276
        
           }

     

       277
        
         });

     

       278
        
       

     

       279
        
         sink(Start(signal => {

     

       280
       -
           switch (signal) {

     

       281
       -
           | End => {

     

       282
       -
             state.ended = true;

     

       283
       -
             state.talkbackA(End);

     

       284
       -
             state.talkbackB(End);

     

       285
       -
           }

     

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

     

       287
       -
             state.gotSignal = true;

     

       288
       -
             state.talkbackA(signal);

     

       289
       -
             state.talkbackB(signal);

     

       290
       -
           }

     

       291
       -
           | Pull => ()

     

       292
       -
           }

     

       0
        
       
     

       0
        
       
     

       293
        
         }));

     

       294
        
       };

     

       295
        
       

     
···

       317
        
             };

     

       318
        
           }

     

       319
        
           | Push(_) => ()

     

       320
       -
           | End => {

     

       321
        
             state.taken = max;

     

       322
        
             sink(End)

     

       323
        
           }

     

       0
        
       
     

       324
        
           }

     

       325
        
         });

     

       326
        
       

     
···

       367
        
             talkback := tb;

     

       368
        
             sink(signal);

     

       369
        
           }

     

       370
       -
           | End => {

     

       371
        
             ended := true;

     

       372
        
             sink(End);

     

       373
        
           }

     

       0
        
       
     

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

     

       375
        
             if (!predicate(x)) {

     

       376
        
               ended := true;

     
···

       431
        
               }

     

       432
        
             });

     

       433
        
           }

     

       434
       -
           | End => {

     

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

     

       436
        
             state.ended = true;

     

       437
        
             sink(End);

     

       438
        
           }

     

       0
        
       
     

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

     

       440
        
           | Push(_) => ()

     

       441
        
           }

···

       244
        
         sourceA(signal => {

     

       245
        
           switch (signal, state.lastValB) {

     

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

     

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

     

       248
       +
             state.lastValA = Some(a);

     

       249
       +
             state.gotSignal = false;

     

       250
       +
           }

     

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

     

       252
        
             state.lastValA = Some(a);

     

       253
        
             state.gotSignal = false;

     
···

       255
        
           }

     

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

     

       257
        
             state.endCounter = state.endCounter + 1

     

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

     

       259
       +
             state.ended = true;

     

       260
       +
             sink(End);

     

       261
        
           }

     

       262
        
           | _ => ()

     

       263
        
           }

     
···

       266
        
         sourceB(signal => {

     

       267
        
           switch (signal, state.lastValA) {

     

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

     

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

     

       270
       +
             state.lastValB = Some(b);

     

       271
       +
             state.gotSignal = false;

     

       272
       +
           }

     

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

     

       274
        
             state.lastValB = Some(b);

     

       275
        
             state.gotSignal = false;

     
···

       277
        
           }

     

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

     

       279
        
             state.endCounter = state.endCounter + 1

     

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

     

       281
       +
             state.ended = true;

     

       282
       +
             sink(End);

     

       283
       +
           }

     

       284
        
           | _ => ()

     

       285
        
           }

     

       286
        
         });

     

       287
        
       

     

       288
        
         sink(Start(signal => {

     

       289
       +
           if (!state.ended) {

     

       290
       +
             switch (signal) {

     

       291
       +
             | End => {

     

       292
       +
               state.ended = true;

     

       293
       +
               state.talkbackA(End);

     

       294
       +
               state.talkbackB(End);

     

       295
       +
             }

     

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

     

       297
       +
               state.gotSignal = true;

     

       298
       +
               state.talkbackA(signal);

     

       299
       +
               state.talkbackB(signal);

     

       300
       +
             }

     

       301
       +
             | Pull => ()

     

       302
       +
             }

     

       303
       +
           };

     

       304
        
         }));

     

       305
        
       };

     

       306
        
       

     
···

       328
        
             };

     

       329
        
           }

     

       330
        
           | Push(_) => ()

     

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

     

       332
        
             state.taken = max;

     

       333
        
             sink(End)

     

       334
        
           }

     

       335
       +
           | End => ()

     

       336
        
           }

     

       337
        
         });

     

       338
        
       

     
···

       379
        
             talkback := tb;

     

       380
        
             sink(signal);

     

       381
        
           }

     

       382
       +
           | End when !ended^ => {

     

       383
        
             ended := true;

     

       384
        
             sink(End);

     

       385
        
           }

     

       386
       +
           | End => ()

     

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

     

       388
        
             if (!predicate(x)) {

     

       389
        
               ended := true;

     
···

       444
        
               }

     

       445
        
             });

     

       446
        
           }

     

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

     

       448
       +
             state.notifierTalkback(End);

     

       449
        
             state.ended = true;

     

       450
        
             sink(End);

     

       451
        
           }

     

       452
       +
           | End => ()

     

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

     

       454
        
           | Push(_) => ()

     

       455
        
           }