require(Matrix)
mat_test <- rsparsematrix(100, 100, 0.5)

test_that("raise error if the number of rows are different",{
    expect_error(
        proxyC:::cpp_pair(mat_test, mat_test[1:10,], 1, rank = nrow(mat_test)),
        "Invalid matrix objects"
    )
    expect_error(
        proxyC:::cpp_linear(mat_test, mat_test[1:10,], 1, rank = nrow(mat_test)),
        "Invalid matrix objects"
    )
})

test_that("porxy stops as expected for methods not supported",{
    expect_error(simil(mat_test, method = "Yule"))
    expect_error(dist(mat_test, method = "Yule"))
    expect_error(proxyC:::proxy(mat_test, method = "Yule"))
})

test_that("raises error when p is smaller than 1", {
    expect_error(proxyC:::proxy(mat_test, method = "minkowski", p = 0))
    expect_error(proxyC:::proxy(mat_test, method = "minkowski", p = -1))
})

test_that("sparse objects are of expected class and occur when expected", {

    expect_is(proxyC:::proxy(mat_test),
              "dsTMatrix")
    expect_is(proxyC:::proxy(mat_test, min_proxy = 10),
              "dsTMatrix")
    expect_is(proxyC:::proxy(mat_test, rank = 2),
              "dgTMatrix")
    expect_is(proxyC:::proxy(mat_test, method = "kullback"),
              "dgTMatrix")

})

test_that("rank argument is working", {

    expect_error(proxyC:::proxy(mat_test, rank = 0),
                 "rank must be great than or equal to 1")

    expect_equal(as.matrix(proxyC:::proxy(mat_test)),
                 as.matrix(proxyC:::proxy(mat_test, rank = 100)))

    expect_equal(as.matrix(proxyC:::proxy(mat_test, rank = 3)),
                 apply(as.matrix(proxyC:::proxy(mat_test)), 2,
                       function(x) ifelse(x >= sort(x, decreasing = TRUE)[3], x, 0)))

})

test_that("record zeros even in the sparse matrix", {
    mt <- rsparsematrix(100, 100, 0.01)
    suppressWarnings({
        expect_true(any(proxyC:::proxy(mt)@x == 0))
        expect_true(any(proxyC:::proxy(mt, method = "cosine")@x == 0))
        expect_true(any(proxyC:::proxy(mt, method = "cosine", min_proxy = -0.5)@x == 0))
        expect_true(any(proxyC:::proxy(mt, method = "cosine", rank = 2)@x == 0))
        expect_true(any(proxyC:::proxy(mt, method = "dice")@x == 0))
    })
})

test_that("do not record zeros when drop0 is TRUE", {
    mt <- rsparsematrix(100, 100, 0.01)
    suppressWarnings({
        expect_false(any(proxyC:::proxy(mt, drop0 = TRUE)@x == 0))
        expect_false(any(proxyC:::proxy(mt, method = "cosine", drop0 = TRUE)@x == 0))
        expect_false(any(proxyC:::proxy(mt, method = "cosine", drop0 = TRUE, min_proxy = -0.5)@x == 0))
        expect_false(any(proxyC:::proxy(mt, method = "cosine", drop0 = TRUE, rank = 2)@x == 0))
        expect_false(any(proxyC:::proxy(mt, method = "jaccard", drop0 = TRUE)@x == 0))

        expect_equal(
            as.matrix(proxyC:::proxy(mt, method = "cosine", drop0 = TRUE)),
            as.matrix(proxyC:::proxy(mt, method = "cosine", drop0 = FALSE))
        )
        expect_equal(
            as.matrix(proxyC:::proxy(mt, method = "jaccard", drop0 = TRUE)),
            as.matrix(proxyC:::proxy(mt, method = "jaccard", drop0 = FALSE))
        )
    })
})


test_that("proxyC:::proxy raises error when the numnber of columns/rows are different", {

    expect_error(proxyC:::proxy(mat_test[,1:5], mat_test[,1:10], margin = 1),
                 "x and y must have the same number of columns")
    expect_error(proxyC:::proxy(mat_test[1:5,], mat_test[1:10,], margin = 2),
                 "x and y must have the same number of rows")
})

test_that("digits is working", {
    mat <- Matrix(c(1, 2, 5, 3), ncol = 2, sparse = TRUE)
    sim1 <- simil(mat, method = "cosine")
    expect_true(all(sim1 <= 1))
    sim2 <- simil(mat, method = "cosine", digits = 3)
    expect_identical(as.numeric(as.matrix(sim2)), c(1.0, 0.925, 0.925, 1.0))
    sim3 <- simil(mat, method = "cosine", digits = 1)
    expect_identical(as.numeric(as.matrix(sim3)), c(1.0, 0.9, 0.9, 1.0))
})

test_that("colSds and rowSds are working", {
    mt <- rsparsematrix(100, 100, 0.01)
    dimnames(mt) <- list(paste0("row", seq_len(nrow(mt))),
                         paste0("col", seq_len(ncol(mt))))
    expect_equal(rowSds(mt), apply(mt, 1, sd))
    expect_equal(colSds(mt), apply(mt, 2, sd))
    expect_equal(rowSds(as.matrix(mt)), apply(mt, 1, sd))
    expect_equal(colSds(as.matrix(mt)), apply(mt, 2, sd))
})

test_that("colZeros and rowZeros are working", {
    mt <- rsparsematrix(100, 100, 0.01)
    dimnames(mt) <- list(paste0("row", seq_len(nrow(mt))),
                         paste0("col", seq_len(ncol(mt))))
    expect_equal(names(rowZeros(mt)), rownames(mt))
    expect_equal(names(colZeros(mt)), colnames(mt))
    expect_equal(names(rowSds(mt)), rownames(mt))
    expect_equal(names(colSds(mt)), colnames(mt))
    expect_equal(rowZeros(mt), apply(mt, 1, function(x) sum(x == 0)))
    expect_equal(colZeros(mt), apply(mt, 2, function(x) sum(x == 0)))
    expect_equal(rowZeros(as.matrix(mt)), apply(mt, 1, function(x) sum(x == 0)))
    expect_equal(colZeros(as.matrix(mt)), apply(mt, 2, function(x) sum(x == 0)))
})

test_that("diag is working", {
    sim1 <- proxyC:::proxy(mat_test[11:20,], mat_test[1:10,], diag = TRUE)
    expect_is(sim1, "ddiMatrix")
    expect_equal(
        diag(proxyC:::proxy(mat_test[11:20,], mat_test[1:10,])),
        diag(sim1)
    )

    sim2 <- proxyC:::proxy(mat_test[11:20,], mat_test[1:10,], method = "correlation", diag = TRUE)
    expect_is(sim2, "ddiMatrix")
    expect_equal(
        diag(proxyC:::proxy(mat_test[11:20,], mat_test[1:10,], method = "correlation")),
        diag(sim2)
    )

    sim3 <- proxyC:::proxy(mat_test[11:20,], mat_test[1:10,], method = "euclidean", diag = TRUE)
    expect_is(sim3, "ddiMatrix")
    expect_equal(
        diag(proxyC:::proxy(mat_test[11:20,], mat_test[1:10,], method = "euclidean")),
        diag(sim3)
    )
})


test_that("functions works with different matrices", {

    smat <- rsparsematrix(50, 50, 0.5)
    dmat <- as.matrix(smat)
    emat <- Matrix(smat, sparse = FALSE)
    s <- proxyC::simil(smat, smat)

    expect_identical(as.matrix(proxyC:::proxy(dmat, dmat)), as.matrix(s))
    expect_identical(as.matrix(proxyC:::proxy(emat, emat)), as.matrix(s))
    expect_silent(proxyC:::proxy(smat > 0, smat > 0))
    expect_silent(proxyC:::proxy(forceSymmetric(smat), forceSymmetric(smat)))
    expect_silent(proxyC:::proxy(forceSymmetric(emat), forceSymmetric(emat)))

    expect_identical(rowSds(dmat), rowSds(smat))
    expect_identical(rowSds(emat), rowSds(smat))
    expect_identical(rowSds(emat > 0), rowSds(smat > 0))
    expect_identical(colSds(dmat), colSds(smat))
    expect_identical(colSds(emat), colSds(smat))
    expect_identical(colSds(emat > 0), colSds(smat > 0))

    expect_silent(rowSds(forceSymmetric(smat)))
    expect_silent(colSds(forceSymmetric(smat)))
    expect_silent(rowSds(forceSymmetric(emat)))
    expect_silent(colSds(forceSymmetric(emat)))

    expect_identical(rowZeros(dmat), rowZeros(smat))
    expect_identical(rowZeros(emat), rowZeros(smat))
    expect_identical(rowZeros(emat > 0), rowZeros(smat > 0))
    expect_identical(colZeros(dmat), colZeros(smat))
    expect_identical(colZeros(emat), colZeros(smat))
    expect_identical(colZeros(emat > 0), colZeros(smat > 0))

    expect_silent(rowZeros(forceSymmetric(smat)))
    expect_silent(colZeros(forceSymmetric(smat)))
    expect_silent(rowZeros(forceSymmetric(emat)))
    expect_silent(colZeros(forceSymmetric(emat)))
})

test_that("options are working", {

    smat <- rsparsematrix(50, 50, 0.5)
    options("proxyC.threads" = "abc")
    expect_error(
        suppressWarnings(proxyC:::proxy(smat)),
        "proxyC.threads must be an integer"
    )
    options("proxyC.threads" = NA)
    expect_error(
        suppressWarnings(proxyC:::proxy(smat)),
        "proxyC.threads must be an integer"
    )
})