language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-29 06:44:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Use List.get instead of List.getUnsafe in tests

Browse source
This commit is contained in:
Richard Feldman 2020-04-26 09:10:50 -04:00
parent ac6e98361e
commit 0c58eeea97
1 changed files with 35 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

42
compiler/gen/tests/gen_builtins.rs
View file

@ -349,7 +349,17 @@ mod gen_builtins {
#[test] #[test]
fn get_set_unique_int_list() { fn get_set_unique_int_list() {
assert_evals_to!("List.getUnsafe (List.set [ 12, 9, 7, 3 ] 1 42) 1", 42, i64); assert_evals_to!(
indoc!(
r#"
when List.get (List.set [ 12, 9, 7, 3 ] 1 42) 1 is
Ok val -> val
Err _ -> -1
"#
),
42,
i64
);
} }
#[test] #[test]
@ -378,9 +388,17 @@ mod gen_builtins {
shared = [ 2.1, 4.3 ] shared = [ 2.1, 4.3 ]
# This should not mutate the original # This should not mutate the original
x = List.getUnsafe (List.set shared 1 7.7) 1 x =
when List.get (List.set shared 1 7.7) 1 is
Ok val -> val
Err _ -> -1
{ x, y: List.getUnsafe shared 1 } y =
when List.get shared 1 is
Ok val -> val
Err _ -> -1
{ x, y }
"# "#
), ),
(7.7, 4.3), (7.7, 4.3),
@ -396,9 +414,17 @@ mod gen_builtins {
shared = [ 2, 4 ] shared = [ 2, 4 ]
# This List.set is out of bounds, and should have no effect # This List.set is out of bounds, and should have no effect
x = List.getUnsafe (List.set shared 422 0) 1 x =
when List.get (List.set shared 422 0) 1 is
Ok val -> val
Err _ -> -1
{ x, y: List.getUnsafe shared 1 } y =
when List.get shared 1 is
Ok val -> val
Err _ -> -1
{ x, y }
"# "#
), ),
(4, 4), (4, 4),
@ -411,9 +437,11 @@ mod gen_builtins {
assert_evals_to!( assert_evals_to!(
indoc!( indoc!(
r#" r#"
shared = [ 2, 4 ] unshared = [ 2, 4 ]
List.getUnsafe shared 1 when List.get unshared 1 is
Ok val -> val
Err _ -> -1
"# "#
), ),
4, 4,