Update mono tests

This commit is contained in:
Richard Feldman 2023-09-10 14:42:44 -04:00 committed by Folkert
parent 2ebc1c415e
commit eb8dc25cd2
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
6 changed files with 18 additions and 18 deletions

View file

@ -3,6 +3,6 @@ procedure Num.45 (#Attr.2):
ret Num.292; ret Num.292;
procedure Test.0 (): procedure Test.0 ():
let Test.2 : Float64 = 3.6f64; let Test.2 : Decimal = 3.6dec;
let Test.1 : I64 = CallByName Num.45 Test.2; let Test.1 : I64 = CallByName Num.45 Test.2;
ret Test.1; ret Test.1;

View file

@ -1,6 +1,6 @@
procedure Test.0 (): procedure Test.0 ():
let Test.4 : I64 = 1i64; let Test.4 : Decimal = 3.14dec;
let Test.5 : Float64 = 3.14f64; let Test.5 : I64 = 1i64;
let Test.2 : {I64, Float64} = Struct {Test.4, Test.5}; let Test.2 : {Decimal, I64} = Struct {Test.4, Test.5};
let Test.1 : I64 = StructAtIndex 0 Test.2; let Test.1 : I64 = StructAtIndex 1 Test.2;
ret Test.1; ret Test.1;

View file

@ -1,6 +1,6 @@
procedure Test.0 (): procedure Test.0 ():
let Test.4 : I64 = 2i64; let Test.4 : Decimal = 3.14dec;
let Test.5 : Float64 = 3.14f64; let Test.5 : I64 = 2i64;
let Test.3 : {I64, Float64} = Struct {Test.4, Test.5}; let Test.3 : {Decimal, I64} = Struct {Test.4, Test.5};
let Test.1 : I64 = StructAtIndex 0 Test.3; let Test.1 : I64 = StructAtIndex 1 Test.3;
ret Test.1; ret Test.1;

View file

@ -1,6 +1,6 @@
procedure Test.0 (): procedure Test.0 ():
let Test.4 : List I64 = Array [1i64, 3i64, 4i64]; let Test.4 : Decimal = 3.14dec;
let Test.5 : Float64 = 3.14f64; let Test.5 : List I64 = Array [1i64, 3i64, 4i64];
let Test.3 : {List I64, Float64} = Struct {Test.4, Test.5}; let Test.3 : {Decimal, List I64} = Struct {Test.4, Test.5};
let Test.1 : List I64 = StructAtIndex 0 Test.3; let Test.1 : List I64 = StructAtIndex 1 Test.3;
ret Test.1; ret Test.1;

View file

@ -12,7 +12,7 @@ procedure Num.19 (#Attr.2, #Attr.3):
procedure Test.0 (): procedure Test.0 ():
let Test.1 : List I64 = Array [1i64, 2i64, 3i64]; let Test.1 : List I64 = Array [1i64, 2i64, 3i64];
let Test.2 : List Float64 = Array [1f64]; let Test.2 : List Decimal = Array [1.dec];
let Test.4 : U64 = CallByName List.6 Test.1; let Test.4 : U64 = CallByName List.6 Test.1;
dec Test.1; dec Test.1;
let Test.5 : U64 = CallByName List.6 Test.2; let Test.5 : U64 = CallByName List.6 Test.2;

View file

@ -1,9 +1,9 @@
procedure Num.37 (#Attr.2, #Attr.3): procedure Num.37 (#Attr.2, #Attr.3):
let Num.292 : Float64 = lowlevel NumDivFrac #Attr.2 #Attr.3; let Num.292 : Decimal = lowlevel NumDivFrac #Attr.2 #Attr.3;
ret Num.292; ret Num.292;
procedure Test.0 (): procedure Test.0 ():
let Test.2 : Float64 = 1f64; let Test.2 : Decimal = 1.dec;
let Test.3 : Float64 = 200f64; let Test.3 : Decimal = 200dec;
let Test.1 : Float64 = CallByName Num.37 Test.2 Test.3; let Test.1 : Decimal = CallByName Num.37 Test.2 Test.3;
ret Test.1; ret Test.1;