====== Пример: fs_test ====== Проверяет функции класса [[list:fs|fs]] ===== Исходный код ===== use, "fs" printc, "Checking fs:makedir... " fs:makedir, "test.d" sleep, 500 if returned == 1 print, "OK" end printc, "Checking fs:move... " fs:move, "test.d", "test2.d" sleep, 500 if returned == 1 print, "OK" end printc, "Checking fs:remove... " fs:remove, "test2.d" sleep, 500 if returned == 1 print, "OK" end printc, "Checking fs:create... " fs:create, "test.tmp" sleep, 500 if returned != -1 print, "OK" file = returned end printc, "Checking fs:write... " fs:write, file, "Testing... Testing... Khm..." sleep, 500 if returned != -1 print, "OK" end printc, "Checking fs:close... " fs:close, file sleep, 500 if returned == 1 print, "OK" end printc, "Checking fs:open... " fs:open, "test.tmp" sleep, 500 if returned != -1 print, "OK" file = returned end printc, "Checking fs:read... " fs:read, file, filestring printc, filestring printc, ": " sleep, 500 if returned != -1 print, "OK" end fs:close, file fs:open, "test.tmp" file = returned printc, "Checking fs:readline... " fs:readline, file, 0 printc, returned printc, ": " sleep, 500 if returned == "nil" print, "Error!" else print, "OK" end fs:close, file fs:remove, "test.tmp"