note description: "[ Eiffel tests that can be executed by testing tool. ]" author: "EiffelStudio test wizard" date: "$Date$" revision: "$Revision$" testing: "type/manual" class TEST_W_WAD inherit EQA_TEST_SET create default_create feature -- Test ExtractFileBase test_file_base_of_bare_path_is_same do assert ("same string uppercase", "DOOM1" ~ {W_WAD}.extractfilebase ("doom1.wad")) end test_file_base_of_subdir_is_strips_path do assert ("only base", "P1M1-897" ~ {W_WAD}.extractfilebase ("./demos/p1m1-897/p1m1-897.lmp")) end end -- class TEST_W_WAD
Generated by ISE EiffelStudio