roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-09-21 15:59:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

disable Closure.roc example

Browse Source
This commit is contained in:
Folkert 2022-03-26 21:46:49 +01:00
parent dd84517f5f
commit 8d85e469f7
No known key found for this signature in database
GPG Key ID: 1F17F6FFD112B97C
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cli/tests/cli_run.rs
View File

@ -481,6 +481,10 @@ mod cli_run {
eprintln!("WARNING: skipping testing benchmark {} because the test is broken right now!", benchmark.filename);
return;
}
"Closure.roc" => {
eprintln!("WARNING: skipping testing benchmark {} because the test is broken right now!", benchmark.filename);
return;
}
_ => {}
}
@ -524,6 +528,10 @@ mod cli_run {
eprintln!("WARNING: skipping testing benchmark {} because the test is broken right now!", benchmark.filename);
return;
}
"Closure.roc" => {
eprintln!("WARNING: skipping testing benchmark {} because the test is broken right now!", benchmark.filename);
return;
}
_ => {}
}
@ -565,6 +573,10 @@ mod cli_run {
eprintln!("WARNING: skipping testing benchmark {} because the test is broken right now!", benchmark.filename);
return;
}
"Closure.roc" => {
eprintln!("WARNING: skipping testing benchmark {} because the test is broken right now!", benchmark.filename);
return;
}
_ => {}
}

7
examples/benchmarks/Closure.roc
View File

@ -10,12 +10,15 @@ main = closure1 {}
# |> Task.after (\_ -> closure3 {})
# |> Task.after (\_ -> closure4 {})
# ---
str = "a long string such that it's malloced"
closure1 : {} -> Task.Task {} []
closure1 = \_ ->
Task.succeed (foo toUnitBorrowed "a long string such that it's malloced")
Task.succeed (foo toUnitBorrowed str)
|> Task.map (\_ -> {})
toUnitBorrowed = \x -> Str.countGraphemes x
toUnitBorrowed = \x -> Str.isEmpty x
foo = \f, x -> f x