1 | #!/usr/bin/env Rscript
|
2 | #
|
3 | # report.R
|
4 |
|
5 | library(dplyr)
|
6 |
|
7 | options(stringsAsFactors = F)
|
8 |
|
9 | source('benchmarks/common.R')
|
10 |
|
11 | UnitTestReport = function(in_dir, out_dir) {
|
12 | tasks = readTsv(file.path(in_dir, 'tasks.tsv'))
|
13 |
|
14 | tasks %>% filter(status != 0) -> failed
|
15 | if (nrow(failed) != 0) {
|
16 | print(failed)
|
17 | stop('Some tasks failed')
|
18 | }
|
19 |
|
20 | tasks %>%
|
21 | mutate(elapsed_ms = elapsed_secs * 1000) %>%
|
22 | select(-c(status, elapsed_secs)) %>%
|
23 | select(c(elapsed_ms, test, test_HREF)) ->
|
24 | tasks
|
25 |
|
26 | precision = SamePrecision(0)
|
27 | writeTsv(tasks, file.path(out_dir, 'report'), precision)
|
28 | }
|
29 |
|
30 | main = function(argv) {
|
31 | action = argv[[1]]
|
32 | in_dir = argv[[2]]
|
33 | out_dir = argv[[3]]
|
34 |
|
35 | if (action == 'unit') {
|
36 | UnitTestReport(in_dir, out_dir)
|
37 |
|
38 | } else if (action == 'spec') {
|
39 | # TODO
|
40 |
|
41 | } else {
|
42 | Log("Invalid action '%s'", action)
|
43 | quit(status = 1)
|
44 | }
|
45 | Log('PID %d done', Sys.getpid())
|
46 | }
|
47 |
|
48 |
|
49 | if (length(sys.frames()) == 0) {
|
50 | # increase ggplot font size globally
|
51 | #theme_set(theme_grey(base_size = 20))
|
52 |
|
53 | main(commandArgs(TRUE))
|
54 | }
|