@@ -14,21 +14,21 @@ const collectable = {
1414 [
1515 $ ,
1616 Patterns . type ( Tuple , {
17- values : [ Symbol . for ( 'cont' ) , Patterns . variable ( ) ] ,
18- } ) ,
17+ values : [ Symbol . for ( 'cont' ) , Patterns . variable ( ) ]
18+ } )
1919 ] ,
2020 ( list , x ) => list . concat ( [ x ] )
2121 ) ,
2222 Patterns . clause ( [ $ , Symbol . for ( 'done' ) ] , list => list )
2323 ) ;
2424
2525 return new Tuple ( [ ] , fun ) ;
26- } ,
26+ }
2727} ;
2828
29- test ( 'simple for' , t => {
29+ test ( 'simple for' , async t => {
3030 const gen = Patterns . list_generator ( $ , [ 1 , 2 , 3 , 4 ] ) ;
31- const result = SpecialForms . _for (
31+ const result = await SpecialForms . _for (
3232 Patterns . clause ( [ $ ] , x => x * 2 ) ,
3333 [ gen ] ,
3434 collectable
@@ -37,12 +37,12 @@ test('simple for', t => {
3737 t . deepEqual ( result , [ 2 , 4 , 6 , 8 ] ) ;
3838} ) ;
3939
40- test ( 'for with multiple generators' , t => {
40+ test ( 'for with multiple generators' , async t => {
4141 //for x <- [1, 2], y <- [2, 3], do: x*y
4242
4343 const gen = Patterns . list_generator ( $ , [ 1 , 2 ] ) ;
4444 const gen2 = Patterns . list_generator ( $ , [ 2 , 3 ] ) ;
45- const result = SpecialForms . _for (
45+ const result = await SpecialForms . _for (
4646 Patterns . clause ( [ $ , $ ] , ( x , y ) => x * y ) ,
4747 [ gen , gen2 ] ,
4848 collectable
@@ -51,10 +51,10 @@ test('for with multiple generators', t => {
5151 t . deepEqual ( result , [ 2 , 3 , 4 , 6 ] ) ;
5252} ) ;
5353
54- test ( 'for with filter' , t => {
54+ test ( 'for with filter' , async t => {
5555 //for n <- [1, 2, 3, 4, 5, 6], rem(n, 2) == 0, do: n
5656 const gen = Patterns . list_generator ( $ , [ 1 , 2 , 3 , 4 , 5 , 6 ] ) ;
57- const result = SpecialForms . _for (
57+ const result = await SpecialForms . _for (
5858 Patterns . clause ( [ $ ] , x => x , x => x % 2 === 0 ) ,
5959 [ gen ] ,
6060 collectable
@@ -63,7 +63,7 @@ test('for with filter', t => {
6363 t . deepEqual ( result , [ 2 , 4 , 6 ] ) ;
6464} ) ;
6565
66- test ( 'for with pattern matching' , t => {
66+ test ( 'for with pattern matching' , async t => {
6767 //for {:user, name} <- [user: "john", admin: "john", user: "meg"], do
6868 // String.upcase(name)
6969 //end
@@ -73,11 +73,11 @@ test('for with pattern matching', t => {
7373 [
7474 [ Symbol . for ( 'user' ) , 'john' ] ,
7575 [ Symbol . for ( 'admin' ) , 'john' ] ,
76- [ Symbol . for ( 'user' ) , 'meg' ] ,
76+ [ Symbol . for ( 'user' ) , 'meg' ]
7777 ]
7878 ) ;
7979
80- const result = SpecialForms . _for (
80+ const result = await SpecialForms . _for (
8181 Patterns . clause ( [ [ Symbol . for ( 'user' ) , $ ] ] , name => name . toUpperCase ( ) ) ,
8282 [ gen ] ,
8383 collectable
@@ -86,7 +86,7 @@ test('for with pattern matching', t => {
8686 t . deepEqual ( result , [ 'JOHN' , 'MEG' ] ) ;
8787} ) ;
8888
89- test ( 'for with bitstring' , t => {
89+ test ( 'for with bitstring' , async t => {
9090 //for <<r::8, g::8, b::8 <- <<213, 45, 132, 64, 76, 32, 76, 0, 0, 234, 32, 15>> >>, do: {r, g, b}
9191
9292 const gen = Patterns . bitstring_generator (
@@ -117,17 +117,17 @@ test('for with bitstring', t => {
117117 BitString . integer ( { value : $ } ) ,
118118 BitString . integer ( { value : $ } ) ,
119119 BitString . integer ( { value : $ } )
120- ) ,
120+ )
121121 ] ,
122122 ( r , g , b ) => new Tuple ( r , g , b )
123123 ) ;
124124
125- const result = SpecialForms . _for ( expression , [ gen ] , collectable ) ;
125+ const result = await SpecialForms . _for ( expression , [ gen ] , collectable ) ;
126126
127127 t . deepEqual ( result , [
128128 new Tuple ( 213 , 45 , 132 ) ,
129129 new Tuple ( 64 , 76 , 32 ) ,
130130 new Tuple ( 76 , 0 , 0 ) ,
131- new Tuple ( 234 , 32 , 15 ) ,
131+ new Tuple ( 234 , 32 , 15 )
132132 ] ) ;
133133} ) ;
0 commit comments