% crochet

local singleton player;

test "Interpolation" do
  assert ("Hello" as interpolation) parts =:= ["Hello"];
  assert ("Hello, [player]" parts) =:= ["Hello, ", player];
  assert ("Hello, ["World"]" parts) =:= ["Hello, ", "World"];
  assert ("a [player] greets a [player]" parts) =:= [
    "a ", player, " greets a ", player
  ];

  assert "Multiline
          [player]
          Goes" parts =:= ["Multiline\n", player, "\nGoes"];
end