# BrazilDataAPI - Access Brazilian Data via APIs and Curated Datasets
# Copyright (C) 2025 Renzo Caceres Rossi
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <https://www.gnu.org/licenses/>.
testthat::test_that("get_brazil_vehicle_brands() returns a tibble with expected columns for 'carros'", {
testthat::test_that("get_brazil_vehicle_brands() returns a tibble with expected columns for 'motos'", {
testthat::test_that("get_brazil_vehicle_brands() returns a tibble with expected columns for 'caminhoes'", {
testthat::test_that("get_brazil_vehicle_brands() returns NULL for an invalid vehicle type", {
testthat::test_that("get_brazil_vehicle_brands() handles empty string input and returns a tibble with error message", {
testthat::expect_true(all(c("message") %in% names(result)) || all(c("nome", "valor") %in% names(result)))

"get_brazil_vehicle_brands() returns a tibble with expected columns for 'carros'"
"get_brazil_vehicle_brands() returns a tibble with expected columns for 'motos'"
"get_brazil_vehicle_brands() returns a tibble with expected columns for 'caminhoes'"
"get_brazil_vehicle_brands() returns NULL for an invalid vehicle type"
"get_brazil_vehicle_brands() handles empty string input and returns a tibble with error message"

get_brazil_vehicle_brands() returns a tibble with expected columns for 'carros'

all(c("nome", "valor") %in% names(result)) is not TRUE

`actual`:   FALSE
`expected`: TRUE

get_brazil_vehicle_brands() returns a tibble with expected columns for 'motos'

get_brazil_vehicle_brands() returns a tibble with expected columns for 'caminhoes'