24 lines
691 B
Elixir
24 lines
691 B
Elixir
defmodule GcodeTest do
|
|
use ExUnit.Case, async: true
|
|
use Gcode.Result
|
|
alias Gcode.Model.{Comment, Program, Tape}
|
|
doctest Gcode
|
|
@moduledoc false
|
|
|
|
describe "serialise/1" do
|
|
test "it serialises a program correctly" do
|
|
ok(program) = Program.init()
|
|
ok(tape) = Tape.init()
|
|
ok(program) = Program.push(program, tape)
|
|
ok(comment) = Comment.init("I am a very simple program")
|
|
ok(program) = Program.push(program, comment)
|
|
ok(tape) = Tape.init()
|
|
ok(program) = Program.push(program, tape)
|
|
ok(actual) = Gcode.serialise(program)
|
|
|
|
expected = "%\r\n(I am a very simple program)\r\n%\r\n"
|
|
|
|
assert actual == expected
|
|
end
|
|
end
|
|
end
|