11 lines
301 B
Plaintext
11 lines
301 B
Plaintext
|
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
|