testSystemTools.cxx 20.3 KB
Newer Older
1 2 3
/*============================================================================
  KWSys - Kitware System Library
  Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
4

5 6
  Distributed under the OSI-approved BSD License (the "License");
  see accompanying file Copyright.txt for details.
7

8 9 10 11
  This software is distributed WITHOUT ANY WARRANTY; without even the
  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  See the License for more information.
============================================================================*/
12
#include "kwsysPrivate.h"
13 14 15 16 17

#if defined(_MSC_VER)
# pragma warning (disable:4786)
#endif

18 19 20
#include KWSYS_HEADER(SystemTools.hxx)
#include KWSYS_HEADER(ios/iostream)

21 22 23 24 25 26 27
// Work-around CMake dependency scanning limitation.  This must
// duplicate the above list of headers.
#if 0
# include "SystemTools.hxx.in"
# include "kwsys_ios_iostream.h.in"
#endif

28 29 30
// Include with <> instead of "" to avoid getting any in-source copy
// left on disk.
#include <testSystemTools.h>
31

32 33
#include <string.h> /* strcmp */

34
//----------------------------------------------------------------------------
Sean McBride's avatar
Sean McBride committed
35
static const char* toUnixPaths[][2] =
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
{
    { "/usr/local/bin/passwd", "/usr/local/bin/passwd" },
    { "/usr/lo cal/bin/pa sswd", "/usr/lo cal/bin/pa sswd" },
    { "/usr/lo\\ cal/bin/pa\\ sswd", "/usr/lo\\ cal/bin/pa\\ sswd" },
    { "c:/usr/local/bin/passwd", "c:/usr/local/bin/passwd" },
    { "c:/usr/lo cal/bin/pa sswd", "c:/usr/lo cal/bin/pa sswd" },
    { "c:/usr/lo\\ cal/bin/pa\\ sswd", "c:/usr/lo\\ cal/bin/pa\\ sswd" },
    { "\\usr\\local\\bin\\passwd", "/usr/local/bin/passwd" },
    { "\\usr\\lo cal\\bin\\pa sswd", "/usr/lo cal/bin/pa sswd" },
    { "\\usr\\lo\\ cal\\bin\\pa\\ sswd", "/usr/lo\\ cal/bin/pa\\ sswd" },
    { "c:\\usr\\local\\bin\\passwd", "c:/usr/local/bin/passwd" },
    { "c:\\usr\\lo cal\\bin\\pa sswd", "c:/usr/lo cal/bin/pa sswd" },
    { "c:\\usr\\lo\\ cal\\bin\\pa\\ sswd", "c:/usr/lo\\ cal/bin/pa\\ sswd" },
    { "\\\\usr\\local\\bin\\passwd", "//usr/local/bin/passwd" },
    { "\\\\usr\\lo cal\\bin\\pa sswd", "//usr/lo cal/bin/pa sswd" },
    { "\\\\usr\\lo\\ cal\\bin\\pa\\ sswd", "//usr/lo\\ cal/bin/pa\\ sswd" },
    {0, 0}
};

Sean McBride's avatar
Sean McBride committed
55 56
static bool CheckConvertToUnixSlashes(kwsys_stl::string input,
                                      kwsys_stl::string output)
57 58 59 60 61
{
  kwsys_stl::string result = input;
  kwsys::SystemTools::ConvertToUnixSlashes(result);
  if ( result != output )
    {
Mathieu Malaterre's avatar
Mathieu Malaterre committed
62
    kwsys_ios::cerr
63 64
      << "Problem with ConvertToUnixSlashes - input: " << input
      << " output: " << result << " expected: " << output
65
      << kwsys_ios::endl;
66 67 68 69 70
    return false;
    }
  return true;
}

71
//----------------------------------------------------------------------------
Sean McBride's avatar
Sean McBride committed
72
static const char* checkEscapeChars[][4] =
73 74 75 76 77 78
{
  { "1 foo 2 bar 2", "12", "\\", "\\1 foo \\2 bar \\2"},
  { " {} ", "{}", "#", " #{#} "},
  {0, 0, 0, 0}
};

Sean McBride's avatar
Sean McBride committed
79 80 81 82
static bool CheckEscapeChars(kwsys_stl::string input,
                             const char *chars_to_escape,
                             char escape_char,
                             kwsys_stl::string output)
83 84 85 86 87
{
  kwsys_stl::string result = kwsys::SystemTools::EscapeChars(
    input.c_str(), chars_to_escape, escape_char);
  if (result != output)
    {
Mathieu Malaterre's avatar
Mathieu Malaterre committed
88
    kwsys_ios::cerr
89 90
      << "Problem with CheckEscapeChars - input: " << input
      << " output: " << result << " expected: " << output
91 92 93 94 95 96
      << kwsys_ios::endl;
    return false;
    }
  return true;
}

97
//----------------------------------------------------------------------------
Sean McBride's avatar
Sean McBride committed
98
static bool CheckFileOperations()
99 100
{
  bool res = true;
101 102
  const kwsys_stl::string testNonExistingFile(TEST_SYSTEMTOOLS_SOURCE_DIR
    "/testSystemToolsNonExistingFile");
103 104
  const kwsys_stl::string testDotFile(TEST_SYSTEMTOOLS_SOURCE_DIR
    "/.");
105 106 107 108
  const kwsys_stl::string testBinFile(TEST_SYSTEMTOOLS_SOURCE_DIR
    "/testSystemTools.bin");
  const kwsys_stl::string testTxtFile(TEST_SYSTEMTOOLS_SOURCE_DIR
    "/testSystemTools.cxx");
109 110 111
  const kwsys_stl::string testNewDir(TEST_SYSTEMTOOLS_BINARY_DIR
    "/testSystemToolsNewDir");
  const kwsys_stl::string testNewFile(testNewDir + "/testNewFile.txt");
112

113 114 115 116 117 118 119 120 121
  if (kwsys::SystemTools::DetectFileType(testNonExistingFile.c_str()) !=
      kwsys::SystemTools::FileTypeUnknown)
    {
    kwsys_ios::cerr
      << "Problem with DetectFileType - failed to detect type of: "
      << testNonExistingFile << kwsys_ios::endl;
    res = false;
    }

122 123 124 125 126 127 128 129 130
  if (kwsys::SystemTools::DetectFileType(testDotFile.c_str()) !=
      kwsys::SystemTools::FileTypeUnknown)
    {
    kwsys_ios::cerr
      << "Problem with DetectFileType - failed to detect type of: "
      << testDotFile << kwsys_ios::endl;
    res = false;
    }

131
  if (kwsys::SystemTools::DetectFileType(testBinFile.c_str()) !=
132 133
      kwsys::SystemTools::FileTypeBinary)
    {
Mathieu Malaterre's avatar
Mathieu Malaterre committed
134 135
    kwsys_ios::cerr
      << "Problem with DetectFileType - failed to detect type of: "
136
      << testBinFile << kwsys_ios::endl;
137 138 139
    res = false;
    }

140
  if (kwsys::SystemTools::DetectFileType(testTxtFile.c_str()) !=
141 142
      kwsys::SystemTools::FileTypeText)
    {
Mathieu Malaterre's avatar
Mathieu Malaterre committed
143 144
    kwsys_ios::cerr
      << "Problem with DetectFileType - failed to detect type of: "
145
      << testTxtFile << kwsys_ios::endl;
146 147
    res = false;
    }
148

149
  if (kwsys::SystemTools::FileLength(testBinFile) != 766)
Ken Martin's avatar
Ken Martin committed
150 151 152
    {
    kwsys_ios::cerr
      << "Problem with FileLength - incorrect length for: "
153 154
      << testBinFile << kwsys_ios::endl;
    res = false;
Ken Martin's avatar
Ken Martin committed
155
    }
156

157
  if (!kwsys::SystemTools::MakeDirectory(testNewDir))
158 159 160 161 162 163 164 165 166 167 168 169 170 171 172
    {
    kwsys_ios::cerr
      << "Problem with MakeDirectory for: "
      << testNewDir << kwsys_ios::endl;
    res = false;
    }

  if (!kwsys::SystemTools::Touch(testNewFile.c_str(), true))
    {
    kwsys_ios::cerr
      << "Problem with Touch for: "
      << testNewFile << kwsys_ios::endl;
    res = false;
    }

173
  if (!kwsys::SystemTools::RemoveFile(testNewFile))
174 175 176 177 178 179 180
    {
    kwsys_ios::cerr
      << "Problem with RemoveFile: "
      << testNewFile << kwsys_ios::endl;
    res = false;
    }

181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198
  kwsys_stl::string const testFileMissing(testNewDir + "/testMissingFile.txt");
  if (!kwsys::SystemTools::RemoveFile(testFileMissing))
    {
    std::string const& msg = kwsys::SystemTools::GetLastSystemError();
    kwsys_ios::cerr <<
      "RemoveFile(\"" << testFileMissing << "\") failed: " << msg << "\n";
    res = false;
    }

  kwsys_stl::string const testFileMissingDir(testNewDir + "/missing/file.txt");
  if (!kwsys::SystemTools::RemoveFile(testFileMissingDir))
    {
    std::string const& msg = kwsys::SystemTools::GetLastSystemError();
    kwsys_ios::cerr <<
      "RemoveFile(\"" << testFileMissingDir << "\") failed: " << msg << "\n";
    res = false;
    }

199
  kwsys::SystemTools::Touch(testNewFile.c_str(), true);
200
  if (!kwsys::SystemTools::RemoveADirectory(testNewDir))
201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225
    {
    kwsys_ios::cerr
      << "Problem with RemoveADirectory for: "
      << testNewDir << kwsys_ios::endl;
    res = false;
    }

#ifdef KWSYS_TEST_SYSTEMTOOLS_LONG_PATHS
  // Perform the same file and directory creation and deletion tests but
  // with paths > 256 characters in length.

  const kwsys_stl::string testNewLongDir(
    TEST_SYSTEMTOOLS_BINARY_DIR "/"
    "012345678901234567890123456789012345678901234567890123456789"
    "012345678901234567890123456789012345678901234567890123456789"
    "012345678901234567890123456789012345678901234567890123456789"
    "012345678901234567890123456789012345678901234567890123456789"
    "01234567890123");
  const kwsys_stl::string testNewLongFile(testNewLongDir + "/"
    "012345678901234567890123456789012345678901234567890123456789"
    "012345678901234567890123456789012345678901234567890123456789"
    "012345678901234567890123456789012345678901234567890123456789"
    "012345678901234567890123456789012345678901234567890123456789"
    "0123456789.txt");

226
  if (!kwsys::SystemTools::MakeDirectory(testNewLongDir))
227 228 229 230 231 232 233 234 235 236 237 238 239 240 241
    {
    kwsys_ios::cerr
      << "Problem with MakeDirectory for: "
      << testNewLongDir << kwsys_ios::endl;
    res = false;
    }

  if (!kwsys::SystemTools::Touch(testNewLongFile.c_str(), true))
    {
    kwsys_ios::cerr
      << "Problem with Touch for: "
      << testNewLongFile << kwsys_ios::endl;
    res = false;
    }

242
  if (!kwsys::SystemTools::RemoveFile(testNewLongFile))
243 244 245 246 247 248 249 250
    {
    kwsys_ios::cerr
      << "Problem with RemoveFile: "
      << testNewLongFile << kwsys_ios::endl;
    res = false;
    }

  kwsys::SystemTools::Touch(testNewLongFile.c_str(), true);
251
  if (!kwsys::SystemTools::RemoveADirectory(testNewLongDir))
252 253 254 255 256 257 258 259
    {
    kwsys_ios::cerr
      << "Problem with RemoveADirectory for: "
      << testNewLongDir << kwsys_ios::endl;
    res = false;
    }
#endif

260 261 262
  return res;
}

263
//----------------------------------------------------------------------------
Sean McBride's avatar
Sean McBride committed
264
static bool CheckStringOperations()
265 266 267 268 269 270 271 272
{
  bool res = true;

  kwsys_stl::string test = "mary had a little lamb.";
  if (kwsys::SystemTools::CapitalizedWords(test) != "Mary Had A Little Lamb.")
    {
    kwsys_ios::cerr
      << "Problem with CapitalizedWords "
273
      << '"' << test << '"' << kwsys_ios::endl;
274
    res = false;
275 276 277
    }

  test = "Mary Had A Little Lamb.";
278
  if (kwsys::SystemTools::UnCapitalizedWords(test) !=
279 280 281 282
      "mary had a little lamb.")
    {
    kwsys_ios::cerr
      << "Problem with UnCapitalizedWords "
283
      << '"' << test << '"' << kwsys_ios::endl;
284
    res = false;
285 286 287
    }

  test = "MaryHadTheLittleLamb.";
288
  if (kwsys::SystemTools::AddSpaceBetweenCapitalizedWords(test) !=
289 290 291 292
      "Mary Had The Little Lamb.")
    {
    kwsys_ios::cerr
      << "Problem with AddSpaceBetweenCapitalizedWords "
293
      << '"' << test << '"' << kwsys_ios::endl;
294
    res = false;
295 296
    }

297
  char * cres =
298 299 300 301 302
    kwsys::SystemTools::AppendStrings("Mary Had A"," Little Lamb.");
  if (strcmp(cres,"Mary Had A Little Lamb."))
    {
    kwsys_ios::cerr
      << "Problem with AppendStrings "
303
      << "\"Mary Had A\" \" Little Lamb.\"" << kwsys_ios::endl;
304
    res = false;
305 306 307
    }
  delete [] cres;

308
  cres =
309 310 311 312 313
    kwsys::SystemTools::AppendStrings("Mary Had"," A ","Little Lamb.");
  if (strcmp(cres,"Mary Had A Little Lamb."))
    {
    kwsys_ios::cerr
      << "Problem with AppendStrings "
314
      << "\"Mary Had\" \" A \" \"Little Lamb.\"" << kwsys_ios::endl;
315
    res = false;
316 317 318 319 320 321 322
    }
  delete [] cres;

  if (kwsys::SystemTools::CountChar("Mary Had A Little Lamb.",'a') != 3)
    {
    kwsys_ios::cerr
      << "Problem with CountChar "
323
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
324
    res = false;
325 326
    }

327
  cres =
328 329 330 331 332
    kwsys::SystemTools::RemoveChars("Mary Had A Little Lamb.","aeiou");
  if (strcmp(cres,"Mry Hd A Lttl Lmb."))
    {
    kwsys_ios::cerr
      << "Problem with RemoveChars "
333
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
334
    res = false;
335 336 337
    }
  delete [] cres;

338
  cres =
339 340 341 342 343
    kwsys::SystemTools::RemoveCharsButUpperHex("Mary Had A Little Lamb.");
  if (strcmp(cres,"A"))
    {
    kwsys_ios::cerr
      << "Problem with RemoveCharsButUpperHex "
344
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
345
    res = false;
346 347 348 349 350 351 352 353 354 355
    }
  delete [] cres;

  char *cres2 = new char [strlen("Mary Had A Little Lamb.")+1];
  strcpy(cres2,"Mary Had A Little Lamb.");
  kwsys::SystemTools::ReplaceChars(cres2,"aeiou",'X');
  if (strcmp(cres2,"MXry HXd A LXttlX LXmb."))
    {
    kwsys_ios::cerr
      << "Problem with ReplaceChars "
356
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
357
    res = false;
358 359 360 361 362 363 364 365
    }
  delete [] cres2;

  if (!kwsys::SystemTools::StringStartsWith("Mary Had A Little Lamb.",
                                            "Mary "))
    {
    kwsys_ios::cerr
      << "Problem with StringStartsWith "
366
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
367
    res = false;
368 369 370 371 372 373 374
    }

  if (!kwsys::SystemTools::StringEndsWith("Mary Had A Little Lamb.",
                                          " Lamb."))
    {
    kwsys_ios::cerr
      << "Problem with StringEndsWith "
375
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
376
    res = false;
377 378 379 380 381 382 383
    }

  cres = kwsys::SystemTools::DuplicateString("Mary Had A Little Lamb.");
  if (strcmp(cres,"Mary Had A Little Lamb."))
    {
    kwsys_ios::cerr
      << "Problem with DuplicateString "
384
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
385
    res = false;
386 387 388 389
    }
  delete [] cres;

  test = "Mary Had A Little Lamb.";
390
  if (kwsys::SystemTools::CropString(test,13) !=
391 392 393 394
      "Mary ...Lamb.")
    {
    kwsys_ios::cerr
      << "Problem with CropString "
395
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
396
    res = false;
397
    }
398 399 400 401 402 403 404 405

  kwsys_stl::vector<kwsys_stl::string> lines;
  kwsys::SystemTools::Split("Mary Had A Little Lamb.",lines,' ');
  if (lines[0] != "Mary" || lines[1] != "Had" ||
      lines[2] != "A" || lines[3] != "Little" || lines[4] != "Lamb.")
    {
    kwsys_ios::cerr
      << "Problem with Split "
406 407
      << "\"Mary Had A Little Lamb.\"" << kwsys_ios::endl;
    res = false;
408
    }
Ken Martin's avatar
Ken Martin committed
409

410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516
#ifdef _WIN32
  if (kwsys::SystemTools::ConvertToWindowsExtendedPath
      ("L:\\Local Mojo\\Hex Power Pack\\Iffy Voodoo") !=
      L"\\\\?\\L:\\Local Mojo\\Hex Power Pack\\Iffy Voodoo")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"L:\\Local Mojo\\Hex Power Pack\\Iffy Voodoo\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath
      ("L:/Local Mojo/Hex Power Pack/Iffy Voodoo") !=
      L"\\\\?\\L:\\Local Mojo\\Hex Power Pack\\Iffy Voodoo")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"L:/Local Mojo/Hex Power Pack/Iffy Voodoo\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath
      ("\\\\Foo\\Local Mojo\\Hex Power Pack\\Iffy Voodoo") !=
      L"\\\\?\\UNC\\Foo\\Local Mojo\\Hex Power Pack\\Iffy Voodoo")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"\\\\Foo\\Local Mojo\\Hex Power Pack\\Iffy Voodoo\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath
      ("//Foo/Local Mojo/Hex Power Pack/Iffy Voodoo") !=
      L"\\\\?\\UNC\\Foo\\Local Mojo\\Hex Power Pack\\Iffy Voodoo")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"//Foo/Local Mojo/Hex Power Pack/Iffy Voodoo\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath("//") !=
      L"//")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"//\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath("\\\\.\\") !=
      L"\\\\.\\")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"\\\\.\\\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath("\\\\.\\X") !=
      L"\\\\.\\X")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"\\\\.\\X\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath("\\\\.\\X:") !=
      L"\\\\?\\X:")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"\\\\.\\X:\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath("\\\\.\\X:\\") !=
      L"\\\\?\\X:\\")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"\\\\.\\X:\\\""
      << kwsys_ios::endl;
    res = false;
    }

  if (kwsys::SystemTools::ConvertToWindowsExtendedPath("NUL") !=
      L"\\\\.\\NUL")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsExtendedPath "
      << "\"NUL\""
      << kwsys_ios::endl;
    res = false;
    }

#endif

Ken Martin's avatar
Ken Martin committed
517
  if (kwsys::SystemTools::ConvertToWindowsOutputPath
518
      ("L://Local Mojo/Hex Power Pack/Iffy Voodoo") !=
Ken Martin's avatar
Ken Martin committed
519 520 521 522
      "\"L:\\Local Mojo\\Hex Power Pack\\Iffy Voodoo\"")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsOutputPath "
523
      << "\"L://Local Mojo/Hex Power Pack/Iffy Voodoo\""
Ken Martin's avatar
Ken Martin committed
524
      << kwsys_ios::endl;
525
    res = false;
Ken Martin's avatar
Ken Martin committed
526
    }
527

Ken Martin's avatar
Ken Martin committed
528
  if (kwsys::SystemTools::ConvertToWindowsOutputPath
529
      ("//grayson/Local Mojo/Hex Power Pack/Iffy Voodoo") !=
Ken Martin's avatar
Ken Martin committed
530 531 532 533
      "\"\\\\grayson\\Local Mojo\\Hex Power Pack\\Iffy Voodoo\"")
    {
    kwsys_ios::cerr
      << "Problem with ConvertToWindowsOutputPath "
534
      << "\"//grayson/Local Mojo/Hex Power Pack/Iffy Voodoo\""
Ken Martin's avatar
Ken Martin committed
535
      << kwsys_ios::endl;
536
    res = false;
Ken Martin's avatar
Ken Martin committed
537 538 539
    }

  if (kwsys::SystemTools::ConvertToUnixOutputPath
540
      ("//Local Mojo/Hex Power Pack/Iffy Voodoo") !=
541
      "//Local\\ Mojo/Hex\\ Power\\ Pack/Iffy\\ Voodoo")
Ken Martin's avatar
Ken Martin committed
542 543 544
    {
    kwsys_ios::cerr
      << "Problem with ConvertToUnixOutputPath "
545
      << "\"//Local Mojo/Hex Power Pack/Iffy Voodoo\""
Ken Martin's avatar
Ken Martin committed
546
      << kwsys_ios::endl;
547
    res = false;
Ken Martin's avatar
Ken Martin committed
548 549
    }

550 551 552
  return res;
}

553 554
//----------------------------------------------------------------------------

555
static bool CheckPutEnv(const kwsys_stl::string& env, const char* name, const char* value)
556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573
{
  if(!kwsys::SystemTools::PutEnv(env))
    {
    kwsys_ios::cerr << "PutEnv(\"" << env
                    << "\") failed!" << kwsys_ios::endl;
    return false;
    }
  const char* v = kwsys::SystemTools::GetEnv(name);
  v = v? v : "(null)";
  if(strcmp(v, value) != 0)
    {
    kwsys_ios::cerr << "GetEnv(\"" << name << "\") returned \""
                    << v << "\", not \"" << value << "\"!" << kwsys_ios::endl;
    return false;
    }
  return true;
}

Sean McBride's avatar
Sean McBride committed
574
static bool CheckUnPutEnv(const char* env, const char* name)
575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590
{
  if(!kwsys::SystemTools::UnPutEnv(env))
    {
    kwsys_ios::cerr << "UnPutEnv(\"" << env << "\") failed!"
                    << kwsys_ios::endl;
    return false;
    }
  if(const char* v = kwsys::SystemTools::GetEnv(name))
    {
    kwsys_ios::cerr << "GetEnv(\"" << name << "\") returned \""
                    << v << "\", not (null)!" << kwsys_ios::endl;
    return false;
    }
  return true;
}

Sean McBride's avatar
Sean McBride committed
591
static bool CheckEnvironmentOperations()
592 593 594 595 596 597 598 599 600 601 602 603 604
{
  bool res = true;
  res &= CheckPutEnv("A=B", "A", "B");
  res &= CheckPutEnv("B=C", "B", "C");
  res &= CheckPutEnv("C=D", "C", "D");
  res &= CheckPutEnv("D=E", "D", "E");
  res &= CheckUnPutEnv("A", "A");
  res &= CheckUnPutEnv("B=", "B");
  res &= CheckUnPutEnv("C=D", "C");
  /* Leave "D=E" in environment so a memory checker can test for leaks.  */
  return res;
}

605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631

static bool CheckRelativePath(
  const kwsys_stl::string& local,
  const kwsys_stl::string& remote,
  const kwsys_stl::string& expected)
{
  kwsys_stl::string result = kwsys::SystemTools::RelativePath(local, remote);
  if(expected != result)
    {
    kwsys_ios::cerr << "RelativePath(" << local << ", " << remote
      << ")  yielded " << result << " instead of " << expected << kwsys_ios::endl;
    return false;
    }
  return true;
}

static bool CheckRelativePaths()
{
  bool res = true;
  res &= CheckRelativePath("/usr/share", "/bin/bash", "../../bin/bash");
  res &= CheckRelativePath("/usr/./share/", "/bin/bash", "../../bin/bash");
  res &= CheckRelativePath("/usr//share/", "/bin/bash", "../../bin/bash");
  res &= CheckRelativePath("/usr/share/../bin/", "/bin/bash", "../../bin/bash");
  res &= CheckRelativePath("/usr/share", "/usr/share//bin", "bin");
  return res;
}

632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653
static bool CheckCollapsePath(
  const kwsys_stl::string& path,
  const kwsys_stl::string& expected)
{
  kwsys_stl::string result = kwsys::SystemTools::CollapseFullPath(path);
  if(expected != result)
    {
    kwsys_ios::cerr << "CollapseFullPath(" << path
      << ")  yielded " << result << " instead of " << expected << kwsys_ios::endl;
    return false;
    }
  return true;
}

static bool CheckCollapsePath()
{
  bool res = true;
  res &= CheckCollapsePath("/usr/share/*", "/usr/share/*");
  res &= CheckCollapsePath("C:/Windows/*", "C:/Windows/*");
  return res;
}

654
//----------------------------------------------------------------------------
655
int testSystemTools(int, char*[])
656
{
657 658
  bool res = true;

659 660 661
  int cc;
  for ( cc = 0; toUnixPaths[cc][0]; cc ++ )
    {
662
    res &= CheckConvertToUnixSlashes(toUnixPaths[cc][0], toUnixPaths[cc][1]);
663
    }
664 665 666 667

  // Special check for ~
  kwsys_stl::string output;
  if(kwsys::SystemTools::GetEnv("HOME", output))
668 669
    {
    output += "/foo bar/lala";
670
    res &= CheckConvertToUnixSlashes("~/foo bar/lala", output);
671
    }
672 673 674

  for (cc = 0; checkEscapeChars[cc][0]; cc ++ )
    {
675
    res &= CheckEscapeChars(checkEscapeChars[cc][0], checkEscapeChars[cc][1],
676 677 678
                            *checkEscapeChars[cc][2], checkEscapeChars[cc][3]);
    }

Ken Martin's avatar
Ken Martin committed
679
  res &= CheckFileOperations();
680

681 682
  res &= CheckStringOperations();

683 684
  res &= CheckEnvironmentOperations();

685 686
  res &= CheckRelativePaths();

687 688
  res &= CheckCollapsePath();

689
  return res ? 0 : 1;
690
}