class EL_TEST_DATA_TEST_SET
Test using a set of files copied from test-data directory
note
description: "[
Test using a set of files copied from `test-data' directory
]"
author: "Finnian Reilly"
copyright: "Copyright (c) 2001-2022 Finnian Reilly"
contact: "finnian at eiffel hyphen loop dot com"
license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
date: "2023-01-11 11:24:13 GMT (Wednesday 11th January 2023)"
revision: "10"
deferred class
EL_TEST_DATA_TEST_SET
inherit
EL_EQA_TEST_SET
export
{EL_APPLICATION} clean
redefine
on_prepare, on_clean
end
EL_MODULE_OS
EL_MODULE_DIRECTORY
feature {NONE} -- Events
on_clean
do
reset_work_area
Precursor
end
on_prepare
do
Precursor
reset_work_area
OS.copy_tree (test_data_root_dir #+ relative_dir, workarea_root_dir)
work_dir := workarea_root_dir #+ relative_dir.base
end
feature {NONE} -- Implementation
reset_work_area
-- create an empty work area
do
if workarea_root_dir.exists then
OS.delete_tree (workarea_root_dir)
reset_work_area
else
OS.File_system.make_directory (workarea_root_dir)
end
end
relative_dir: DIR_PATH
deferred
end
feature {NONE} -- Internal attributes
work_dir: DIR_PATH
-- working test files directory
feature {NONE} -- Constants
test_data_root_dir: DIR_PATH
once
Result := "test-data"
end
workarea_root_dir: DIR_PATH
once
Result := "workarea"
end
end