-module(lightspeed@testing@liveview).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/lightspeed/testing/liveview.gleam").
-export([lifecycle_label/1, mount_disconnected/5, mount_connected/5, render_assigns/2, render_event/3, html/1, lifecycle/1, patches/1, patch_operations/1, pushed_instructions/1, telemetry/1, has_patch/2, redirected_to/2, pushed_event/3, stable_signature/1, failure_signature/4, render_story_fixture/1, story_name/1, story_html/1, story_fingerprint/1, story_signature/1]).
-export_type([session/3, story_fixture/0]).
-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.
?MODULEDOC(" LiveView-style deterministic testing DSL and debug signatures.\n").
-opaque session(TYW, TYX, TYY) :: {session,
lightspeed@component@stateful:instance(TYW, TYX, TYY),
binary(),
binary(),
lightspeed@component@stateful:lifecycle(),
list(lightspeed@diff:patch()),
list(lightspeed@agent@isa:instruction()),
list(binary()),
integer()}.
-type story_fixture() :: {story_fixture, binary(), binary(), binary(), binary()}.
-file("src/lightspeed/testing/liveview.gleam", 399).
-spec append_ordered_to_rev(list(UEJ), list(UEJ)) -> list(UEJ).
append_ordered_to_rev(Rev, Ordered) ->
case Ordered of
[] ->
Rev;
[Value | Rest] ->
append_ordered_to_rev([Value | Rev], Rest)
end.
-file("src/lightspeed/testing/liveview.gleam", 146).
?DOC(" Stable lifecycle label for fixture signatures.\n").
-spec lifecycle_label(lightspeed@component@stateful:lifecycle()) -> binary().
lifecycle_label(Lifecycle) ->
case Lifecycle of
disconnected ->
<<"disconnected"/utf8>>;
connected ->
<<"connected"/utf8>>
end.
-file("src/lightspeed/testing/liveview.gleam", 345).
-spec instruction_labels(list(lightspeed@agent@isa:instruction())) -> list(binary()).
instruction_labels(Instructions) ->
gleam@list:map(
Instructions,
fun(Instruction) ->
<<"instruction:"/utf8,
(lightspeed@agent@isa:describe(Instruction))/binary>>
end
).
-file("src/lightspeed/testing/liveview.gleam", 406).
-spec prepend(list(UEN), list(UEN)) -> list(UEN).
prepend(Left, Right) ->
case Left of
[] ->
Right;
[Entry | Rest] ->
[Entry | prepend(Rest, Right)]
end.
-file("src/lightspeed/testing/liveview.gleam", 339).
-spec patch_labels(list(lightspeed@diff:patch())) -> list(binary()).
patch_labels(Patches) ->
gleam@list:map(
Patches,
fun(Patch) ->
<<<<<<"patch:"/utf8, (lightspeed@diff:operation(Patch))/binary>>/binary,
":"/utf8>>/binary,
(lightspeed@diff:target(Patch))/binary>>
end
).
-file("src/lightspeed/testing/liveview.gleam", 324).
-spec command_instructions_loop(
list(lightspeed@component:command(any())),
list(lightspeed@agent@isa:instruction())
) -> list(lightspeed@agent@isa:instruction()).
command_instructions_loop(Commands, Instructions_rev) ->
case Commands of
[] ->
lists:reverse(Instructions_rev);
[Command | Rest] ->
case Command of
{push, Instruction} ->
command_instructions_loop(
Rest,
[Instruction | Instructions_rev]
);
_ ->
command_instructions_loop(Rest, Instructions_rev)
end
end.
-file("src/lightspeed/testing/liveview.gleam", 318).
-spec command_instructions(list(lightspeed@component:command(any()))) -> list(lightspeed@agent@isa:instruction()).
command_instructions(Commands) ->
command_instructions_loop(Commands, []).
-file("src/lightspeed/testing/liveview.gleam", 279).
-spec mount_with_lifecycle(
lightspeed@component@stateful:lifecycle_component(UDH, UDI, UDJ),
binary(),
binary(),
lightspeed@component@stateful:lifecycle(),
UDI,
binary()
) -> session(UDH, UDI, UDJ).
mount_with_lifecycle(Definition, Id, Route, Lifecycle, Assigns, Target) ->
Context = lightspeed@component@stateful:mount_context(Id, Route, Lifecycle),
{Instance, Commands, Patches} = lightspeed@component@stateful:start(
Definition,
Context,
Assigns,
Target
),
Instructions = command_instructions(Commands),
Telemetry_step = prepend(
patch_labels(Patches),
prepend(
instruction_labels(Instructions),
[<<<<<<"mount:"/utf8, (lifecycle_label(Lifecycle))/binary>>/binary,
":"/utf8>>/binary,
Route/binary>>]
)
),
{session,
Instance,
Route,
Target,
Lifecycle,
append_ordered_to_rev([], Patches),
append_ordered_to_rev([], Instructions),
append_ordered_to_rev([], Telemetry_step),
1}.
-file("src/lightspeed/testing/liveview.gleam", 37).
?DOC(" Mount a stateful component in disconnected lifecycle mode.\n").
-spec mount_disconnected(
lightspeed@component@stateful:lifecycle_component(TYZ, TZA, TZB),
binary(),
binary(),
TZA,
binary()
) -> session(TYZ, TZA, TZB).
mount_disconnected(Definition, Id, Route, Assigns, Target) ->
mount_with_lifecycle(Definition, Id, Route, disconnected, Assigns, Target).
-file("src/lightspeed/testing/liveview.gleam", 55).
?DOC(" Mount a stateful component in connected lifecycle mode.\n").
-spec mount_connected(
lightspeed@component@stateful:lifecycle_component(TZI, TZJ, TZK),
binary(),
binary(),
TZJ,
binary()
) -> session(TZI, TZJ, TZK).
mount_connected(Definition, Id, Route, Assigns, Target) ->
mount_with_lifecycle(Definition, Id, Route, connected, Assigns, Target).
-file("src/lightspeed/testing/liveview.gleam", 73).
?DOC(" Apply parent assigns and capture emitted patches/commands in one test step.\n").
-spec render_assigns(session(TZR, TZS, TZT), TZS) -> session(TZR, TZS, TZT).
render_assigns(Session, Assigns) ->
{Instance, Commands, Patches} = lightspeed@component@stateful:update(
erlang:element(2, Session),
Assigns
),
Instructions = command_instructions(Commands),
Telemetry_step = prepend(
patch_labels(Patches),
prepend(instruction_labels(Instructions), [<<"assigns:update"/utf8>>])
),
{session,
Instance,
erlang:element(3, Session),
erlang:element(4, Session),
erlang:element(5, Session),
append_ordered_to_rev(erlang:element(6, Session), Patches),
append_ordered_to_rev(erlang:element(7, Session), Instructions),
append_ordered_to_rev(erlang:element(8, Session), Telemetry_step),
erlang:element(9, Session) + 1}.
-file("src/lightspeed/testing/liveview.gleam", 311).
-spec event_label(
binary(),
{ok, any()} | {error, lightspeed@event:decode_error()}
) -> binary().
event_label(Name, Routed) ->
case Routed of
{ok, _} ->
<<<<"event:"/utf8, Name/binary>>/binary, ":ok"/utf8>>;
{error, Error} ->
<<<<<<"event:"/utf8, Name/binary>>/binary, ":"/utf8>>/binary,
(lightspeed@event:error_to_string(Error))/binary>>
end.
-file("src/lightspeed/testing/liveview.gleam", 100).
?DOC(" Route and render one event against the mounted component.\n").
-spec render_event(session(UAA, UAB, UAC), binary(), binary()) -> {session(UAA, UAB, UAC),
{ok, UAC} | {error, lightspeed@event:decode_error()}}.
render_event(Session, Name, Payload) ->
Inbound = lightspeed@event:inbound(Name, Payload),
{Instance, Routed, Commands, Patches} = lightspeed@component@stateful:handle_event(
erlang:element(2, Session),
Inbound
),
Instructions = command_instructions(Commands),
Telemetry_step = prepend(
patch_labels(Patches),
prepend(instruction_labels(Instructions), [event_label(Name, Routed)])
),
{{session,
Instance,
erlang:element(3, Session),
erlang:element(4, Session),
erlang:element(5, Session),
append_ordered_to_rev(erlang:element(6, Session), Patches),
append_ordered_to_rev(erlang:element(7, Session), Instructions),
append_ordered_to_rev(erlang:element(8, Session), Telemetry_step),
erlang:element(9, Session) + 1},
Routed}.
-file("src/lightspeed/testing/liveview.gleam", 135).
?DOC(" Current rendered HTML.\n").
-spec html(session(any(), any(), any())) -> binary().
html(Session) ->
_pipe = erlang:element(2, Session),
lightspeed@component@stateful:html(_pipe).
-file("src/lightspeed/testing/liveview.gleam", 141).
?DOC(" Mount lifecycle mode.\n").
-spec lifecycle(session(any(), any(), any())) -> lightspeed@component@stateful:lifecycle().
lifecycle(Session) ->
erlang:element(5, Session).
-file("src/lightspeed/testing/liveview.gleam", 154).
?DOC(" All emitted patches in execution order.\n").
-spec patches(session(any(), any(), any())) -> list(lightspeed@diff:patch()).
patches(Session) ->
lists:reverse(erlang:element(6, Session)).
-file("src/lightspeed/testing/liveview.gleam", 159).
?DOC(" Patch operation labels in execution order.\n").
-spec patch_operations(session(any(), any(), any())) -> list(binary()).
patch_operations(Session) ->
_pipe = Session,
_pipe@1 = patches(_pipe),
gleam@list:map(_pipe@1, fun lightspeed@diff:operation/1).
-file("src/lightspeed/testing/liveview.gleam", 166).
?DOC(" All pushed ISA instructions in execution order.\n").
-spec pushed_instructions(session(any(), any(), any())) -> list(lightspeed@agent@isa:instruction()).
pushed_instructions(Session) ->
lists:reverse(erlang:element(7, Session)).
-file("src/lightspeed/testing/liveview.gleam", 173).
?DOC(" Stable telemetry/debug labels in execution order.\n").
-spec telemetry(session(any(), any(), any())) -> list(binary()).
telemetry(Session) ->
lists:reverse(erlang:element(8, Session)).
-file("src/lightspeed/testing/liveview.gleam", 351).
-spec contains_patch(list(lightspeed@diff:patch()), lightspeed@diff:patch()) -> boolean().
contains_patch(Patches, Expected) ->
case Patches of
[] ->
false;
[Patch | Rest] ->
case Patch =:= Expected of
true ->
true;
false ->
contains_patch(Rest, Expected)
end
end.
-file("src/lightspeed/testing/liveview.gleam", 178).
?DOC(" Assertion helper for expected patch output.\n").
-spec has_patch(session(any(), any(), any()), lightspeed@diff:patch()) -> boolean().
has_patch(Session, Patch) ->
contains_patch(patches(Session), Patch).
-file("src/lightspeed/testing/liveview.gleam", 362).
-spec contains_navigation(list(lightspeed@agent@isa:instruction()), binary()) -> boolean().
contains_navigation(Instructions, To) ->
case Instructions of
[] ->
false;
[Instruction | Rest] ->
case Instruction of
{navigate, Path} ->
case Path =:= To of
true ->
true;
false ->
contains_navigation(Rest, To)
end;
_ ->
contains_navigation(Rest, To)
end
end.
-file("src/lightspeed/testing/liveview.gleam", 186).
?DOC(" Assertion helper for redirect/navigation behavior.\n").
-spec redirected_to(session(any(), any(), any()), binary()) -> boolean().
redirected_to(Session, To) ->
contains_navigation(pushed_instructions(Session), To).
-file("src/lightspeed/testing/liveview.gleam", 380).
-spec contains_push_event(
list(lightspeed@agent@isa:instruction()),
binary(),
binary()
) -> boolean().
contains_push_event(Instructions, Name, Payload) ->
case Instructions of
[] ->
false;
[Instruction | Rest] ->
case Instruction of
{push_event, Event_name, Event_payload} ->
case (Event_name =:= Name) andalso (Event_payload =:= Payload) of
true ->
true;
false ->
contains_push_event(Rest, Name, Payload)
end;
_ ->
contains_push_event(Rest, Name, Payload)
end
end.
-file("src/lightspeed/testing/liveview.gleam", 194).
?DOC(" Assertion helper for pushed server-event behavior.\n").
-spec pushed_event(session(any(), any(), any()), binary(), binary()) -> boolean().
pushed_event(Session, Name, Payload) ->
contains_push_event(pushed_instructions(Session), Name, Payload).
-file("src/lightspeed/testing/liveview.gleam", 413).
-spec join_with(binary(), list(binary())) -> binary().
join_with(Separator, Values) ->
case Values of
[] ->
<<""/utf8>>;
[Value] ->
Value;
[Value@1 | Rest] ->
<<<<Value@1/binary, Separator/binary>>/binary,
(join_with(Separator, Rest))/binary>>
end.
-file("src/lightspeed/testing/liveview.gleam", 203).
?DOC(" Stable deterministic session signature for CI fixtures and debug output.\n").
-spec stable_signature(session(any(), any(), any())) -> binary().
stable_signature(Session) ->
<<<<<<<<<<<<<<<<<<<<<<<<<<"lifecycle="/utf8,
(lifecycle_label(
erlang:element(
5,
Session
)
))/binary>>/binary,
"|route="/utf8>>/binary,
(erlang:element(3, Session))/binary>>/binary,
"|target="/utf8>>/binary,
(erlang:element(4, Session))/binary>>/binary,
"|steps="/utf8>>/binary,
(erlang:integer_to_binary(
erlang:element(9, Session)
))/binary>>/binary,
"|patch_ops="/utf8>>/binary,
(join_with(<<","/utf8>>, patch_operations(Session)))/binary>>/binary,
"|instructions="/utf8>>/binary,
(join_with(
<<","/utf8>>,
gleam@list:map(
pushed_instructions(Session),
fun lightspeed@agent@isa:describe/1
)
))/binary>>/binary,
"|telemetry="/utf8>>/binary,
(join_with(<<","/utf8>>, telemetry(Session)))/binary>>.
-file("src/lightspeed/testing/liveview.gleam", 221).
?DOC(" Stable failure signature helper for assertions and fixture diagnostics.\n").
-spec failure_signature(
session(any(), any(), any()),
binary(),
binary(),
binary()
) -> binary().
failure_signature(Session, Assertion, Expected, Actual) ->
<<<<<<<<<<<<<<"assertion="/utf8, Assertion/binary>>/binary,
"|expected="/utf8>>/binary,
Expected/binary>>/binary,
"|actual="/utf8>>/binary,
Actual/binary>>/binary,
"|"/utf8>>/binary,
(stable_signature(Session))/binary>>.
-file("src/lightspeed/testing/liveview.gleam", 238).
?DOC(" Render one template story fixture with deterministic metadata.\n").
-spec render_story_fixture(lightspeed@component@story:story(any(), any())) -> story_fixture().
render_story_fixture(Fixture_story) ->
Rendered = lightspeed@component@story:render(Fixture_story),
Html = lightspeed@component:to_html(Rendered),
Fingerprint = lightspeed@component:fingerprint(Rendered),
Name = lightspeed@component@story:name(Fixture_story),
{story_fixture,
Name,
Html,
Fingerprint,
<<<<<<<<<<"story="/utf8, Name/binary>>/binary, "|fingerprint="/utf8>>/binary,
Fingerprint/binary>>/binary,
"|html="/utf8>>/binary,
Html/binary>>}.
-file("src/lightspeed/testing/liveview.gleam", 260).
?DOC(" Fixture story name.\n").
-spec story_name(story_fixture()) -> binary().
story_name(Fixture) ->
erlang:element(2, Fixture).
-file("src/lightspeed/testing/liveview.gleam", 265).
?DOC(" Fixture story HTML.\n").
-spec story_html(story_fixture()) -> binary().
story_html(Fixture) ->
erlang:element(3, Fixture).
-file("src/lightspeed/testing/liveview.gleam", 270).
?DOC(" Fixture story fingerprint.\n").
-spec story_fingerprint(story_fixture()) -> binary().
story_fingerprint(Fixture) ->
erlang:element(4, Fixture).
-file("src/lightspeed/testing/liveview.gleam", 275).
?DOC(" Fixture story stable signature.\n").
-spec story_signature(story_fixture()) -> binary().
story_signature(Fixture) ->
erlang:element(5, Fixture).
