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

update tests for DCon in size change

Browse Source
This commit is contained in:
Steve Dunham 2023-08-12 12:57:55 -07:00
parent 878187d7f7
commit 0b3e04aef0
5 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/idris2/casetree003/expected
View File

@ -14,6 +14,6 @@ Compiled: \ {arg:1}, {arg:2} => case {arg:2} of
Refers to: Main.view, Main.idL, Prelude.Basics.Nil, Prelude.Basics.(::)
Refers to (runtime): Main.view, Main.idL, Main.Nil, Main.(::), Prelude.Basics.Nil, Prelude.Basics.(::)
Flags: covering
Size change: Main.idL: [Just (0, Same), Just (2, Smaller), Nothing]
Size change: Prelude.Basics.Nil: [Just (0, Same)], Prelude.Basics.(::): [Just (0, Same), Just (2, Smaller), Nothing], Main.idL: [Just (0, Same), Just (2, Smaller), Nothing]
Main>
Bye for now!

2
tests/idris2/coverage018/expected
View File

@ -22,6 +22,7 @@ Compiled: \ {arg:0} => case {arg:0} of
}
Refers to: Prelude.Basics.True, Prelude.Basics.False
Flags: allguarded, covering
Size change: Prelude.Basics.True: [], Prelude.Basics.False: []
Issue1831_1>
Bye for now!
1/1: Building Issue1831_2 (Issue1831_2.idr)
@ -48,5 +49,6 @@ Compiled: \ {arg:0} => case {arg:0} of
}
Refers to: Prelude.Basics.True, Prelude.Basics.False
Flags: allguarded, covering
Size change: Prelude.Basics.True: [], Prelude.Basics.False: []
Issue1831_2>
Bye for now!

8
tests/idris2/debug001/expected
View File

@ -11,6 +11,7 @@ Compiled: \ {arg:0} => case {arg:0} of
Refers to: Prelude.Basics.True, Prelude.Basics.False
Refers to (runtime): Prelude.Types.Nat
Flags: allguarded, covering
Size change: Prelude.Basics.True: [], Prelude.Basics.False: []
Main> Main.isInt32
Arguments [{arg:0}]
Compile time tree: case {arg:0} of
@ -23,6 +24,7 @@ Compiled: \ {arg:0} => case {arg:0} of
Refers to: Prelude.Basics.True, Prelude.Basics.False
Refers to (runtime): Int32
Flags: allguarded, covering
Size change: Prelude.Basics.True: [], Prelude.Basics.False: []
Main> Prelude.Types.plus
Arguments [{arg:0}, {arg:1}]
Compile time tree: case {arg:0} of
@ -35,7 +37,7 @@ Compiled: \ {arg:0}, {arg:1} => case {arg:0} of
}
Refers to: Prelude.Types.plus, Prelude.Types.S
Flags: total
Size change: Prelude.Types.plus: [Just (0, Smaller), Just (1, Same)]
Size change: Prelude.Types.S: [Nothing], Prelude.Types.plus: [Just (0, Smaller), Just (1, Same)]
Main> Prelude.Types.minus
Arguments [{arg:0}, {arg:1}]
Compile time tree: case {arg:0} of
@ -63,7 +65,7 @@ Compiled: \ {arg:0}, {arg:1} => case {arg:0} of
Refers to: Prelude.Types.minus, Prelude.Types.Z
Refers to (runtime): Prelude.Types.prim__integerToNat
Flags: total
Size change: Prelude.Types.minus: [Just (0, Smaller), Just (1, Smaller)]
Size change: Prelude.Types.Z: [], Prelude.Types.minus: [Just (0, Smaller), Just (1, Smaller)]
Main> Prelude.Types.SnocList.filter
Arguments [{arg:0}, {arg:1}, {arg:2}]
Compile time tree: case {arg:2} of
@ -78,6 +80,6 @@ Compiled: \ {arg:1}, {arg:2} => case {arg:2} of
Refers to: Prelude.Basics.SnocList, Prelude.Basics.Lin, Prelude.Types.SnocList.case block in filter, Prelude.Types.SnocList.filter
Refers to (runtime): Prelude.Basics.Lin, Prelude.Basics.(:<), Prelude.Types.SnocList.filter
Flags: total
Size change: Prelude.Types.SnocList.filter: [Just (0, Same), Just (1, Same), Just (2, Smaller)]
Size change: Prelude.Basics.Lin: [Just (0, Same)], Prelude.Types.SnocList.filter: [Just (0, Same), Just (1, Same), Just (2, Smaller)], Prelude.Basics.(:<): [Just (0, Same), Nothing, Just (2, Smaller)]
Main>
Bye for now!

4
tests/idris2/inlining001/expected
View File

@ -19,22 +19,26 @@ Compile time tree: 10
Compiled: 10
Refers to: Prelude.Types.Z, Prelude.Types.S
Flags: allguarded, covering, noinline
Size change: Prelude.Types.S: [Nothing], Prelude.Types.Z: []
Main> Main.heuristicPublicInline
Arguments []
Compile time tree: 2
Compiled: 2
Refers to: Prelude.Types.Z, Prelude.Types.S
Flags: inline, allguarded, covering
Size change: Prelude.Types.S: [Nothing], Prelude.Types.Z: []
Main> Main.exportedForced
Arguments []
Compile time tree: 33
Compiled: 33
Refers to: Prelude.Types.Z, Prelude.Types.S
Flags: allguarded, covering, inline
Size change: Prelude.Types.S: [Nothing], Prelude.Types.Z: []
Main> Main.exportedUnforced
Arguments []
Compile time tree: 66
Compiled: 66
Refers to: Prelude.Types.Z, Prelude.Types.S
Flags: allguarded, covering
Size change: Prelude.Types.S: [Nothing], Prelude.Types.Z: []
Main> Bye for now!

2
tests/idris2/lazy003/expected
View File

@ -22,5 +22,5 @@ Compiled: \ {arg:0} => let f = Force Lazy (Main.switch {arg:0}) in
Refers to: Main.case block in switch3, Main.{_:985}, Main.switch, Builtin.Pair, Prelude.Types.Nat
Refers to (runtime): Main.switch, Builtin.MkPair
Flags: covering
Size change: Main.switch: [Just (0, Same)]
Size change: Main.switch: [Just (0, Same)], Builtin.MkPair: [Nothing, Nothing, Nothing, Nothing]
Main> Bye for now!