30 lines
805 B
Lua
30 lines
805 B
Lua
n = name("a")
|
|
assert(n:is_atomic())
|
|
assert(not n:is_anonymous())
|
|
assert(n:is_string())
|
|
assert(not n:is_numeral())
|
|
assert(not pcall(function() n:get_prefix() end))
|
|
n = name()
|
|
assert(n:is_atomic())
|
|
assert(n:is_anonymous())
|
|
assert(not n:is_string())
|
|
assert(not n:is_numeral())
|
|
assert(not pcall(function() n:get_prefix() end))
|
|
n = name("a", "b")
|
|
assert(not n:is_atomic())
|
|
assert(not n:is_anonymous())
|
|
assert(n:is_string())
|
|
assert(not n:is_numeral())
|
|
assert(n:get_prefix() == name("a"))
|
|
assert(n:get_string() == "b")
|
|
assert(not pcall(function() n:get_numeral() end))
|
|
n = name(name("A"), 1)
|
|
assert(not n:is_atomic())
|
|
assert(not n:is_anonymous())
|
|
assert(not n:is_string())
|
|
assert(n:is_numeral())
|
|
assert(n:get_prefix() == name("A"))
|
|
assert(n:get_numeral() == 1)
|
|
assert(not pcall(function() n:get_string() end))
|
|
|
|
|