note description: "Test task 'mkdir'" library: "Gobo Eiffel Ant" copyright: "Copyright (c) 2008, Sven Ehrke and others" license: "MIT License" date: "$Date$" revision: "$Revision$" class GEANT_FUNCTIONAL_MKDIR_TEST inherit GEANT_FUNCTIONAL_TEST_CASE create make_default feature -- Test test_mkdir -- Test task 'mkdir' local s: STRING a_tmp_geant_subdir: STRING do -- Test mkdir with one directory level: a_tmp_geant_subdir := "__tmp_geant_subdir" file_system.recursive_delete_directory (a_tmp_geant_subdir) assert_true ("test_mkdir1prepare", not file_system.directory_exists (a_tmp_geant_subdir)) tasks := "" basic_test ("test_mkdir1execute") assert_true ("test_mkdir1", file_system.directory_exists (a_tmp_geant_subdir)) -- Test mkdir with two directory levels: a_tmp_geant_subdir := "__tmp_geant_subdir" file_system.recursive_delete_directory (a_tmp_geant_subdir) assert_true ("test_mkdir2prepare", not file_system.directory_exists (a_tmp_geant_subdir)) s := file_system.pathname (a_tmp_geant_subdir, "ttt2") tasks := "" basic_test ("test_mkdir2execute") assert_true ("test_mkdir2", file_system.directory_exists (s)) end end