55 lines
1.6 KiB
Elixir
55 lines
1.6 KiB
Elixir
defmodule AcceptanceTest do
|
|
import TestHelpers
|
|
use ExUnit.Case, async: true
|
|
|
|
@tests [
|
|
{ "''", generate_token(:simple_string, "") },
|
|
{ "'hello'", generate_token(:simple_string, "hello") },
|
|
{ "\"\"", generate_token(:string, "") },
|
|
{ "\"hello\"", generate_token(:string, "hello") },
|
|
{ "0", generate_token(:integer, 0) },
|
|
{ "123", generate_token(:integer, 123) },
|
|
{ "0x123", generate_token(:integer, 291) },
|
|
{ "0b1011", generate_token(:integer, 11) },
|
|
{ "0.0", generate_token(:float, 0.0) },
|
|
{ "123.456", generate_token(:float, 123.456) }
|
|
]
|
|
|
|
Enum.each @tests, fn
|
|
{ source, token } ->
|
|
tname = Map.get token, :name
|
|
tvalue = Map.get token, :value
|
|
|
|
test "String #{inspect(source)} results in token #{inspect(token)}" do
|
|
result = ExampleLexer.lex unquote(source)
|
|
{ok, result} = result
|
|
assert ok == :ok
|
|
|
|
result = Enum.at(result, 0)
|
|
|
|
rname = Map.get result, :name
|
|
rvalue = Map.get result, :value
|
|
assert rname == unquote(tname)
|
|
assert rvalue == unquote(tvalue)
|
|
end
|
|
end
|
|
|
|
test "String #{inspect "'foo'\n'bar'"} has correct line numbers" do
|
|
{ok, tokens} = ExampleLexer.lex "'foo'\n'bar'"
|
|
assert ok == :ok
|
|
|
|
token = List.last tokens
|
|
assert token.line == 2
|
|
end
|
|
|
|
test "String #{inspect "'foo'\n'bar' 'baz'"} has correct column numbers" do
|
|
{ok, tokens} = ExampleLexer.lex "'foo'\n'bar' 'baz'"
|
|
assert ok == :ok
|
|
|
|
IO.inspect tokens
|
|
token = List.last tokens
|
|
assert token.value == "baz"
|
|
assert token.column == 8
|
|
end
|
|
end
|