WithClauseError，elixir 单元测试匹配 (:ok, value}

Question

我正在尝试在 elixir 中编写安全的功能代码并使用单元测试来确认我的代码正常工作。 这是控制器代码：

def calculate_price(start_time, end_time, zone, payment_type) do
    with( {:ok} <- validate_times(start_time, end_time),
          {:ok} <- validate_zone(zone),
          {:ok} <- validate_payment_type(payment_type)
    ) do
      elapsed_minutes = div(Time.diff(end_time, start_time), 60)
      cond do
        zone == "A" && elapsed_minutes <= 15 -> {:ok, 0}
        zone == "B" && elapsed_minutes <= 90 -> {:ok, 0}
        zone == "A" && elapsed_minutes > 15 && payment_type == "hourly" -> {:ok, calc(elapsed_minutes - 15, 2, 60)}
        zone == "B" && elapsed_minutes > 90 && payment_type == "hourly" -> {:ok, calc(elapsed_minutes - 90, 1, 60)}
        zone == "A" && elapsed_minutes > 15 && payment_type == "real"   -> {:ok, calc(elapsed_minutes - 15, 0.16, 5)}
        zone == "B" && elapsed_minutes > 90 && payment_type == "real"   -> {:ok, calc(elapsed_minutes - 90, 0.08, 5)}
      end
    else
      {:error, error} -> IO.puts error
    end
  end

  defp validate_times(start_time, end_time) when end_time > start_time, do: :ok
  defp validate_times(_start_time, _end_time), do: {:error, "The start/end time is wrong"}

  defp validate_zone(zone) when zone == "A" or zone == "B", do: :ok
  defp validate_zone(_zone), do: {:error, "The zone is wrong"}

  defp validate_payment_type(payment_type) when payment_type == "hourly" or payment_type == "real", do: :ok
  defp validate_payment_type(_payment_type), do: {:error, "The payment type is wrong"}

  defp calc(minutes_to_pay, price_per_minutes, minutes_per_price_increment) do
    cond do
      rem(minutes_to_pay, minutes_per_price_increment) > 0 ->
        (div(minutes_to_pay, minutes_per_price_increment) + 1) * price_per_minutes
      true -> div(minutes_to_pay, minutes_per_price_increment) * price_per_minutes
    end
  end

控制器测试代码：

test "calculate price; zone: B, paymentType: real" do
    # 4 hours and 30 minute difference
    startTime = ~T[12:00:00.000]
    endTime = ~T[16:30:00.000]
    zone = "B"
    paymentType = "real"

   assert {:ok, 2.88} == calculate_price(startTime, endTime, zone, paymentType)

  end

对于此代码，我正在尝试验证传入的正确参数，以便在我的代码的愉快路径上返回{:ok, value} 。 如果参数错误，我想知道错误发生的原因。 目前我只是打印到命令行，但最终我想返回{:error, reason} 。 只是将{:error, error}放在 else 子句中会导致不同的错误。

测试用例的结果是： ** (WithClauseError) no with clause matching: :ok

我认为这意味着我的 calculate_price 函数正在返回{:ok} 。 我不明白为什么返回with子句中的值而不是do或else子句中的值！

我的药剂版本是 1.9.1。

Answer 1

问题在这里：

{:ok} <- validate_times(start_time, end_time)

该方法返回裸:ok原子，而您尝试将其with的单个元素元组{:ok}进行模式匹配，显然失败了。

那会起作用：

with :ok <- validate_times(start_time, end_time),
     :ok <- validate_zone(zone),
     :ok <- validate_payment_type(payment_type) do
  ...
end

此外，使用mix format任务根据指南格式化您的代码，否则非常难以阅读。 这也适用于with的后续子句。

---

旁注：这就是我们如何使用模式匹配和守卫以更灵巧的方式重写您的cond子句：

case {zone, elapsed_minutes, payment_type} do
  {"A", elapsed_minutes, _} when elapsed_minutes <= 15 -> {:ok, 0}
  {"B", elapsed_minutes, _} when elapsed_minutes <= 90 -> {:ok, 0}
  {"A", _, "hourly"} -> {:ok, calc(elapsed_minutes - 15, 2, 60)}
  {"B", _, "hourly"} -> {:ok, calc(elapsed_minutes - 90, 1, 60)}
  {"A", _, "real"} -> {:ok, calc(elapsed_minutes - 15, 0.16, 5)}
  {"B", _, "real"} -> {:ok, calc(elapsed_minutes - 90, 0.08, 5)}
end

Answer 2

首先检查您的代码是否手动工作。 从错误消息中，我相信您的代码在逻辑中的某处有错误并且永远不会返回{:ok, ...} 。 它可能是Datetime 。 您通常使用DateTime.compare()进行比较。

检查的最快方法是将结果与变量进行模式匹配并断言该变量。 Mix将向您显示返回的结果以及您的预期结果。

result = calculate_price(startTime, endTime, zone, paymentType)
assert result == {:ok, 2.88}