idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-01 01:09:03 +03:00
Code Issues Projects Releases Wiki Activity

[ test ] for empty records

Browse Source
This commit is contained in:
Guillaume ALLAIS 2020-08-28 10:17:50 +01:00 committed by russoul
parent 53fe889b28
commit 9734b72349
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/idris2/record006/Fld.idr
View File

@ -26,12 +26,12 @@ myDog_notWorking0 : record MkDog {name = "Sam"} -- Not all fields are covered
myDog_notWorking1 : record MkDog {age = 3, name1 = "Sam"} -- No constructor with name `MkDog`
-- has field `name1`
myDog_notWorking2 : record MkDog
myDog_notWorking2 : record MkDog
{ age = 4
, age = 2
, weight = 12
, name = "Sam" } -- Duplicate names
myDog : ?
myDog = record MkDog { age = 4
, weight = 12
@ -47,3 +47,9 @@ other = record MkOther {fieldB = the Int 1, fieldA = "hi"} {imp = "Secret string
same : record MkDog {name = "Rex", age = 2, weight = 10} = MkDog "Rex" 2 10
same = Refl
record Unit where
constructor MkUnit
unit : Unit
unit = record MkUnit {}