note description: "[ Eiffel tests that can be executed by testing tool. ]" author: "EiffelStudio test wizard" date: "$Date$" revision: "$Revision$" testing: "type/manual" class DIRECTORY_UNARCHIVER_TEST_SET inherit TAR_TEST_SET_BASE redefine on_prepare end feature -- Test routines test_directory_unarchiver_easy -- Test DIRECTORY_UNARCHIVER with easy data local unit_under_test: DIRECTORY_UNARCHIVER l_file: FILE do create unit_under_test assert ("Can unarchive directory", unit_under_test.unarchivable (easy_header)) unit_under_test.initialize (easy_header) assert ("No blocks processed", unit_under_test.unarchived_blocks = 0) assert ("Finished", unit_under_test.unarchiving_finished) -- TODO: compare metadata -- Compare file contents create {RAW_FILE} l_file.make_with_path (easy_header.filename) assert ("File unarchived and stored to disk", l_file.exists) assert ("Is directory", l_file.is_directory) end feature {NONE} -- Events on_prepare -- Create necessary output directory local d: DIRECTORY do create d.make_with_name ("test_files/unarchiver") if not d.exists then d.create_dir end end feature {NONE} -- Data - easy easy_header: TAR_HEADER -- Header for the easy test data once create Result Result.set_filename (create {PATH}.make_from_string ("test_files/unarchiver/easy_dir")) Result.set_mode (0c0755) Result.set_user_id (0c1750) Result.set_group_id (0c144) Result.set_mtime (0c12636054745) -- ~ Dec 21 20:58 Result.set_typeflag ({TAR_CONST}.tar_typeflag_directory) Result.set_user_name ("nicolas") Result.set_group_name ("users") end end