eyre: produce moves in correct order

Because storing in reverse order means producing in reverse reverse
order.

The tests didn't catch this because they, too, were infected with the
"reverse moves" meme.
This commit is contained in:
fang 2020-10-24 01:48:51 +02:00
parent 235bfbbd2f
commit b92cfdb242
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
2 changed files with 20 additions and 20 deletions

View File

@ -1585,7 +1585,7 @@
==
=? next-id kicking +(next-id)
::
:- moves
:- (flop moves)
%_ state
session.channel-state
%+ ~(put by session.channel-state.state) channel-id

View File

@ -1849,7 +1849,7 @@
~
==
^= expected-moves
~ ::NOTE tested elsewher
~ ::NOTE tested elsewhere
==
:: user gets sent multiple subscription results
::
@ -1889,24 +1889,6 @@
==
^= moves
:~ :* duct=~[/http-get-open]
%give
%response
%continue
:- ~
%- as-octt:mimes:html
"""
id: {((d-co:co 1) +(clog-threshold:eyre-gate))}
data: \{"id":1,"response":"quit"}
"""
complete=%.n
==
:* duct=~[/http-put-request] %pass
/channel/subscription/'0123456789abcdef'/'1'/~nul/two
%g %deal [~nul ~nul] %two %leave ~
==
:* duct=~[/http-get-open]
%give
%response
%continue
@ -1920,6 +1902,24 @@
"""
complete=%.n
==
:* duct=~[/http-put-request] %pass
/channel/subscription/'0123456789abcdef'/'1'/~nul/two
%g %deal [~nul ~nul] %two %leave ~
==
:* duct=~[/http-get-open]
%give
%response
%continue
:- ~
%- as-octt:mimes:html
"""
id: {((d-co:co 1) +(clog-threshold:eyre-gate))}
data: \{"id":1,"response":"quit"}
"""
complete=%.n
==
==
==
results