2009-06-12 Tristan Gingold <gingold@adacore.com>
[binutils.git] / gold / testsuite / binary_unittest.cc
blob2645e0b91575b359fc637f84be78d688b164e42c
1 // binary_unittest.cc -- test Binary_to_elf
3 // Copyright 2008 Free Software Foundation, Inc.
4 // Written by Ian Lance Taylor <iant@google.com>.
6 // This file is part of gold.
8 // This program is free software; you can redistribute it and/or modify
9 // it under the terms of the GNU General Public License as published by
10 // the Free Software Foundation; either version 3 of the License, or
11 // (at your option) any later version.
13 // This program is distributed in the hope that it will be useful,
14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 // GNU General Public License for more details.
18 // You should have received a copy of the GNU General Public License
19 // along with this program; if not, write to the Free Software
20 // Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 // MA 02110-1301, USA.
23 #include "gold.h"
25 #include <unistd.h>
26 #include <sys/types.h>
27 #include <sys/stat.h>
28 #include <fcntl.h>
30 #include "elfcpp.h"
31 #include "parameters.h"
32 #include "errors.h"
33 #include "options.h"
34 #include "binary.h"
35 #include "object.h"
37 #include "test.h"
38 #include "testfile.h"
40 namespace gold_testsuite
43 using namespace gold;
45 template<int size, bool big_endian>
46 bool
47 Sized_binary_test(Target* target)
49 // We need a pretend Task.
50 const Task* task = reinterpret_cast<const Task*>(-1);
52 // Use the executable itself as the binary data.
53 struct stat st;
54 CHECK(::stat(gold::program_name, &st) == 0);
55 int o = ::open(gold::program_name, O_RDONLY);
56 CHECK(o >= 0);
57 unsigned char* filedata = new unsigned char[st.st_size];
58 CHECK(::read(o, filedata, st.st_size) == st.st_size);
59 CHECK(::close(o) == 0);
61 Binary_to_elf binary(static_cast<elfcpp::EM>(0xffff), size, big_endian,
62 gold::program_name);
64 CHECK(binary.convert(task));
66 Input_file input_file(task, "test.o", binary.converted_data(),
67 binary.converted_size());
68 Object* object = make_elf_object("test.o", &input_file, 0,
69 binary.converted_data(),
70 binary.converted_size(), NULL);
71 CHECK(object != NULL);
72 if (object == NULL)
73 return false;
75 CHECK(!object->is_dynamic());
76 CHECK(object->target() == target);
77 CHECK(object->shnum() == 5);
78 CHECK(object->section_name(1) == ".data");
79 CHECK(object->section_flags(1) == (elfcpp::SHF_ALLOC | elfcpp::SHF_WRITE));
80 section_size_type len;
81 const unsigned char* contents = object->section_contents(1, &len, false);
82 CHECK(len == convert_to_section_size_type(st.st_size));
83 CHECK(memcmp(filedata, contents, len) == 0);
85 // Force the symbols to be read internally, so that
86 // symbol_section_and_value will work.
87 Read_symbols_data sd;
88 object->read_symbols(&sd);
89 delete sd.section_headers;
90 delete sd.section_names;
91 delete sd.symbols;
92 delete sd.symbol_names;
94 Sized_relobj<size, big_endian>* relobj =
95 static_cast<Sized_relobj<size, big_endian>*>(object);
96 typename Sized_relobj<size, big_endian>::Address value;
97 bool is_ordinary;
98 CHECK(relobj->symbol_section_and_value(0, &value, &is_ordinary) == 0);
99 CHECK(is_ordinary);
100 CHECK(value == 0);
101 CHECK(relobj->symbol_section_and_value(1, &value, &is_ordinary) == 1);
102 CHECK(is_ordinary);
103 CHECK(value == 0);
104 CHECK(relobj->symbol_section_and_value(2, &value, &is_ordinary) == 1);
105 CHECK(is_ordinary);
106 CHECK(static_cast<off_t>(value) == st.st_size);
107 CHECK(relobj->symbol_section_and_value(3, &value, &is_ordinary)
108 == elfcpp::SHN_ABS);
109 CHECK(!is_ordinary);
110 CHECK(static_cast<off_t>(value) == st.st_size);
112 object->unlock(task);
113 return true;
116 bool
117 Binary_test(Test_report*)
119 Errors errors(gold::program_name);
120 set_parameters_errors(&errors);
122 General_options options;
123 set_parameters_options(&options);
125 int fail = 0;
127 #ifdef HAVE_TARGET_32_LITTLE
128 if (!Sized_binary_test<32, false>(target_test_pointer_32_little))
129 ++fail;
130 #endif
132 #ifdef HAVE_TARGET_32_BIG
133 if (!Sized_binary_test<32, true>(target_test_pointer_32_big))
134 ++fail;
135 #endif
137 #ifdef HAVE_TARGET_64_LITTLE
138 if (!Sized_binary_test<64, false>(target_test_pointer_64_little))
139 ++fail;
140 #endif
142 #ifdef HAVE_TARGET_64_BIG
143 if (!Sized_binary_test<64, true>(target_test_pointer_64_big))
144 ++fail;
145 #endif
147 return fail == 0;
150 Register_test binary_register("Binary", Binary_test);
152 } // End namespace gold_testsuite.