Pantograph/Test/Serial.lean

11 lines
301 B
Plaintext
Raw Normal View History

import LSpec
import Pantograph.Symbols
namespace Pantograph.Test
def test_serial: IO LSpec.TestSeq := do
return LSpec.group "Serialisation" $
LSpec.test "Symbol parsing" (Lean.Name.str (.str (.str .anonymous "Lean") "Meta") "run" = Pantograph.str_to_name "Lean.Meta.run")
end Pantograph.Test