+# Copyright (C) The Arvados Authors. All rights reserved.
+#
+# SPDX-License-Identifier: Apache-2.0
+
context("CollectionTree")
-test_that("Creates file tree from character array properly", {
+test_that("constructor creates file tree from character array properly", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
"animal/dog",
"boat")
boat$getCollection() == "myCollection"
expect_that(root$getName(), equals(""))
- expect_that(rootIsOfTypeSubcollection, is_true())
- expect_that(rootHasNoParent, is_true())
- expect_that(animalIsOfTypeSubcollection, is_true())
- expect_that(animalsParentIsRoot, is_true())
- expect_that(animalContainsDog, is_true())
- expect_that(dogIsOfTypeArvadosFile, is_true())
- expect_that(dogsParentIsAnimal, is_true())
- expect_that(boatIsOfTypeArvadosFile, is_true())
- expect_that(boatsParentIsRoot, is_true())
- expect_that(allElementsBelongToSameCollection, is_true())
-})
+ expect_true(rootIsOfTypeSubcollection)
+ expect_true(rootHasNoParent)
+ expect_true(animalIsOfTypeSubcollection)
+ expect_true(animalsParentIsRoot)
+ expect_true(animalContainsDog)
+ expect_true(dogIsOfTypeArvadosFile)
+ expect_true(dogsParentIsAnimal)
+ expect_true(boatIsOfTypeArvadosFile)
+ expect_true(boatsParentIsRoot)
+ expect_true(allElementsBelongToSameCollection)
+})
test_that("getElement returns element from tree if element exists on specified path", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
"animal/dog",
"boat")
dog <- collectionTree$getElement("animal/dog")
expect_that(dog$getName(), equals("dog"))
-})
+})
test_that("getElement returns NULL from tree if element doesn't exists on specified path", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
"animal/dog",
"boat")
fish <- collectionTree$getElement("animal/fish")
fishIsNULL <- is.null(fish)
- expect_that(fishIsNULL, is_true())
-})
+ expect_true(fishIsNULL)
+})
test_that("getElement trims ./ from start of relativePath", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
"animal/dog",
"boat")
dogWithDotSlash <- collectionTree$getElement("./animal/dog")
expect_that(dogWithDotSlash$getName(), equals(dog$getName()))
-})
+})
test_that("getElement trims / from end of relativePath", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
"animal/dog",
"boat")
animalWithSlash <- collectionTree$getElement("animal/")
expect_that(animalWithSlash$getName(), equals(animal$getName()))
-})
+})