tests/testthat/test-functions.R
In crotman/kludgenudger: support for Bruno Crotman's thesis about kludges in software development
library(readr)
library(stringr)
test_that("map_lines works", {
caso_1 <- read_rds("data/info_map_lines_info_teste_1.rds")
expect_equal(
caso_1$function_output %>% mutate(equal = FALSE),
map_lines(
file = str_glue("data/caso1_map_lines/{caso_1$file}"),
lines_prev_param = caso_1$lines_prev_param,
lines_post_param = caso_1$lines_post_param
)
)
caso_2 <- read_rds("data/info_map_lines_info_teste_2.rds")
expect_equal(
caso_1$function_output %>% mutate(equal = FALSE),
map_lines(
file = str_glue("data/caso1_map_lines/{caso_2$file}"),
lines_prev_param = caso_1$lines_prev_param,
lines_post_param = caso_1$lines_post_param
)
)
caso_3 <- tibble(map_remove = 1:10, map_add = 1:10, equal = TRUE)
expect_equal(
caso_3,
map_lines(
file = "data/zero_sized.diff",
lines_prev_param = 10,
lines_post_param = 10
)
)
})
test_that("decorate_code_and_alerts works", {
caso_1 <- read_rds("data/info_decorate_code_and_alerts.rds")
expect_equal(
caso_1$function_output,
output <- decorate_code_and_alerts(
strings = caso_1$strings,
alerts = caso_1$alerts,
region_only = caso_1$region_only,
region_size = caso_1$region_size
)
)
})
test_that("decorate_code_alerts_mapped works", {
caso_1 <- read_rds("data/info_decorate_code_alerts_mapped.rds")
expect_equal(
caso_1$function_output,
decorate_code_alerts_mapped(
strings_old_param = caso_1$strings_old_param,
alerts_old_param = caso_1$alerts_old_param,
strings_new_param = caso_1$strings_new_param,
alerts_new_param = caso_1$alerts_new_param,
map_param = caso_1$map_param,
region_only = caso_1$region_only,
region_size = caso_1$region_size
)
)
})
test_that("extract_piece_of_code works", {
expect_equal(
"int varX = function(paramX, paramY);",
extract_piece_of_code(
strings_param = read_lines("data/caso1_extract_piece_of_code/code.java"),
begin_line = 9,
end_line = 9,
begin_column = 9,
end_column = 44
)
)
})
# test_that("read_raw_ast_nodes works", {
# caso_1 <- read_rds("data/info_read_raw_ast_nodes.rds")
# expect_equal(
# caso_1$function_output,
# read_raw_ast_nodes(
# code_location = "data/caso1_read_raw_ast_nodes/code.java",
# output_location = "data/caso1_read_raw_ast_nodes/code.xml",
# pmd_location = "C:/doutorado/AnaliseTwitter4j/pmd/bin",
# blockrules_location = "data/blockrules/blockrules.xml"
# )
# )
# })
test_that("generate_ast_tree_from_raw_nodes works", {
caso_1 <- read_rds("data/info_generate_ast_tree_from_raw_nodes.rds")
expect_equal(
caso_1$function_output %>% tidygraph::activate(nodes) %>% as_tibble(),
generate_ast_tree_from_raw_nodes(
nodes = caso_1$nodes
) %>% tidygraph::activate(nodes) %>% as_tibble()
)
expect_equal(
caso_1$function_output %>% tidygraph::activate(edges) %>% as_tibble(),
generate_ast_tree_from_raw_nodes(
nodes = caso_1$nodes
) %>% tidygraph::activate(edges) %>% as_tibble()
)
})
test_that("cross_versions works", {
caso_1 <- read_rds("data/info_cross_versions.rds")
old <- read_lines("data/caso1_velho/code.java")
new <- read_lines("data/caso1_new/code.java")
param <- caso_1$examples_executed %>%
mutate(path = c("data/caso1_velho/code.java", "data/caso1_new/code.java"))
expect_equal(
caso_1$function_output$lines_map[[1]] %>% select(-c(file_prev, file_post)) %>%
mutate(equal = FALSE),
cross_versions(
examples_executed = param
)$lines_map[[1]] %>% select(-c(file_prev, file_post))
)
})
test_that("calculate_features works", {
caso_1 <- read_rds("data/info_calculate_features.rds")
expect_equal(
caso_1$function_output,
calculate_features(
graph_old = caso_1$graph_old,
graph_new = caso_1$graph_new,
coordinates = caso_1$coordinates
)
)
})
test_that("calculate_features_from_versions works", {
caso_1 <- read_rds("data/info_calculate_features_from_versions.rds")
esperado <- caso_1$output_function$features$features
resultado <- calculate_features_from_versions(
code_file_new = "data/caso1_calculate_features_from_versions_novo/code.java",
code_file_old = "data/caso1_calculate_features_from_versions_velho/code.java",
pmd_path = "pmd/bin/pmd.bat"
)$features$features
expect_equal(
esperado,
resultado
)
})
test_that("extract_comments_from_code works", {
function_output <- tribble(
~beginline, ~endline, ~begincolumn, ~endcolumn, ~comment,
5, 5, 4, 33, "Comentário que vai dar merda",
24, 26, 13, 20, "e outro aqui\n pulando linha\n bonito",
28, 28, 13, 18, "aqui",
33, 33, 9, 24, "aqui mais um"
) %>%
mutate(
across(where(is.numeric), as.integer)
)
expect_equal(
function_output,
teste <- extract_comments_from_code(
file_path = "data/caso1_extract_comments_from_code/code.java"
)
)
})
test_that("decide_heurist_if_same_alert works", {
features_input <- tribble(
~same_rule,~same_id_group,~same_method_group,~same_method_name,~same_block,~same_code,~same_method_code,~dist_line,~dist_line_normalized_block,~dist_line_normalized_method,~dist_line_normalized_unit,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 0, 0, 0, 0 ,
TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, 0, 1, 0, 0 ,
TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0 ,
TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 4, 0, 0, 0 ,
FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 0, 0, 0, 0 ,
TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 6, 0, 0, 0 ,
)
output <- tribble(
~same_alert,
TRUE,
TRUE,
TRUE,
TRUE,
FALSE,
FALSE
)
expect_equal(
output,
decide_heurist_if_same_alert(
clean_calculated_features = features_input
)
)
})
test_that("calculate_features_from_versions works", {
output <- read_rds("data/info_calculate_features_from_versions_categorised_alerts.rds")
output_function <- calculate_features_from_versions(
code_file_new = "data/caso1_calculate_features_from_versions_novo-v2/code.java",
code_file_old = "data/caso1_calculate_features_from_versions_velho-v2/code.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("calculate_features_from_versions works with same files", {
output <- read_rds("data/calculate_same_files.rds")
output_function <- calculate_features_from_versions(
code_file_new = "data/caso_arquivos_iguais_novo/code.java",
code_file_old = "data/caso_arquivos_iguais_velho/code.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("join_ast_alerts works", {
ast <- read_rds("data/info_join_ast_alerts_ast.rds")
alerts <- read_rds("data/info_join_ast_alerts_alerts.rds")
output <- read_rds("data/info_join_ast_alerts_output.rds")
output_function <- join_ast_alerts(
ast = ast,
alerts = alerts
)
expect_equal(
output_function %>% activate("nodes") %>% as_tibble(),
output_function %>% activate("nodes") %>% as_tibble()
)
expect_equal(
output_function %>% activate("edges") %>% as_tibble(),
output_function %>% activate("edges") %>% as_tibble()
)
})
test_that("read_pmd_xml works with empty" ,{
empty <- tibble(
linha = numeric(),
beginline = integer(),
endline = integer(),
begincolumn = integer(),
endcolumn = integer(),
rule = character(),
ruleset = character(),
package = character(),
class = character(),
priority= integer(),
variable = character(),
method= character(),
id_alert = integer()
)
expect_equal(
read_pmd_xml("data/empty_pmd_output.xml"),
empty
)
})
test_that("calculate_features_from_versions works with no method", {
output <- read_rds("data/output_info_no_method.rds")$categorised_alerts
output_function <- calculate_features_from_versions(
code_file_new = "data/caso_no_method/novo/MarkersInternalPreferences.java",
code_file_old = "data/caso_no_method/velho/MarkersInternalPreferences.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("calculate_features_from_versions works with alerts in only one file", {
output <- read_rds("data/caso_xor_1/output.rds")
output_function <- calculate_features_from_versions(
code_file_new = "data/caso_xor_1/novo/FigInspectorPanel.java",
code_file_old = "data/caso_xor_1/velho/FigInspectorPanel.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("calculate_features_from_versions works with alerts in only one file", {
output <- read_rds("data/caso_xor_1/output2.rds")
output_function <- calculate_features_from_versions(
code_file_old = "data/caso_xor_1/novo/FigInspectorPanel.java",
code_file_new = "data/caso_xor_1/velho/FigInspectorPanel.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
#
#
# #
# #
# # test_that("read_raw_ast_nodes works", {
# # output_esperado <- read_rds("data/info_read_raw_ast_big.rds")
# #
# # tictoc::tic("read")
# # teste <- read_raw_ast_nodes(
# # code_location = "data/big-novo/facade.java",
# # output_location = "data/big-novo/facade.xml",
# # pmd_location = "C:/doutorado/AnaliseTwitter4j/pmd/bin",
# # blockrules_location = "data/blockrules/blockrules.xml"
# # )
# # tictoc::toc()
# #
# # })
# #
# #
# #
# #
# #
# #
# #
#
#
# # :/doutorado/ArgoUML/0_33_1/src/argouml-app/src/org/argouml/cognitive/ui/ActionSnooze.java
# # #
# # # test_that("compare_versions works",{
# # # #
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_33",
# dir_new <- "C:/doutorado/ArgoUML/0_34",
# log = "log-33-34"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_32",
# dir_new <- "C:/doutorado/ArgoUML/0_33",
# log = "log-32-33"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_31",
# dir_new <- "C:/doutorado/ArgoUML/0_32",
# log = "log-31-32"
# )
# tictoc::toc()
#
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.8",
dir_new <- "C:/doutorado/joda-time/joda-time-2.9",
log = "jodatime-2_8-2_9"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.8",
dir_new <- "C:/doutorado/joda-time/joda-time-2.7",
log = "jodatime-2_8-2_7"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.7",
dir_new <- "C:/doutorado/joda-time/joda-time-2.6",
log = "jodatime-2_7-2_6"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.6",
dir_new <- "C:/doutorado/joda-time/joda-time-2.5",
log = "jodatime-2_6-2_5"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.5",
dir_new <- "C:/doutorado/joda-time/joda-time-2.4",
log = "jodatime-2_5-2_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.5",
dir_new <- "C:/doutorado/joda-time/joda-time-2.4",
log = "jodatime-2_5-2_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-1.5",
dir_new <- "C:/doutorado/joda-time/joda-time-1.6.0",
log = "jodatime-1_5-1_6"
)
tictoc::toc()
#
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_29",
dir_new <- "C:/doutorado/ArgoUML/0_30",
log = "log-29-30"
)
tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_25",
# dir_new <- "C:/doutorado/ArgoUML/0_26",
# log = "log-25-26"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_28",
# dir_new <- "C:/doutorado/ArgoUML/0_29",
# log = "log-28-29"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_27",
# dir_new <- "C:/doutorado/ArgoUML/0_28",
# log = "log-27-28"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_26",
# dir_new <- "C:/doutorado/ArgoUML/0_27",
# log = "log-26-27"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_14",
# dir_new <- "C:/doutorado/ArgoUML/0_15",
# log = "log-14-15"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_19",
# dir_new <- "C:/doutorado/ArgoUML/0_20",
# log = "log-19-20"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_18",
# dir_new <- "C:/doutorado/ArgoUML/0_19",
# log = "log-18-19"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_17",
# dir_new <- "C:/doutorado/ArgoUML/0_18",
# log = "log-17-18"
# )
# tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_16",
dir_new <- "C:/doutorado/ArgoUML/0_17",
log = "log-16-17"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_12",
dir_new <- "C:/doutorado/ArgoUML/0_13_1",
log = "log-12-13_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_6",
dir_new <- "C:/doutorado/ArgoUML/0_14",
log = "log-13_6-14"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_5",
dir_new <- "C:/doutorado/ArgoUML/0_13_6",
log = "log-13_5-13_6"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_4",
dir_new <- "C:/doutorado/ArgoUML/0_13_5",
log = "log-13_4-13_5"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_3",
dir_new <- "C:/doutorado/ArgoUML/0_13_4",
log = "log-13_3-13_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_2",
dir_new <- "C:/doutorado/ArgoUML/0_13_3",
log = "log-13_2-13_3"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_1",
dir_new <- "C:/doutorado/ArgoUML/0_13_2",
log = "log-13_1-13_2"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_12",
dir_new <- "C:/doutorado/ArgoUML/0_13_1",
log = "log-12-13_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_4",
dir_new <- "C:/doutorado/ArgoUML/0_12",
log = "log-11_4-12"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_3",
dir_new <- "C:/doutorado/ArgoUML/0_11_4",
log = "log-11_3-11_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_2",
dir_new <- "C:/doutorado/ArgoUML/0_11_3",
log = "log-11_2-11_3"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_1",
dir_new <- "C:/doutorado/ArgoUML/0_11_2",
log = "log-11_1-11_2"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_10",
dir_new <- "C:/doutorado/ArgoUML/0_11_1",
log = "log-10-11_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_9",
dir_new <- "C:/doutorado/ArgoUML/0_10",
log = "log-9_9-10"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_8",
dir_new <- "C:/doutorado/ArgoUML/0_9_9",
log = "log-9_8-9_9"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_7",
dir_new <- "C:/doutorado/ArgoUML/0_9_8",
log = "log-9_7-9_8"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_6",
dir_new <- "C:/doutorado/ArgoUML/0_9_7",
log = "log-9_6-9_7"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_4",
dir_new <- "C:/doutorado/ArgoUML/0_9_6",
log = "log-9_4-9_6"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_3",
dir_new <- "C:/doutorado/ArgoUML/0_9_4",
log = "log-9_3-9_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_2",
dir_new <- "C:/doutorado/ArgoUML/0_9_3",
log = "log-9_2-9_3"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_1",
dir_new <- "C:/doutorado/ArgoUML/0_9_2",
log = "log-9_1-9_2"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_0",
dir_new <- "C:/doutorado/ArgoUML/0_9_1",
log = "log-9_0-9_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_8_1",
dir_new <- "C:/doutorado/ArgoUML/0_9_0",
log = "log-8_1-9_0"
)
tictoc::toc()
#
#
#
# # # #
# # # # output <- read_rds("data/output_compare_versions.rds")
# # # #
# # # # expect_equal(
# # # # output,
# # # # output_function
# # # # )
# # # #
# # # #
# # # # })
# # #
# # # #
# # # # #
# # # teste <- calculate_features_from_versions(
# # # code_file_new = "data\eclipse_novo",
# # # code_file_old = "data\eclipse_velho",
# # # pmd_path = "pmd/bin/pmd.bat"
# # # )
# # # # #
# # # # #
# # # # # #
# # # # # # teste <- calculate_features_from_versions(
# # # # # # code_file_new = "c:/doutorado/eclipse/eclipse-R4_3/eclipse-R4_3/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java",
# # # # # # code_file_old = "c:/doutorado/eclipse/eclipse-R4_3/eclipse-R4_3/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java",
# # # # # # pmd_path = "pmd/bin/pmd.bat"
# # # # # # )
# # # # # #
# # # # # #
# # # # # #
# # # # # #
# # # # # # c:/doutorado/eclipse/eclipse-R4_3/eclipse-R4_3/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java
# # # # # # c:/doutorado/eclipse/eclipse-R4_4/eclipse-R4_4/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java
# # #
# # #
# # #
# # #
# # #
# # #
# # #
# # # arquivos <- read_rds("data/log/df.rds") %>%
# # # mutate(
# # # teste = map(.x = str_glue("data/log/{id}.rds"), read_rds)
# # # )
# # #
# # #
# # #
# # #
# # # teste <- read_rds("antes_erro.rds")
# # #
# # # teste %>%
# # # select(
# # # .data$beginline,
# # # .data$endline,
# # # .data$rule,
# # # .data$id_group,
# # # .data$method,
# # # .data$rule_alert,
# # # .data$code
# # # )
# # #
# # #
# # #
# # #
# # #
# #
# #
# # #
# # # #
# # #
# # #
# # #
# # # alert <- read_rds("graphs_from_alerts_new.rds")
# # #
# # #
# # #
# #
# #
# #
# # #
# # # list <- read_rds("data/log/df.rds") %>%
# # # filter(id %in% c(1877, 1421))
# #
# #
# #
# #
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_25",
# # dest_file = "comments_25.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_26",
# # dest_file = "comments_26.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_27",
# # dest_file = "comments_27.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_28",
# # dest_file = "comments_28.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_29",
# # dest_file = "comments_29.rds"
# # )
# #
# #
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_30",
# # dest_file = "comments_30.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_31",
# # dest_file = "comments_31.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_32",
# # dest_file = "comments_32.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_33",
# # dest_file = "comments_33.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_34",
# # dest_file = "comments_34.rds"
# # )
# #
# #
# #
# #
# # library(tidyverse)
# # library(tidygraph)
# # library(furrr)
# #
# # dir <- "C:/doutorado/resultados/log-33-34"
# #
# #
# # categorised_alerts <- list.files(
# # str_glue("{dir}/categorised_alerts"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(categorised_alerts = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(
# # id,
# # categorised_alerts
# # )
# #
# #
# # executions <- list.files(
# # str_glue("{dir}/execution"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(executions = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(
# # executions
# # )
# #
# #
# # features <- list.files(
# # str_glue("{dir}/features"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(features = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(features)
# #
# #
# # graph_old_with_alert <- list.files(
# # str_glue("{dir}/graph_old_with_alert"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(graph_old_with_alert = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(
# # graph_old_with_alert
# # )
# #
# #
# # graph_new_with_alert <- list.files(
# # str_glue("{dir}/graph_new_with_alert"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(graph_new_with_alert = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(graph_new_with_alert)
# #
# # versions_crossed <- list.files(
# # str_glue("{dir}/versions_crossed"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(versions_crossed = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(versions_crossed)
# #
# # versions_executed <- list.files(
# # str_glue("{dir}/versions_crossed"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(versions_executed = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(versions_executed)
# #
# #
# # output <- bind_cols(
# # categorised_alerts,
# # executions,
# # features,
# # graph_new_with_alert,
# # graph_old_with_alert,
# # versions_crossed,
# # versions_executed
# #
# #
# # )
# #
# #
# #
# #
# #
# #
# #
# #
# #
#
#
# teste <- read_results( dir = "C:/doutorado/resultados/log-15-16",
# version_old = 15,
# version_new = 16
# )
#
#
# all_results <- tibble(
# version_old = c("9_1", "9_2", "9_3", "9_4", "9_6", "9_7", "9_8", "9_9", "10", "11_1", "11_2", "11_3","11_4", "12", "13_1", "13_2","13_3", "13_4", "13_5", "13_6",14:33),
# version_new = c("9_2", "9_3", "9_4", "9_6", "9_7", "9_8", "9_9", "10", "11_1", "11_2", "11_3","11_4", "12", "13_1", "13_2", "13_3", "13_4", "13_5", "13_6", 14:34)
# ) %>%
# mutate(
# dir = str_glue("C:/doutorado/resultados/log-{version_old}-{version_new}")
# ) %>%
# mutate(data = pmap(.l = list(dir = dir, version_old = version_old, version_new = version_new), .f = read_results ))
#
# write_rds(all_results, "all_results.rds")
#
#
#
#
#
#
# completo <- list.files("C:/doutorado/resultados/log-13_6-14/graph_new_with_alert") %>% enframe()
#
# faltando <- list.files("C:/doutorado/resultados/log-13_6-14/execution") %>% enframe()
#
# teste <- completo %>% anti_join(faltando, by =c("value"))
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_15",
# dest_file = "comments_15.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_16",
# dest_file = "comments_16.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_17",
# dest_file = "comments_17.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_18",
# dest_file = "comments_18.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_19",
# dest_file = "comments_19.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_20",
# dest_file = "comments_20.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_21",
# dest_file = "comments_21.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_22",
# dest_file = "comments_22.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_23",
# dest_file = "comments_23.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_14",
# dest_file = "comments_14.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_14",
# dest_file = "comments_14.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_6",
# dest_file = "comments_13_6.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_5",
# dest_file = "comments_13_5.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_4",
# dest_file = "comments_13_4.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_3",
# dest_file = "comments_13_3.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_2",
# dest_file = "comments_13_2.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_1",
# dest_file = "comments_13_1.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_12",
# dest_file = "comments_12.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_4",
# dest_file = "comments_11_4.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_3",
# dest_file = "comments_11_3.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_2",
# dest_file = "comments_11_2.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_1",
# dest_file = "comments_11_1.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_12",
# dest_file = "comments_12.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_4",
# dest_file = "comments_11_4.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_3",
# dest_file = "comments_11_3.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_2",
# dest_file = "comments_11_2.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_1",
# dest_file = "comments_11_1.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_10",
# dest_file = "comments_10.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_9",
# dest_file = "comments_9_9.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_8",
# dest_file = "comments_9_8.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_7",
# dest_file = "comments_9_7.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_6",
# dest_file = "comments_9_6.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_4",
# dest_file = "comments_9_4.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_3",
# dest_file = "comments_9_3.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_2",
# dest_file = "comments_9_2.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_1",
# dest_file = "comments_9_1.rds"
# )
#
#
#
#
#
#
# teste <- decorate_code_and_alerts(
# strings = caso_1$strings,
# alerts = caso_1$alerts,
# region_only = caso_1$region_only,
# region_size = caso_1$region_size,
# use_mnemonic = TRUE
# )
#
#
# teste <- read_and_decorate_code_and_alerts_mapped(
# "little-tree/code.java",
# saida_alg2$versions_executed$pmd_output[[1]],
# "little-tree-new/code.java",
# saida_alg2$versions_executed$pmd_output[[2]],
# saida_alg2$versions_crossed$lines_map[[1]],
# TRUE,
# 20,
# TRUE,
# size_line_of_code_side_by_side = 60
# )
#
#
# teste
#
# caso <- list(
# strings_old_param = caso_1$strings_old_param,
# alerts_old_param = caso_1$alerts_old_param,
# strings_new_param = caso_1$strings_new_param,
# alerts_new_param = caso_1$alerts_new_param,
# map_param = caso_1$map_param,
# region_only = caso_1$region_only,
# region_size = caso_1$region_size,
# function_output = function_output
# )
#
# write_rds(caso, "data/info_decorate_code_alerts_mapped.rds" )
#
#
# saida_alg2 <- kludgenudger::calculate_features_from_versions(
# code_file_old = "little-tree/code.java",
# code_file_new = "little-tree-new/code.java",
# pmd_path = pmd_path,
# glue_string = "{.data$id_alert}:line:{.data$beginline},\n{.data$small_rule}.{if_else(is.na(.data$rule_alert),'',paste0('\n',.data$rule_alert))}",
# mostra_new = c(3, 4, 5, 17),
# mostra_old = c(3, 4, 6, 15, 13, 15),
# blockrules_location = "data/blockrules/blockrules_simple.xml"
# )
#
#
# chart_graph_new <- kludgenudger::show_ast(
# saida_alg2$graph_new_with_alert,
# size_label = 3,
# show_label = TRUE,
# alpha_label = "mostra",
# name_field = "glue",
# aspect = 0.5
#
# )
#
# chart_graph_old <- kludgenudger::show_ast(
# saida_alg2$graph_old_with_alert,
# size_label = 3,
# show_label = "TRUE",
# alpha_label = "mostra",
# name_field = "glue",
# aspect = 0.5
#
# )
#
#
#
# chart_graph_old / chart_graph_new
#
# kludgenudger::show_ast(
# saida_alg2$graphs_from_alerts_old %>% rename( id_alert = id_alert_old, graph = graph_old) %$% graph[[1]] ,
# size_label = 3,
# aspect = 2,
# nudge_x = 0.2
# )
#
#
# saida_alg2 <- calculate_features_from_versions(
# code_file_old = "little-tree/code.java",
# code_file_new = "little-tree-new/code.java",
# pmd_path = pmd_path,
# glue_string = "{.data$id_alert}:line:{.data$beginline},\n{.data$small_rule}.{if_else(is.na(.data$rule_alert),'',paste0('\n',.data$rule_alert))}",
# mostra_new = c(3, 4, 5, 17),
# mostra_old = c(3, 4, 6, 15, 13, 15),
# blockrules_location = "data/blockrules/blockrules_simple.xml",
# optimize_feature_calculation = FALSE
# )
# #
# #
# #
#
#
#
#
#
# report_features(
# saida_alg2,
# "Resulting features\\label{table_features} ",
# types_to_show = c(
# "same_rule",
# "same_id_group",
# "same_method_group",
# "same_method_name",
# "same_block",
# "same_code",
# "same_method_code",
# "dist_line"
# )
#
# )
#
#
#
#
# saida <- extract_diff_pairs_from_diff_file("teste.diff")
#
# tictoc::tic()
# system(str_glue("pmd/bin/pmd.bat -d C:/doutorado/ArgoUML/0_26 -f xml -R data/blockrules/blockrules.xml -reportfile teste.xml"), show.output.on.console = FALSE, invisible = TRUE)
# tictoc::toc()
#
# alertas <- read_pmd_xml_all_files("teste.xml")
#
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.9",
dest_file = "comments_jodatime_2_9.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.8",
dest_file = "comments_jodatime_2_8.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.7",
dest_file = "comments_jodatime_2_7.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.6",
dest_file = "comments_jodatime_2_6.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.5",
dest_file = "comments_jodatime_2_5.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.4",
dest_file = "comments_jodatime_2_4.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.3",
dest_file = "comments_jodatime_2_3.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.2",
dest_file = "comments_jodatime_2_2.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.1",
dest_file = "comments_jodatime_2_1.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.0",
dest_file = "comments_jodatime_2_0.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.6",
dest_file = "comments_jodatime_1_6.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.5",
dest_file = "comments_jodatime_1_5.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.4",
dest_file = "comments_jodatime_1_4.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.3",
dest_file = "comments_jodatime_1_3.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.2",
dest_file = "comments_jodatime_1_2.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.1",
dest_file = "comments_jodatime_1_1.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.0",
dest_file = "comments_jodatime_1.0.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-0.9",
dest_file = "comments_jodatime_0_9.rds"
)
extract_selected_comments(
path_to_comments = "comments_joda"
)
crotman/kludgenudger documentation built on Oct. 19, 2021, 7:30 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(readr)
library(stringr)
test_that("map_lines works", {
caso_1 <- read_rds("data/info_map_lines_info_teste_1.rds")
expect_equal(
caso_1$function_output %>% mutate(equal = FALSE),
map_lines(
file = str_glue("data/caso1_map_lines/{caso_1$file}"),
lines_prev_param = caso_1$lines_prev_param,
lines_post_param = caso_1$lines_post_param
)
)
caso_2 <- read_rds("data/info_map_lines_info_teste_2.rds")
expect_equal(
caso_1$function_output %>% mutate(equal = FALSE),
map_lines(
file = str_glue("data/caso1_map_lines/{caso_2$file}"),
lines_prev_param = caso_1$lines_prev_param,
lines_post_param = caso_1$lines_post_param
)
)
caso_3 <- tibble(map_remove = 1:10, map_add = 1:10, equal = TRUE)
expect_equal(
caso_3,
map_lines(
file = "data/zero_sized.diff",
lines_prev_param = 10,
lines_post_param = 10
)
)
})
test_that("decorate_code_and_alerts works", {
caso_1 <- read_rds("data/info_decorate_code_and_alerts.rds")
expect_equal(
caso_1$function_output,
output <- decorate_code_and_alerts(
strings = caso_1$strings,
alerts = caso_1$alerts,
region_only = caso_1$region_only,
region_size = caso_1$region_size
)
)
})
test_that("decorate_code_alerts_mapped works", {
caso_1 <- read_rds("data/info_decorate_code_alerts_mapped.rds")
expect_equal(
caso_1$function_output,
decorate_code_alerts_mapped(
strings_old_param = caso_1$strings_old_param,
alerts_old_param = caso_1$alerts_old_param,
strings_new_param = caso_1$strings_new_param,
alerts_new_param = caso_1$alerts_new_param,
map_param = caso_1$map_param,
region_only = caso_1$region_only,
region_size = caso_1$region_size
)
)
})
test_that("extract_piece_of_code works", {
expect_equal(
"int varX = function(paramX, paramY);",
extract_piece_of_code(
strings_param = read_lines("data/caso1_extract_piece_of_code/code.java"),
begin_line = 9,
end_line = 9,
begin_column = 9,
end_column = 44
)
)
})
# test_that("read_raw_ast_nodes works", {
# caso_1 <- read_rds("data/info_read_raw_ast_nodes.rds")
# expect_equal(
# caso_1$function_output,
# read_raw_ast_nodes(
# code_location = "data/caso1_read_raw_ast_nodes/code.java",
# output_location = "data/caso1_read_raw_ast_nodes/code.xml",
# pmd_location = "C:/doutorado/AnaliseTwitter4j/pmd/bin",
# blockrules_location = "data/blockrules/blockrules.xml"
# )
# )
# })
test_that("generate_ast_tree_from_raw_nodes works", {
caso_1 <- read_rds("data/info_generate_ast_tree_from_raw_nodes.rds")
expect_equal(
caso_1$function_output %>% tidygraph::activate(nodes) %>% as_tibble(),
generate_ast_tree_from_raw_nodes(
nodes = caso_1$nodes
) %>% tidygraph::activate(nodes) %>% as_tibble()
)
expect_equal(
caso_1$function_output %>% tidygraph::activate(edges) %>% as_tibble(),
generate_ast_tree_from_raw_nodes(
nodes = caso_1$nodes
) %>% tidygraph::activate(edges) %>% as_tibble()
)
})
test_that("cross_versions works", {
caso_1 <- read_rds("data/info_cross_versions.rds")
old <- read_lines("data/caso1_velho/code.java")
new <- read_lines("data/caso1_new/code.java")
param <- caso_1$examples_executed %>%
mutate(path = c("data/caso1_velho/code.java", "data/caso1_new/code.java"))
expect_equal(
caso_1$function_output$lines_map[[1]] %>% select(-c(file_prev, file_post)) %>%
mutate(equal = FALSE),
cross_versions(
examples_executed = param
)$lines_map[[1]] %>% select(-c(file_prev, file_post))
)
})
test_that("calculate_features works", {
caso_1 <- read_rds("data/info_calculate_features.rds")
expect_equal(
caso_1$function_output,
calculate_features(
graph_old = caso_1$graph_old,
graph_new = caso_1$graph_new,
coordinates = caso_1$coordinates
)
)
})
test_that("calculate_features_from_versions works", {
caso_1 <- read_rds("data/info_calculate_features_from_versions.rds")
esperado <- caso_1$output_function$features$features
resultado <- calculate_features_from_versions(
code_file_new = "data/caso1_calculate_features_from_versions_novo/code.java",
code_file_old = "data/caso1_calculate_features_from_versions_velho/code.java",
pmd_path = "pmd/bin/pmd.bat"
)$features$features
expect_equal(
esperado,
resultado
)
})
test_that("extract_comments_from_code works", {
function_output <- tribble(
~beginline, ~endline, ~begincolumn, ~endcolumn, ~comment,
5, 5, 4, 33, "Comentário que vai dar merda",
24, 26, 13, 20, "e outro aqui\n pulando linha\n bonito",
28, 28, 13, 18, "aqui",
33, 33, 9, 24, "aqui mais um"
) %>%
mutate(
across(where(is.numeric), as.integer)
)
expect_equal(
function_output,
teste <- extract_comments_from_code(
file_path = "data/caso1_extract_comments_from_code/code.java"
)
)
})
test_that("decide_heurist_if_same_alert works", {
features_input <- tribble(
~same_rule,~same_id_group,~same_method_group,~same_method_name,~same_block,~same_code,~same_method_code,~dist_line,~dist_line_normalized_block,~dist_line_normalized_method,~dist_line_normalized_unit,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 0, 0, 0, 0 ,
TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, 0, 1, 0, 0 ,
TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0 ,
TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 4, 0, 0, 0 ,
FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 0, 0, 0, 0 ,
TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 6, 0, 0, 0 ,
)
output <- tribble(
~same_alert,
TRUE,
TRUE,
TRUE,
TRUE,
FALSE,
FALSE
)
expect_equal(
output,
decide_heurist_if_same_alert(
clean_calculated_features = features_input
)
)
})
test_that("calculate_features_from_versions works", {
output <- read_rds("data/info_calculate_features_from_versions_categorised_alerts.rds")
output_function <- calculate_features_from_versions(
code_file_new = "data/caso1_calculate_features_from_versions_novo-v2/code.java",
code_file_old = "data/caso1_calculate_features_from_versions_velho-v2/code.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("calculate_features_from_versions works with same files", {
output <- read_rds("data/calculate_same_files.rds")
output_function <- calculate_features_from_versions(
code_file_new = "data/caso_arquivos_iguais_novo/code.java",
code_file_old = "data/caso_arquivos_iguais_velho/code.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("join_ast_alerts works", {
ast <- read_rds("data/info_join_ast_alerts_ast.rds")
alerts <- read_rds("data/info_join_ast_alerts_alerts.rds")
output <- read_rds("data/info_join_ast_alerts_output.rds")
output_function <- join_ast_alerts(
ast = ast,
alerts = alerts
)
expect_equal(
output_function %>% activate("nodes") %>% as_tibble(),
output_function %>% activate("nodes") %>% as_tibble()
)
expect_equal(
output_function %>% activate("edges") %>% as_tibble(),
output_function %>% activate("edges") %>% as_tibble()
)
})
test_that("read_pmd_xml works with empty" ,{
empty <- tibble(
linha = numeric(),
beginline = integer(),
endline = integer(),
begincolumn = integer(),
endcolumn = integer(),
rule = character(),
ruleset = character(),
package = character(),
class = character(),
priority= integer(),
variable = character(),
method= character(),
id_alert = integer()
)
expect_equal(
read_pmd_xml("data/empty_pmd_output.xml"),
empty
)
})
test_that("calculate_features_from_versions works with no method", {
output <- read_rds("data/output_info_no_method.rds")$categorised_alerts
output_function <- calculate_features_from_versions(
code_file_new = "data/caso_no_method/novo/MarkersInternalPreferences.java",
code_file_old = "data/caso_no_method/velho/MarkersInternalPreferences.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("calculate_features_from_versions works with alerts in only one file", {
output <- read_rds("data/caso_xor_1/output.rds")
output_function <- calculate_features_from_versions(
code_file_new = "data/caso_xor_1/novo/FigInspectorPanel.java",
code_file_old = "data/caso_xor_1/velho/FigInspectorPanel.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
test_that("calculate_features_from_versions works with alerts in only one file", {
output <- read_rds("data/caso_xor_1/output2.rds")
output_function <- calculate_features_from_versions(
code_file_old = "data/caso_xor_1/novo/FigInspectorPanel.java",
code_file_new = "data/caso_xor_1/velho/FigInspectorPanel.java",
pmd_path = "pmd/bin/pmd.bat"
)$categorised_alerts
expect_equal(
output,
output_function
)
})
#
#
# #
# #
# # test_that("read_raw_ast_nodes works", {
# # output_esperado <- read_rds("data/info_read_raw_ast_big.rds")
# #
# # tictoc::tic("read")
# # teste <- read_raw_ast_nodes(
# # code_location = "data/big-novo/facade.java",
# # output_location = "data/big-novo/facade.xml",
# # pmd_location = "C:/doutorado/AnaliseTwitter4j/pmd/bin",
# # blockrules_location = "data/blockrules/blockrules.xml"
# # )
# # tictoc::toc()
# #
# # })
# #
# #
# #
# #
# #
# #
# #
#
#
# # :/doutorado/ArgoUML/0_33_1/src/argouml-app/src/org/argouml/cognitive/ui/ActionSnooze.java
# # #
# # # test_that("compare_versions works",{
# # # #
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_33",
# dir_new <- "C:/doutorado/ArgoUML/0_34",
# log = "log-33-34"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_32",
# dir_new <- "C:/doutorado/ArgoUML/0_33",
# log = "log-32-33"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_31",
# dir_new <- "C:/doutorado/ArgoUML/0_32",
# log = "log-31-32"
# )
# tictoc::toc()
#
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.8",
dir_new <- "C:/doutorado/joda-time/joda-time-2.9",
log = "jodatime-2_8-2_9"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.8",
dir_new <- "C:/doutorado/joda-time/joda-time-2.7",
log = "jodatime-2_8-2_7"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.7",
dir_new <- "C:/doutorado/joda-time/joda-time-2.6",
log = "jodatime-2_7-2_6"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.6",
dir_new <- "C:/doutorado/joda-time/joda-time-2.5",
log = "jodatime-2_6-2_5"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.5",
dir_new <- "C:/doutorado/joda-time/joda-time-2.4",
log = "jodatime-2_5-2_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-2.5",
dir_new <- "C:/doutorado/joda-time/joda-time-2.4",
log = "jodatime-2_5-2_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/joda-time/joda-time-1.5",
dir_new <- "C:/doutorado/joda-time/joda-time-1.6.0",
log = "jodatime-1_5-1_6"
)
tictoc::toc()
#
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_29",
dir_new <- "C:/doutorado/ArgoUML/0_30",
log = "log-29-30"
)
tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_25",
# dir_new <- "C:/doutorado/ArgoUML/0_26",
# log = "log-25-26"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_28",
# dir_new <- "C:/doutorado/ArgoUML/0_29",
# log = "log-28-29"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_27",
# dir_new <- "C:/doutorado/ArgoUML/0_28",
# log = "log-27-28"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_26",
# dir_new <- "C:/doutorado/ArgoUML/0_27",
# log = "log-26-27"
# )
# tictoc::toc()
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_14",
# dir_new <- "C:/doutorado/ArgoUML/0_15",
# log = "log-14-15"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_19",
# dir_new <- "C:/doutorado/ArgoUML/0_20",
# log = "log-19-20"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_18",
# dir_new <- "C:/doutorado/ArgoUML/0_19",
# log = "log-18-19"
# )
# tictoc::toc()
#
#
# tictoc::tic("compare_versions")
# output_function <- compare_versions_read_outside(
# dir_old <- "C:/doutorado/ArgoUML/0_17",
# dir_new <- "C:/doutorado/ArgoUML/0_18",
# log = "log-17-18"
# )
# tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_16",
dir_new <- "C:/doutorado/ArgoUML/0_17",
log = "log-16-17"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_12",
dir_new <- "C:/doutorado/ArgoUML/0_13_1",
log = "log-12-13_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_6",
dir_new <- "C:/doutorado/ArgoUML/0_14",
log = "log-13_6-14"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_5",
dir_new <- "C:/doutorado/ArgoUML/0_13_6",
log = "log-13_5-13_6"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_4",
dir_new <- "C:/doutorado/ArgoUML/0_13_5",
log = "log-13_4-13_5"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_3",
dir_new <- "C:/doutorado/ArgoUML/0_13_4",
log = "log-13_3-13_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_2",
dir_new <- "C:/doutorado/ArgoUML/0_13_3",
log = "log-13_2-13_3"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_13_1",
dir_new <- "C:/doutorado/ArgoUML/0_13_2",
log = "log-13_1-13_2"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_12",
dir_new <- "C:/doutorado/ArgoUML/0_13_1",
log = "log-12-13_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_4",
dir_new <- "C:/doutorado/ArgoUML/0_12",
log = "log-11_4-12"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_3",
dir_new <- "C:/doutorado/ArgoUML/0_11_4",
log = "log-11_3-11_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_2",
dir_new <- "C:/doutorado/ArgoUML/0_11_3",
log = "log-11_2-11_3"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_11_1",
dir_new <- "C:/doutorado/ArgoUML/0_11_2",
log = "log-11_1-11_2"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_10",
dir_new <- "C:/doutorado/ArgoUML/0_11_1",
log = "log-10-11_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_9",
dir_new <- "C:/doutorado/ArgoUML/0_10",
log = "log-9_9-10"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_8",
dir_new <- "C:/doutorado/ArgoUML/0_9_9",
log = "log-9_8-9_9"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_7",
dir_new <- "C:/doutorado/ArgoUML/0_9_8",
log = "log-9_7-9_8"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_6",
dir_new <- "C:/doutorado/ArgoUML/0_9_7",
log = "log-9_6-9_7"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_4",
dir_new <- "C:/doutorado/ArgoUML/0_9_6",
log = "log-9_4-9_6"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_3",
dir_new <- "C:/doutorado/ArgoUML/0_9_4",
log = "log-9_3-9_4"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_2",
dir_new <- "C:/doutorado/ArgoUML/0_9_3",
log = "log-9_2-9_3"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_1",
dir_new <- "C:/doutorado/ArgoUML/0_9_2",
log = "log-9_1-9_2"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_9_0",
dir_new <- "C:/doutorado/ArgoUML/0_9_1",
log = "log-9_0-9_1"
)
tictoc::toc()
tictoc::tic("compare_versions")
output_function <- compare_versions_read_outside(
dir_old <- "C:/doutorado/ArgoUML/0_8_1",
dir_new <- "C:/doutorado/ArgoUML/0_9_0",
log = "log-8_1-9_0"
)
tictoc::toc()
#
#
#
# # # #
# # # # output <- read_rds("data/output_compare_versions.rds")
# # # #
# # # # expect_equal(
# # # # output,
# # # # output_function
# # # # )
# # # #
# # # #
# # # # })
# # #
# # # #
# # # # #
# # # teste <- calculate_features_from_versions(
# # # code_file_new = "data\eclipse_novo",
# # # code_file_old = "data\eclipse_velho",
# # # pmd_path = "pmd/bin/pmd.bat"
# # # )
# # # # #
# # # # #
# # # # # #
# # # # # # teste <- calculate_features_from_versions(
# # # # # # code_file_new = "c:/doutorado/eclipse/eclipse-R4_3/eclipse-R4_3/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java",
# # # # # # code_file_old = "c:/doutorado/eclipse/eclipse-R4_3/eclipse-R4_3/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java",
# # # # # # pmd_path = "pmd/bin/pmd.bat"
# # # # # # )
# # # # # #
# # # # # #
# # # # # #
# # # # # #
# # # # # # c:/doutorado/eclipse/eclipse-R4_3/eclipse-R4_3/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java
# # # # # # c:/doutorado/eclipse/eclipse-R4_4/eclipse-R4_4/platform-core/plugins/org.eclipse.core.filesystem.ftp/src/org/eclipse/core/internal/filesystem/ftp/FTPUtil.java
# # #
# # #
# # #
# # #
# # #
# # #
# # #
# # # arquivos <- read_rds("data/log/df.rds") %>%
# # # mutate(
# # # teste = map(.x = str_glue("data/log/{id}.rds"), read_rds)
# # # )
# # #
# # #
# # #
# # #
# # # teste <- read_rds("antes_erro.rds")
# # #
# # # teste %>%
# # # select(
# # # .data$beginline,
# # # .data$endline,
# # # .data$rule,
# # # .data$id_group,
# # # .data$method,
# # # .data$rule_alert,
# # # .data$code
# # # )
# # #
# # #
# # #
# # #
# # #
# #
# #
# # #
# # # #
# # #
# # #
# # #
# # # alert <- read_rds("graphs_from_alerts_new.rds")
# # #
# # #
# # #
# #
# #
# #
# # #
# # # list <- read_rds("data/log/df.rds") %>%
# # # filter(id %in% c(1877, 1421))
# #
# #
# #
# #
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_25",
# # dest_file = "comments_25.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_26",
# # dest_file = "comments_26.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_27",
# # dest_file = "comments_27.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_28",
# # dest_file = "comments_28.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_29",
# # dest_file = "comments_29.rds"
# # )
# #
# #
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_30",
# # dest_file = "comments_30.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_31",
# # dest_file = "comments_31.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_32",
# # dest_file = "comments_32.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_33",
# # dest_file = "comments_33.rds"
# # )
# #
# # extract_comments_from_directory(
# # dir = "C:/doutorado/ArgoUML/0_34",
# # dest_file = "comments_34.rds"
# # )
# #
# #
# #
# #
# # library(tidyverse)
# # library(tidygraph)
# # library(furrr)
# #
# # dir <- "C:/doutorado/resultados/log-33-34"
# #
# #
# # categorised_alerts <- list.files(
# # str_glue("{dir}/categorised_alerts"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(categorised_alerts = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(
# # id,
# # categorised_alerts
# # )
# #
# #
# # executions <- list.files(
# # str_glue("{dir}/execution"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(executions = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(
# # executions
# # )
# #
# #
# # features <- list.files(
# # str_glue("{dir}/features"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(features = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(features)
# #
# #
# # graph_old_with_alert <- list.files(
# # str_glue("{dir}/graph_old_with_alert"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(graph_old_with_alert = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(
# # graph_old_with_alert
# # )
# #
# #
# # graph_new_with_alert <- list.files(
# # str_glue("{dir}/graph_new_with_alert"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(graph_new_with_alert = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(graph_new_with_alert)
# #
# # versions_crossed <- list.files(
# # str_glue("{dir}/versions_crossed"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(versions_crossed = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(versions_crossed)
# #
# # versions_executed <- list.files(
# # str_glue("{dir}/versions_crossed"),
# # full.names = TRUE
# # ) %>%
# # enframe(name = "id", value = "file") %>%
# # mutate(number = str_match(file, pattern = "[0-9]*.rds") %>% str_remove(".rds")) %>%
# # mutate(versions_executed = future_map(
# # .x = file,
# # .f = read_rds,
# # .progress = TRUE
# # )) %>%
# # select(versions_executed)
# #
# #
# # output <- bind_cols(
# # categorised_alerts,
# # executions,
# # features,
# # graph_new_with_alert,
# # graph_old_with_alert,
# # versions_crossed,
# # versions_executed
# #
# #
# # )
# #
# #
# #
# #
# #
# #
# #
# #
# #
#
#
# teste <- read_results( dir = "C:/doutorado/resultados/log-15-16",
# version_old = 15,
# version_new = 16
# )
#
#
# all_results <- tibble(
# version_old = c("9_1", "9_2", "9_3", "9_4", "9_6", "9_7", "9_8", "9_9", "10", "11_1", "11_2", "11_3","11_4", "12", "13_1", "13_2","13_3", "13_4", "13_5", "13_6",14:33),
# version_new = c("9_2", "9_3", "9_4", "9_6", "9_7", "9_8", "9_9", "10", "11_1", "11_2", "11_3","11_4", "12", "13_1", "13_2", "13_3", "13_4", "13_5", "13_6", 14:34)
# ) %>%
# mutate(
# dir = str_glue("C:/doutorado/resultados/log-{version_old}-{version_new}")
# ) %>%
# mutate(data = pmap(.l = list(dir = dir, version_old = version_old, version_new = version_new), .f = read_results ))
#
# write_rds(all_results, "all_results.rds")
#
#
#
#
#
#
# completo <- list.files("C:/doutorado/resultados/log-13_6-14/graph_new_with_alert") %>% enframe()
#
# faltando <- list.files("C:/doutorado/resultados/log-13_6-14/execution") %>% enframe()
#
# teste <- completo %>% anti_join(faltando, by =c("value"))
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_15",
# dest_file = "comments_15.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_16",
# dest_file = "comments_16.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_17",
# dest_file = "comments_17.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_18",
# dest_file = "comments_18.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_19",
# dest_file = "comments_19.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_20",
# dest_file = "comments_20.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_21",
# dest_file = "comments_21.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_22",
# dest_file = "comments_22.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_23",
# dest_file = "comments_23.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_14",
# dest_file = "comments_14.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_14",
# dest_file = "comments_14.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_6",
# dest_file = "comments_13_6.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_5",
# dest_file = "comments_13_5.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_4",
# dest_file = "comments_13_4.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_3",
# dest_file = "comments_13_3.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_2",
# dest_file = "comments_13_2.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_13_1",
# dest_file = "comments_13_1.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_12",
# dest_file = "comments_12.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_4",
# dest_file = "comments_11_4.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_3",
# dest_file = "comments_11_3.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_2",
# dest_file = "comments_11_2.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_1",
# dest_file = "comments_11_1.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_12",
# dest_file = "comments_12.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_4",
# dest_file = "comments_11_4.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_3",
# dest_file = "comments_11_3.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_2",
# dest_file = "comments_11_2.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_11_1",
# dest_file = "comments_11_1.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_10",
# dest_file = "comments_10.rds"
# )
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_9",
# dest_file = "comments_9_9.rds"
# )
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_8",
# dest_file = "comments_9_8.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_7",
# dest_file = "comments_9_7.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_6",
# dest_file = "comments_9_6.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_4",
# dest_file = "comments_9_4.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_3",
# dest_file = "comments_9_3.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_2",
# dest_file = "comments_9_2.rds"
# )
#
#
#
# extract_comments_from_directory(
# dir = "C:/doutorado/ArgoUML/0_9_1",
# dest_file = "comments_9_1.rds"
# )
#
#
#
#
#
#
# teste <- decorate_code_and_alerts(
# strings = caso_1$strings,
# alerts = caso_1$alerts,
# region_only = caso_1$region_only,
# region_size = caso_1$region_size,
# use_mnemonic = TRUE
# )
#
#
# teste <- read_and_decorate_code_and_alerts_mapped(
# "little-tree/code.java",
# saida_alg2$versions_executed$pmd_output[[1]],
# "little-tree-new/code.java",
# saida_alg2$versions_executed$pmd_output[[2]],
# saida_alg2$versions_crossed$lines_map[[1]],
# TRUE,
# 20,
# TRUE,
# size_line_of_code_side_by_side = 60
# )
#
#
# teste
#
# caso <- list(
# strings_old_param = caso_1$strings_old_param,
# alerts_old_param = caso_1$alerts_old_param,
# strings_new_param = caso_1$strings_new_param,
# alerts_new_param = caso_1$alerts_new_param,
# map_param = caso_1$map_param,
# region_only = caso_1$region_only,
# region_size = caso_1$region_size,
# function_output = function_output
# )
#
# write_rds(caso, "data/info_decorate_code_alerts_mapped.rds" )
#
#
# saida_alg2 <- kludgenudger::calculate_features_from_versions(
# code_file_old = "little-tree/code.java",
# code_file_new = "little-tree-new/code.java",
# pmd_path = pmd_path,
# glue_string = "{.data$id_alert}:line:{.data$beginline},\n{.data$small_rule}.{if_else(is.na(.data$rule_alert),'',paste0('\n',.data$rule_alert))}",
# mostra_new = c(3, 4, 5, 17),
# mostra_old = c(3, 4, 6, 15, 13, 15),
# blockrules_location = "data/blockrules/blockrules_simple.xml"
# )
#
#
# chart_graph_new <- kludgenudger::show_ast(
# saida_alg2$graph_new_with_alert,
# size_label = 3,
# show_label = TRUE,
# alpha_label = "mostra",
# name_field = "glue",
# aspect = 0.5
#
# )
#
# chart_graph_old <- kludgenudger::show_ast(
# saida_alg2$graph_old_with_alert,
# size_label = 3,
# show_label = "TRUE",
# alpha_label = "mostra",
# name_field = "glue",
# aspect = 0.5
#
# )
#
#
#
# chart_graph_old / chart_graph_new
#
# kludgenudger::show_ast(
# saida_alg2$graphs_from_alerts_old %>% rename( id_alert = id_alert_old, graph = graph_old) %$% graph[[1]] ,
# size_label = 3,
# aspect = 2,
# nudge_x = 0.2
# )
#
#
# saida_alg2 <- calculate_features_from_versions(
# code_file_old = "little-tree/code.java",
# code_file_new = "little-tree-new/code.java",
# pmd_path = pmd_path,
# glue_string = "{.data$id_alert}:line:{.data$beginline},\n{.data$small_rule}.{if_else(is.na(.data$rule_alert),'',paste0('\n',.data$rule_alert))}",
# mostra_new = c(3, 4, 5, 17),
# mostra_old = c(3, 4, 6, 15, 13, 15),
# blockrules_location = "data/blockrules/blockrules_simple.xml",
# optimize_feature_calculation = FALSE
# )
# #
# #
# #
#
#
#
#
#
# report_features(
# saida_alg2,
# "Resulting features\\label{table_features} ",
# types_to_show = c(
# "same_rule",
# "same_id_group",
# "same_method_group",
# "same_method_name",
# "same_block",
# "same_code",
# "same_method_code",
# "dist_line"
# )
#
# )
#
#
#
#
# saida <- extract_diff_pairs_from_diff_file("teste.diff")
#
# tictoc::tic()
# system(str_glue("pmd/bin/pmd.bat -d C:/doutorado/ArgoUML/0_26 -f xml -R data/blockrules/blockrules.xml -reportfile teste.xml"), show.output.on.console = FALSE, invisible = TRUE)
# tictoc::toc()
#
# alertas <- read_pmd_xml_all_files("teste.xml")
#
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.9",
dest_file = "comments_jodatime_2_9.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.8",
dest_file = "comments_jodatime_2_8.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.7",
dest_file = "comments_jodatime_2_7.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.6",
dest_file = "comments_jodatime_2_6.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.5",
dest_file = "comments_jodatime_2_5.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.4",
dest_file = "comments_jodatime_2_4.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.3",
dest_file = "comments_jodatime_2_3.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.2",
dest_file = "comments_jodatime_2_2.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.1",
dest_file = "comments_jodatime_2_1.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-2.0",
dest_file = "comments_jodatime_2_0.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.6",
dest_file = "comments_jodatime_1_6.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.5",
dest_file = "comments_jodatime_1_5.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.4",
dest_file = "comments_jodatime_1_4.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.3",
dest_file = "comments_jodatime_1_3.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.2",
dest_file = "comments_jodatime_1_2.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.1",
dest_file = "comments_jodatime_1_1.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-1.0",
dest_file = "comments_jodatime_1.0.rds"
)
extract_comments_from_directory(
dir = "C:/doutorado/joda-time/joda-time-0.9",
dest_file = "comments_jodatime_0_9.rds"
)
extract_selected_comments(
path_to_comments = "comments_joda"
)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.