2013-08-28 10:17:40 +00:00
|
|
|
# This file is part of LyX, the document processor.
|
|
|
|
# Licence details can be found in the file COPYING.
|
|
|
|
#
|
|
|
|
# Copyright (c) 2013 Kornel Benko <kornel@lyx.org>
|
|
|
|
# (c) 2013 Scott Kostyshak <skotysh@lyx.org>
|
|
|
|
#
|
|
|
|
# Needed, because of perl scripts here
|
|
|
|
find_package(Perl REQUIRED)
|
|
|
|
|
|
|
|
# create file the lyx-files-list
|
|
|
|
set(TOP_SEARCH_PATH "${TOP_SRC_DIR}")
|
|
|
|
set(LYXFILES_FILE "${CMAKE_CURRENT_BINARY_DIR}/filesToScan")
|
|
|
|
file(WRITE "${LYXFILES_FILE}")
|
|
|
|
file(GLOB_RECURSE lyx_files RELATIVE "${TOP_SEARCH_PATH}" "${TOP_SEARCH_PATH}/*.lyx")
|
|
|
|
|
|
|
|
foreach(_f ${lyx_files})
|
|
|
|
file(APPEND "${LYXFILES_FILE}" "${_f}\n")
|
|
|
|
endforeach()
|
|
|
|
|
|
|
|
# Define the perl-script running the actual test
|
|
|
|
set(SEARCH_URL_SCRIPT "${CMAKE_CURRENT_SOURCE_DIR}/search_url.pl")
|
|
|
|
|
2013-08-28 14:50:23 +00:00
|
|
|
# Test used and as accessible expected urls
|
2013-08-28 10:17:40 +00:00
|
|
|
add_test(NAME "check_accessible_urls"
|
|
|
|
WORKING_DIRECTORY "${TOP_SEARCH_PATH}"
|
|
|
|
COMMAND ${PERL_EXECUTABLE} "${SEARCH_URL_SCRIPT}"
|
|
|
|
"filesToScan=${LYXFILES_FILE}"
|
2013-08-28 14:50:23 +00:00
|
|
|
"ignoredURLS=${CMAKE_CURRENT_SOURCE_DIR}/inaccessibleURLS"
|
|
|
|
"ignoredURLS=${CMAKE_CURRENT_SOURCE_DIR}/knownInvalidURLS")
|
2013-08-28 10:17:40 +00:00
|
|
|
|
|
|
|
# Test inaccessible, but revert the error marker (failed <=> passed)
|
|
|
|
# if this fails, then some url is accessible and does not belong
|
|
|
|
# to file inaccessibleURLS
|
|
|
|
add_test(NAME "check_inaccessible_urls"
|
|
|
|
WORKING_DIRECTORY "${TOP_SEARCH_PATH}"
|
|
|
|
COMMAND ${PERL_EXECUTABLE} "${SEARCH_URL_SCRIPT}"
|
|
|
|
"filesToScan=${LYXFILES_FILE}"
|
|
|
|
"selectedURLS=${CMAKE_CURRENT_SOURCE_DIR}/inaccessibleURLS"
|
|
|
|
"revertedURLS=${CMAKE_CURRENT_SOURCE_DIR}/inaccessibleURLS")
|
|
|
|
|
|
|
|
#
|
2013-08-28 14:50:23 +00:00
|
|
|
# Test our own bad urls
|
|
|
|
# and urls used in examples which should not match valid urls
|
2013-08-28 10:17:40 +00:00
|
|
|
# if this test fails, then our testtool contains errors
|
|
|
|
add_test(NAME "check_invalid_urls"
|
|
|
|
WORKING_DIRECTORY "${TOP_SEARCH_PATH}"
|
|
|
|
COMMAND ${PERL_EXECUTABLE} "${SEARCH_URL_SCRIPT}"
|
|
|
|
"extraURLS=${CMAKE_CURRENT_SOURCE_DIR}/knownInvalidURLS"
|
|
|
|
"revertedURLS=${CMAKE_CURRENT_SOURCE_DIR}/knownInvalidURLS")
|
|
|
|
|
2013-09-07 06:58:21 +00:00
|
|
|
set_tests_properties("check_accessible_urls" "check_inaccessible_urls" "check_invalid_urls"
|
|
|
|
PROPERTIES RESOURCE_LOCK "url.lock" LABELS "url")
|
2013-08-28 10:17:40 +00:00
|
|
|
|
2013-09-07 06:58:21 +00:00
|
|
|
settestlabel("check_inaccessible_urls" "reverted")
|
|
|
|
settestlabel("check_invalid_urls" "reverted")
|