Проверяет функции класса fs

fs_test.dino

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"