1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-25 12:42:02 +03:00
Idris2/tests/idris2/reflection/reflection020/FromName.idr
2023-09-07 14:57:22 +01:00

54 lines
1.1 KiB
Idris

import Language.Reflection
%language ElabReflection
%nameLit fromName
data MyName = MkMyName String
myName : Name -> Elab MyName
myName (UN (Basic nm)) = pure $ MkMyName nm
myName nm = fail "Invalid MyName"
namespace AsMacro
%macro
fromName : Name -> Elab MyName
fromName = myName
export
myNameMacroTest : MyName
myNameMacroTest = `{x}
failing "Invalid MyName"
myNameInvalid : MyName
myNameInvalid = `{A.x}
namespace AsScript
fromName : Name -> Elab MyName
fromName = myName
export
myNameScriptTest : MyName
myNameScriptTest = %runElab `{y}
failing "Invalid MyName"
myNameInvalid : MyName
myNameInvalid = %runElab `{A.y}
namespace AsFunction
data IsMyName : Name -> Type where
ItIsMyName : IsMyName (UN (Basic nm))
fromName : (nm : Name) ->
IsMyName nm =>
MyName
fromName (UN (Basic nm)) @{ItIsMyName} = MkMyName nm
export
myNameFunctionTest : MyName
myNameFunctionTest = `{z}
failing "Can't find an implementation for IsMyName"
myNameInvalid : MyName
myNameInvalid = `{A.z}