tests/testthat/test-choques.R

In Figuera/ElastH: Replicar metodologia de SPE/MF para calculo de elasticidade de receita

context("choques")

choques <- choques(Exemplo$f)

test_that("Função deve retornar valores no formato correto", {
            expect_equal(class(choques), "list")
            expect_equal(length(choques), 2)
        })

test_that("Função deve retornar valores corretos", {
            expect_equal(choques$ch, Exemplo$choques$ch)
            expect_equal(choques$sd, Exemplo$choques$sd)
        })