646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
19 lines
396 B
Lua
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")
|