incoming_data_event + test

Signed-off-by: Gabriele Ghio <gabriele.ghio@secomind.com>

Author: shinnokdisengir

lib/astarte/core/generators/triggers/simple_events/incoming_data_event.ex

@@ -0,0 +1,58 @@
+#
+# This file is part of Astarte.
+#
+# Copyright 2025 SECO Mind Srl
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#    http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+defmodule Astarte.Core.Generators.Triggers.SimpleEvents.IncomingDataEvent do
+  @moduledoc """
+  This module provides generators for Astarte Trigger Simple Event IncomingDataEvent struct.
+  """
+  use ExUnitProperties
+
+  import Astarte.Generators.Utilities.ParamsGen
+
+  alias Astarte.Core.Triggers.SimpleEvents.IncomingDataEvent
+
+  alias Astarte.Core.Interface
+
+  alias Astarte.Core.Generators.Interface, as: InterfaceGenerator
+  alias Astarte.Core.Generators.Mapping.Value, as: ValueGenerator
+
+  @spec incoming_data_event() :: StreamData.t(IncomingDataEvent.t())
+  @spec incoming_data_event(keyword :: keyword()) :: StreamData.t(IncomingDataEvent.t())
+  def incoming_data_event(params \\ []) do
+    gen_fields =
+      params gen all :interface,
+                     %Interface{name: interface_name} = interface <-
+                       InterfaceGenerator.interface(),
+                     value <- ValueGenerator.value(interface: interface),
+                     params: params do
+        %{
+          interface: interface_name,
+          path: value.path,
+          bson_value: value.value
+        }
+      end
+
+    gen_fields
+    |> bind(fn fields ->
+      fields
+      |> Map.new(fn {k, v} -> {k, constant(v)} end)
+      |> optional_map()
+    end)
+    |> map(&struct(IncomingDataEvent, &1))
+  end
+end

test/astarte/core/generators/triggers/simple_events/incoming_data_event_test.exs

@@ -0,0 +1,65 @@
+#
+# This file is part of Astarte.
+#
+# Copyright 2025 SECO Mind Srl
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#    http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+defmodule Astarte.Core.Generators.Triggers.SimpleEvents.IncomingDataEventTest do
+  use ExUnit.Case, async: true
+  use ExUnitProperties
+
+  alias Astarte.Core.Triggers.SimpleEvents.IncomingDataEvent
+
+  alias Astarte.Core.Generators.Interface, as: InterfaceGenerator
+  alias Astarte.Core.Generators.Mapping.Value, as: ValueGenerator
+
+  alias Astarte.Core.Generators.Triggers.SimpleEvents.IncomingDataEvent,
+    as: IncomingDataEventGenerator
+
+  @moduletag :trigger
+  @moduletag :simple_event
+  @moduletag :incoming_data_event
+
+  @doc false
+  describe "triggers incoming_data_event generator" do
+    @describetag :success
+    @describetag :ut
+    property "generates valid incoming_data_event" do
+      check all incoming_data_event <- IncomingDataEventGenerator.incoming_data_event() do
+        assert %IncomingDataEvent{} = incoming_data_event
+      end
+    end
+
+    property "generates valid incoming_data_event using interface" do
+      check all interface <- InterfaceGenerator.interface(),
+                incoming_data_event <-
+                  IncomingDataEventGenerator.incoming_data_event(interface: interface) do
+        assert %IncomingDataEvent{} = incoming_data_event
+      end
+    end
+
+    property "generates valid incoming_data_event using interface and value" do
+      check all interface <- InterfaceGenerator.interface(),
+                value <- ValueGenerator.value(interface: interface),
+                incoming_data_event <-
+                  IncomingDataEventGenerator.incoming_data_event(
+                    interface: interface,
+                    value: value
+                  ) do
+        assert %IncomingDataEvent{} = incoming_data_event
+      end
+    end
+  end
+end