Pavel Labath | 11e5917 | 2017-12-18 14:31:39 +0000 | [diff] [blame] | 1 | //===-- LLGSTest.cpp --------------------------------------------*- C++ -*-===// |
| 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
| 5 | // This file is distributed under the University of Illinois Open Source |
| 6 | // License. See LICENSE.TXT for details. |
| 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
| 9 | |
| 10 | #include "TestBase.h" |
| 11 | #include "lldb/Host/Host.h" |
| 12 | #include "llvm/Testing/Support/Error.h" |
| 13 | |
| 14 | using namespace llgs_tests; |
| 15 | using namespace lldb_private; |
| 16 | using namespace llvm; |
| 17 | |
| 18 | TEST_F(TestBase, LaunchModePreservesEnvironment) { |
Pavel Labath | 11e5917 | 2017-12-18 14:31:39 +0000 | [diff] [blame] | 19 | putenv(const_cast<char *>("LLDB_TEST_MAGIC_VARIABLE=LLDB_TEST_MAGIC_VALUE")); |
| 20 | |
| 21 | auto ClientOr = TestClient::launch(getLogFileName(), |
| 22 | {getInferiorPath("environment_check")}); |
| 23 | ASSERT_THAT_EXPECTED(ClientOr, Succeeded()); |
| 24 | auto &Client = **ClientOr; |
| 25 | |
| 26 | ASSERT_THAT_ERROR(Client.ContinueAll(), Succeeded()); |
| 27 | ASSERT_THAT_EXPECTED( |
| 28 | Client.GetLatestStopReplyAs<StopReplyExit>(), |
| 29 | HasValue(testing::Property(&StopReply::getKind, |
| 30 | WaitStatus{WaitStatus::Exit, 0}))); |
| 31 | } |
Pavel Labath | deb45f2 | 2017-12-22 11:09:21 +0000 | [diff] [blame^] | 32 | |
| 33 | TEST_F(TestBase, DS_TEST(DebugserverEnv)) { |
| 34 | // Test that --env takes precedence over inherited environment variables. |
| 35 | putenv(const_cast<char *>("LLDB_TEST_MAGIC_VARIABLE=foobar")); |
| 36 | |
| 37 | auto ClientOr = TestClient::launchCustom(getLogFileName(), |
| 38 | { "--env", "LLDB_TEST_MAGIC_VARIABLE=LLDB_TEST_MAGIC_VALUE" }, |
| 39 | {getInferiorPath("environment_check")}); |
| 40 | ASSERT_THAT_EXPECTED(ClientOr, Succeeded()); |
| 41 | auto &Client = **ClientOr; |
| 42 | |
| 43 | ASSERT_THAT_ERROR(Client.ContinueAll(), Succeeded()); |
| 44 | ASSERT_THAT_EXPECTED( |
| 45 | Client.GetLatestStopReplyAs<StopReplyExit>(), |
| 46 | HasValue(testing::Property(&StopReply::getKind, |
| 47 | WaitStatus{WaitStatus::Exit, 0}))); |
| 48 | } |