2005-04-13 21:57:24 +04:00
|
|
|
/*=========================================================================
|
|
|
|
|
|
|
|
Program: KWSys - Kitware System Library
|
|
|
|
Module: $RCSfile$
|
|
|
|
|
|
|
|
Copyright (c) Kitware, Inc., Insight Consortium. All rights reserved.
|
|
|
|
See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
|
|
|
|
|
|
|
|
This software is distributed WITHOUT ANY WARRANTY; without even
|
|
|
|
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
|
|
PURPOSE. See the above copyright notices for more information.
|
|
|
|
|
|
|
|
=========================================================================*/
|
|
|
|
#include "kwsysPrivate.h"
|
2005-04-14 07:03:26 +04:00
|
|
|
|
|
|
|
#if defined(_MSC_VER)
|
|
|
|
# pragma warning (disable:4786)
|
|
|
|
#endif
|
|
|
|
|
2005-04-13 21:57:24 +04:00
|
|
|
#include KWSYS_HEADER(SystemTools.hxx)
|
|
|
|
#include KWSYS_HEADER(ios/iostream)
|
|
|
|
|
2005-04-14 00:46:09 +04:00
|
|
|
// 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
|
|
|
|
|
2005-10-04 23:09:00 +04:00
|
|
|
#include "testSystemTools.h"
|
|
|
|
|
2005-06-20 21:49:04 +04:00
|
|
|
//----------------------------------------------------------------------------
|
2006-03-09 22:36:53 +03:00
|
|
|
const char* toUnixPaths[][2] =
|
2005-04-13 21:57:24 +04:00
|
|
|
{
|
|
|
|
{ "/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}
|
|
|
|
};
|
|
|
|
|
2006-03-09 22:36:53 +03:00
|
|
|
bool CheckConvertToUnixSlashes(kwsys_stl::string input,
|
2005-06-20 21:49:04 +04:00
|
|
|
kwsys_stl::string output)
|
2005-04-13 21:57:24 +04:00
|
|
|
{
|
|
|
|
kwsys_stl::string result = input;
|
|
|
|
kwsys::SystemTools::ConvertToUnixSlashes(result);
|
|
|
|
if ( result != output )
|
|
|
|
{
|
2006-03-09 22:36:53 +03:00
|
|
|
kwsys_ios::cerr
|
|
|
|
<< "Problem with ConvertToUnixSlashes - input: " << input.c_str()
|
|
|
|
<< " output: " << result.c_str() << " expected: " << output.c_str()
|
2005-06-20 21:49:04 +04:00
|
|
|
<< kwsys_ios::endl;
|
2005-04-13 21:57:24 +04:00
|
|
|
return false;
|
|
|
|
}
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2005-06-20 21:49:04 +04:00
|
|
|
//----------------------------------------------------------------------------
|
2006-03-09 22:36:53 +03:00
|
|
|
const char* checkEscapeChars[][4] =
|
2005-06-20 21:49:04 +04:00
|
|
|
{
|
|
|
|
{ "1 foo 2 bar 2", "12", "\\", "\\1 foo \\2 bar \\2"},
|
|
|
|
{ " {} ", "{}", "#", " #{#} "},
|
|
|
|
{0, 0, 0, 0}
|
|
|
|
};
|
|
|
|
|
2006-03-09 22:36:53 +03:00
|
|
|
bool CheckEscapeChars(kwsys_stl::string input,
|
|
|
|
const char *chars_to_escape,
|
|
|
|
char escape_char,
|
2005-06-20 21:49:04 +04:00
|
|
|
kwsys_stl::string output)
|
|
|
|
{
|
|
|
|
kwsys_stl::string result = kwsys::SystemTools::EscapeChars(
|
|
|
|
input.c_str(), chars_to_escape, escape_char);
|
|
|
|
if (result != output)
|
|
|
|
{
|
2006-03-09 22:36:53 +03:00
|
|
|
kwsys_ios::cerr
|
|
|
|
<< "Problem with CheckEscapeChars - input: " << input.c_str()
|
|
|
|
<< " output: " << result.c_str() << " expected: " << output.c_str()
|
2005-06-20 21:49:04 +04:00
|
|
|
<< kwsys_ios::endl;
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2005-10-04 23:09:00 +04:00
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
bool CheckDetectFileType()
|
|
|
|
{
|
|
|
|
bool res = true;
|
|
|
|
|
2006-03-09 22:36:53 +03:00
|
|
|
if (kwsys::SystemTools::DetectFileType(TEST_SYSTEMTOOLS_BIN_FILE) !=
|
2005-10-04 23:09:00 +04:00
|
|
|
kwsys::SystemTools::FileTypeBinary)
|
|
|
|
{
|
2006-03-09 22:36:53 +03:00
|
|
|
kwsys_ios::cerr
|
|
|
|
<< "Problem with DetectFileType - failed to detect type of: "
|
2005-10-07 01:16:07 +04:00
|
|
|
<< TEST_SYSTEMTOOLS_BIN_FILE << kwsys_ios::endl;
|
2005-10-04 23:09:00 +04:00
|
|
|
res = false;
|
|
|
|
}
|
|
|
|
|
2006-03-09 22:36:53 +03:00
|
|
|
if (kwsys::SystemTools::DetectFileType(TEST_SYSTEMTOOLS_SRC_FILE) !=
|
2005-10-04 23:09:00 +04:00
|
|
|
kwsys::SystemTools::FileTypeText)
|
|
|
|
{
|
2006-03-09 22:36:53 +03:00
|
|
|
kwsys_ios::cerr
|
|
|
|
<< "Problem with DetectFileType - failed to detect type of: "
|
2005-10-06 00:06:45 +04:00
|
|
|
<< TEST_SYSTEMTOOLS_SRC_FILE << kwsys_ios::endl;
|
2005-10-04 23:09:00 +04:00
|
|
|
res = false;
|
|
|
|
}
|
|
|
|
|
|
|
|
return res;
|
|
|
|
}
|
|
|
|
|
2005-06-20 21:49:04 +04:00
|
|
|
//----------------------------------------------------------------------------
|
2005-04-13 21:57:24 +04:00
|
|
|
int main(/*int argc, char* argv*/)
|
|
|
|
{
|
2005-06-20 21:49:04 +04:00
|
|
|
bool res = true;
|
|
|
|
|
2005-04-13 21:57:24 +04:00
|
|
|
int cc;
|
|
|
|
for ( cc = 0; toUnixPaths[cc][0]; cc ++ )
|
|
|
|
{
|
2005-06-20 21:49:04 +04:00
|
|
|
res &= CheckConvertToUnixSlashes(toUnixPaths[cc][0], toUnixPaths[cc][1]);
|
2005-04-13 21:57:24 +04:00
|
|
|
}
|
2005-04-14 00:05:01 +04:00
|
|
|
|
|
|
|
// Special check for ~
|
|
|
|
kwsys_stl::string output;
|
|
|
|
if(kwsys::SystemTools::GetEnv("HOME", output))
|
2005-04-13 21:57:24 +04:00
|
|
|
{
|
|
|
|
output += "/foo bar/lala";
|
2005-06-20 21:49:04 +04:00
|
|
|
res &= CheckConvertToUnixSlashes("~/foo bar/lala", output);
|
2005-04-13 21:57:24 +04:00
|
|
|
}
|
2005-06-20 21:49:04 +04:00
|
|
|
|
|
|
|
for (cc = 0; checkEscapeChars[cc][0]; cc ++ )
|
|
|
|
{
|
|
|
|
res &= CheckEscapeChars(checkEscapeChars[cc][0], checkEscapeChars[cc][1],
|
|
|
|
*checkEscapeChars[cc][2], checkEscapeChars[cc][3]);
|
|
|
|
}
|
|
|
|
|
2005-10-04 23:09:00 +04:00
|
|
|
res &= CheckDetectFileType();
|
|
|
|
|
2005-06-20 21:49:04 +04:00
|
|
|
return res ? 0 : 1;
|
2005-04-13 21:57:24 +04:00
|
|
|
}
|