# Test per fieldByYear, authorProdOverTime, threeFieldsPlot, histNetwork, histPlot

test_that("fieldByYear genera output con grafico", {
  skip_on_cran()
  skip_if_not_installed("bibliometrixData")
  data(scientometrics, package = "bibliometrixData")
  res <- expect_no_error(
    suppressWarnings(suppressMessages(
      fieldByYear(scientometrics, field = "ID", timespan = NULL,
                  min.freq = 5, n.items = 5, graph = TRUE)
    ))
  )
  expect_type(res, "list")
  expect_true("graph" %in% names(res))
})

test_that("authorProdOverTime produce risultati corretti", {
  skip_on_cran()
  skip_if_not_installed("bibliometrixData")
  data(scientometrics, package = "bibliometrixData")
  res <- expect_no_error(
    suppressWarnings(suppressMessages(
      authorProdOverTime(scientometrics, k = 5, graph = FALSE)
    ))
  )
  expect_type(res, "list")
  expect_true(all(c("dfAU", "dfPapersAU", "graph") %in% names(res)))
  expect_true(is.data.frame(res$dfAU))
})

test_that("threeFieldsPlot genera sankey plot senza errori", {
  skip_on_cran()
  M <- load_wos_fixture()
  expect_no_error(
    suppressWarnings(suppressMessages(
      threeFieldsPlot(M, fields = c("AU", "DE", "SO"), n = c(5, 5, 5))
    ))
  )
})

test_that("histNetwork costruisce rete storica", {
  skip_on_cran()
  skip_if_not_installed("bibliometrixData")
  data(scientometrics, package = "bibliometrixData")
  histResults <- expect_no_error(
    suppressWarnings(suppressMessages(
      histNetwork(scientometrics, sep = ";", verbose = FALSE)
    ))
  )
  expect_type(histResults, "list")
})

test_that("histNetwork restituisce una matrice quadrata con poche citazioni locali", {
  M <- metaTagExtraction(load_wos_fixture(), Field = "SR")
  h <- suppressWarnings(suppressMessages(
    histNetwork(M, min.citations = 0, sep = ";", verbose = FALSE)
  ))
  expect_true(is.matrix(h$NetMatrix))
  expect_equal(nrow(h$NetMatrix), ncol(h$NetMatrix))
  expect_identical(rownames(h$NetMatrix), colnames(h$NetMatrix))
  expect_true(sum(h$NetMatrix) > 0)
})

test_that("histNetwork non fallisce senza citazioni locali", {
  # Nessun riferimento corrisponde a un documento della collezione: la colonna
  # LCR resta vuota e cocMatrix() restituisce NA invece di una matrice
  M <- metaTagExtraction(load_wos_fixture(), Field = "SR")
  M$CR <- "SMITH J, 1900, NOWHERE J DOI 10.0000/NONE"
  expect_no_error(
    suppressWarnings(suppressMessages(
      capture.output(h <- histNetwork(M, min.citations = 0, sep = ";", verbose = FALSE))
    ))
  )
  expect_true(is.matrix(h$NetMatrix))
  expect_equal(dim(h$NetMatrix), c(nrow(M), nrow(M)))
  expect_identical(rownames(h$NetMatrix), colnames(h$NetMatrix))
  expect_equal(sum(h$NetMatrix), 0)
  expect_equal(sum(h$LCS), 0)
})

test_that("histNetwork trova le citazioni locali nei nuovi export WoS", {
  # Prima della normalizzazione dei riferimenti in isi2df() questa collezione
  # restituiva "Matrix is empty!!" e zero citazioni locali (#640)
  M <- suppressMessages(metaTagExtraction(load_wos_newformat_fixture(), Field = "SR"))
  h <- suppressWarnings(suppressMessages(
    histNetwork(M, min.citations = 0, sep = ";", verbose = FALSE)
  ))
  expect_true(is.matrix(h$NetMatrix))
  expect_equal(dim(h$NetMatrix), c(3L, 3L))
  # Aaker 1997 e' citato da Abratt e Balmer, Abratt 1999 da Balmer
  expect_equal(sum(h$LCS), 3)
  expect_equal(sum(h$NetMatrix > 0), 3)
})