mirror of
https://github.com/roc-lang/roc.git
synced 2025-08-04 12:18:19 +00:00
Check in mono test case
This commit is contained in:
parent
b2688dd3b1
commit
ba2527a020
1 changed files with 29 additions and 0 deletions
|
@ -0,0 +1,29 @@
|
|||
procedure Bool.11 (#Attr.2, #Attr.3):
|
||||
let Bool.23 : Int1 = lowlevel Eq #Attr.2 #Attr.3;
|
||||
ret Bool.23;
|
||||
|
||||
procedure Test.2 (Test.5):
|
||||
let Test.14 : U8 = GetTagId Test.5;
|
||||
switch Test.14:
|
||||
case 2:
|
||||
let Test.11 : Str = "a";
|
||||
ret Test.11;
|
||||
|
||||
case 1:
|
||||
let Test.12 : Str = "b";
|
||||
ret Test.12;
|
||||
|
||||
default:
|
||||
let Test.13 : Str = "c";
|
||||
ret Test.13;
|
||||
|
||||
|
||||
procedure Test.0 ():
|
||||
let Test.10 : [<rnw><null>, C Str, C *self] = TagId(0) ;
|
||||
let Test.8 : Str = CallByName Test.2 Test.10;
|
||||
dec Test.10;
|
||||
let Test.9 : Str = "c";
|
||||
let Test.7 : Int1 = CallByName Bool.11 Test.8 Test.9;
|
||||
dec Test.9;
|
||||
dec Test.8;
|
||||
ret Test.7;
|
Loading…
Add table
Add a link
Reference in a new issue