nixpkgs/pkgs/applications/emulators/craftos-pc/test-eval-periphemu/init.lua
Tomo 9cdeb84cd9 craftos-pc: add basic tests
This ensures that most obvious breakages will be caught before they are
shipped.
2023-06-26 17:33:32 -07:00

19 lines
396 B
Lua

local function assert(cond1, cond2)
if not cond1 == cond2 then print("FAIL") end
end
local function driveTests()
periphemu.create("left", "drive")
local p = peripheral.wrap("left")
assert(p.isDiskPresent(), false)
p.insertDisk(649)
assert(p.isDiskPresent(), true)
assert(p.getDiskID(), 649)
assert(p.getDiskLabel(), nil)
end
driveTests()
shell.run("shutdown")