From 19fcec84d8d7d21e796c7624e521b60d28ee21ed Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 20:45:59 +0200 Subject: Adding upstream version 16.2.11+ds. Signed-off-by: Daniel Baumann --- src/boost/tools/build/test/builtin_glob_archive.py | 217 +++++++++++++++++++++ 1 file changed, 217 insertions(+) create mode 100644 src/boost/tools/build/test/builtin_glob_archive.py (limited to 'src/boost/tools/build/test/builtin_glob_archive.py') diff --git a/src/boost/tools/build/test/builtin_glob_archive.py b/src/boost/tools/build/test/builtin_glob_archive.py new file mode 100644 index 000000000..8cbc3be58 --- /dev/null +++ b/src/boost/tools/build/test/builtin_glob_archive.py @@ -0,0 +1,217 @@ +#!/usr/bin/python + +# Copyright 2014 Steven Watanabe +# Copyright 2015 Artur Shepilko +# Distributed under the Boost Software License, Version 1.0. +# (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt) + +# This tests the GLOB_ARCHIVE rule. + +import os +import sys +try: + from StringIO import StringIO +except: + from io import StringIO +import BoostBuild + +vms = ( os.name == 'posix' and sys.platform == 'OpenVMS') + +t = BoostBuild.Tester() + +## Setup test archive sources and symbols they contain. +sources = { + "a.cpp" : ["a"], + "b.cpp" : ["b"], + "b_match.cpp" : ["b_match"], + "c/nopath_check.cpp" : ["nopath_check"], + "CaseCheck.cpp" : ["CaseCheck"], + "seq_check1.cpp" : ["seq_check1"], + "seq_check2.cpp" : ["seq_check2"], + "seq_check3.cpp" : ["seq_check3"], + "symbols_check.c" : ["symbol", "symbol_match"], + "members_and_symbols_check.c" : ["member_and_symbol_match"], + "symbol_case_check.c" : ["SymbolCaseCheck"], + "main_check.cpp" : ["main"] +} + + +def create_sources(path, sources): + for s in sources : + f = os.path.join(path, s) + t.write(f, "") + output = StringIO() + for sym in sources[s] : + output.write("int %s() { return 0; }\n" % sym) + t.write(f, output.getvalue()) + + +def setup_archive(name, sources): + global archive + global obj_suffix + archive = t.adjust_names(name)[0] + obj_suffix = t.adjust_names(".obj")[0] + output = StringIO() + t.write("jamroot.jam","") + output.write("""\ +static-lib %s : +""" % name.split(".")[0]) + ## sort the sources, so we can test order of the globbed members + for s in sorted(sources) : + output.write("""\ + %s +""" % s) + output.write("""\ + ; +""") + t.write("lib/jamfile.jam", output.getvalue()) + create_sources("lib", sources) + t.run_build_system(subdir="lib") + built_archive = "lib/bin/$toolset/debug*/%s" % name + t.expect_addition(built_archive) + t.copy(built_archive, name) + t.rm("lib") + + +def test_glob_archive(archives, glob, expected, sort_results = False): + output = StringIO() + ## replace placeholders + glob = glob.replace("$archive1", archives[0]).replace("$obj", obj_suffix) + expected = [ m.replace("$archive1", + archives[0]).replace("$obj", obj_suffix) for m in expected ] + if len(archives) > 1 : + glob = glob.replace("$archive2", archives[1]).replace("$obj", obj_suffix) + expected = [ m.replace("$archive2", + archives[1]).replace("$obj", obj_suffix) for m in expected ] + ## create test jamfile + if sort_results : glob = "[ SORT %s ]" % glob + output.write("""\ + for local p in %s + { + ECHO $(p) ; + } + UPDATE ; + """ % glob) + t.write("file.jam", output.getvalue()) + ## run test jamfile and match against expected results + if sort_results : expected.sort() + t.run_build_system(["-ffile.jam"], stdout="\n".join(expected + [""])) + t.rm("file.jam") + + +## RUN TESTS +setup_archive("auxilliary1.lib", sources) +archive1 = archive +setup_archive("auxilliary2.lib", sources) +archive2 = archive + +## all arguments empty +test_glob_archive([archive1], "[ GLOB_ARCHIVE ]", []) + +## empty query +test_glob_archive([archive1], "[ GLOB_ARCHIVE $archive1 : ]", []) + +## no-match +test_glob_archive([archive1], "[ GLOB_ARCHIVE $archive1 : a ]", []) + +## match exact +test_glob_archive([archive1], "[ GLOB_ARCHIVE $archive1 : a$obj ]", + ["$archive1(a$obj)"]) + +## glob wildcards:1 +test_glob_archive([archive1], "[ GLOB_ARCHIVE $archive1 : b.* ]", + ["$archive1(b$obj)"]) + +## glob wildcards:2 +test_glob_archive([archive1], '[ GLOB_ARCHIVE $archive1 : "\\b?match[\.]*" ]', + ["$archive1(b_match$obj)"]) + +## glob wildcards:3 +test_glob_archive([archive1], "[ SORT [ GLOB_ARCHIVE $archive1 : b* ] ]", + ["$archive1(b$obj)", "$archive1(b_match$obj)"]) + +## glob multiple patterns with multiple results. +test_glob_archive([archive1], "[ SORT [ GLOB_ARCHIVE $archive1 : b.* b_* ] ]", + ["$archive1(b$obj)", "$archive1(b_match$obj)"]) + +## glob multiple archives and patterns. +test_glob_archive([archive1, archive2], + "[ SORT [ GLOB_ARCHIVE $archive1 $archive2 : b.* b_* ] ]", + ["$archive1(b$obj)", "$archive1(b_match$obj)", + "$archive2(b$obj)", "$archive2(b_match$obj)"]) + +## glob same archive multiple times. +test_glob_archive([archive1, archive1], + "[ GLOB_ARCHIVE $archive1 $archive2 $archive1 : b.* ]", + ["$archive1(b$obj)", "$archive2(b$obj)", "$archive1(b$obj)"]) + +## returned archive member has no path, even though its source object-file did. +## this is rather NT-specific, where members also store their object-file's path. +test_glob_archive([archive1], "[ GLOB_ARCHIVE $archive1 : nopath_check$obj ]", + ["$archive1(nopath_check$obj)"]) + +## case insensitive matching, when archives support case sensitive member names. +## VMS implementation forces case-insensitive matching and downcased member names. + +case_sensitive_members = ( not vms ) + +if case_sensitive_members: + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : casecheck$obj : true ]", + ["$archive1(CaseCheck$obj)"]) +elif vms: + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : CaseCheck$obj : false ]", + ["$archive1(casecheck$obj)"]) + + +## test the order of matched members, in general it should match the +## insertion sequence. +test_glob_archive([archive1], "[ SORT [ GLOB_ARCHIVE $archive1 : seq_check*$obj ] ]", + ["$archive1(seq_check1$obj)", "$archive1(seq_check2$obj)", + "$archive1(seq_check3$obj)"]) + + +## glob members by symbols they contain. +## Currently supported only on VMS. +symbol_glob_supported = ( vms ) + +if symbol_glob_supported : + ## NOTE: generated symbols are compiler-dependent and may be specifically + ## mangled (as in C++ case), so globbing by exact symbol is non-trivial. + ## However, C-generated symbols are likely to have more portable names, + ## so for the glob-by-symbol tests we glob C-generated archive members. + + ## glob members by exact symbol. + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : : : symbol ]", + ["$archive1(symbols_check$obj)"]) + + ## glob members by symbol wildcard. + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : : : symbol_* ]", + ["$archive1(symbols_check$obj)"]) + + ## glob members by member pattern AND symbol pattern. + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : *symbol* : : *member* ]", + ["$archive1(members_and_symbols_check$obj)"]) + + ## case insensitive symbol glob. + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : : true : symbolcasecheck ]", + ["$archive1(symbol_case_check$obj)"]) + + ## glob member that contains main symbol. + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : : : main _main ]", + ["$archive1(main_check$obj)"]) + +else: + test_glob_archive([archive1], + "[ GLOB_ARCHIVE $archive1 : : : symbol ]", + []) + + +t.cleanup() + -- cgit v1.2.3