aboutsummaryrefslogtreecommitdiff
path: root/0.8.0/paludis/repositories/cran/cran_repository_TEST.cc
blob: 850b0c4f6df7870ea2c9b311a266b0e8da4cf8c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
/* vim: set sw=4 sts=4 et foldmethod=syntax : */

/*
 * Copyright (c) 2006 Danny van Dyk <kugelfang@gentoo.org>
 *
 * This file is part of the Paludis package manager. Paludis is free software;
 * you can redistribute it and/or modify it under the terms of the GNU General
 * Public License version 2, as published by the Free Software Foundation.
 *
 * Paludis 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, write to the Free Software Foundation, Inc., 59 Temple
 * Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include <paludis/dep_atom.hh>
#include <paludis/dep_atom_flattener.hh>
#include <paludis/repositories/cran/cran_dep_parser.hh>
#include <paludis/repositories/cran/cran_description.hh>
#include <paludis/repositories/cran/cran_repository.hh>
#include <paludis/environment/test/test_environment.hh>
#include <paludis/util/collection_concrete.hh>
#include <paludis/util/system.hh>
#include <test/test_framework.hh>
#include <test/test_runner.hh>

using namespace test;
using namespace paludis;

/** \file
 * Test cases for CRANRepository.
 *
 * \ingroup grptestcases
 */

namespace test_cases
{
    /**
     * \test Test CRANRepository to parse a well formed PACKAGES file.
     *
     * \ingroup grptestcases
     */
    struct CRANRepositoryPackagesTest : TestCase
    {
        CRANRepositoryPackagesTest() : TestCase("PACKAGES") { }

        void run()
        {
            TestEnvironment env;
            AssociativeCollection<std::string, std::string>::Pointer keys(
                new AssociativeCollection<std::string, std::string>::Concrete);
            keys->insert("format", "cran");
            keys->insert("library", "cran_repository_TEST_dir/library");
            keys->insert("location", "cran_repository_TEST_dir/repo1");
            keys->insert("buildroot", "cran_repository_TEST_dir/tmp");
            CRANRepository::Pointer repo(CRANRepository::make_cran_repository(
                        &env, env.package_database().raw_pointer(), keys));
            TEST_CHECK(repo->has_category_named(CategoryNamePart("cran")));
            TEST_CHECK(repo->has_package_named(QualifiedPackageName("cran/testpackage1")));
            TEST_CHECK(repo->has_package_named(QualifiedPackageName("cran/testpackage2")));
        }
    } test_cran_repository_packages;

    /**
     * \test Test CRANRepository to handly 'Bundle:'s correctly.
     *
     * \ingroup grptestcases
     */
    struct CRANRepositoryBundleTest: TestCase
    {
        CRANRepositoryBundleTest() : TestCase("Bundle") { }

        void run()
        {
            TestEnvironment env;
            AssociativeCollection<std::string, std::string>::Pointer keys(
                new AssociativeCollection<std::string, std::string>::Concrete);
            keys->insert("format",   "cran");
            keys->insert("library", "cran_repository_TEST_dir/library");
            keys->insert("location", "cran_repository_TEST_dir/repo2");
            keys->insert("buildroot", "cran_repository_TEST_dir/tmp");
            CRANRepository::Pointer repo(CRANRepository::make_cran_repository(
                        &env, env.package_database().raw_pointer(), keys));
            TEST_CHECK(repo->has_package_named(QualifiedPackageName("cran/testbundle")));
            TEST_CHECK(repo->has_package_named(QualifiedPackageName("cran/bundlepkg1")));
            TEST_CHECK(repo->has_package_named(QualifiedPackageName("cran/bundlepkg2")));
        }
    } test_cran_repository_bundle;

    /** \todo in repo1
     * \todo test case for DESCRIPTION files
     */
}