107 lines
1.8 KiB
Text
107 lines
1.8 KiB
Text
import Std.Internal.Async.System
|
|
import Std.Internal.Async.Process
|
|
|
|
open Std.Internal.IO.Async.System
|
|
open Std.Internal.IO.Process
|
|
|
|
#eval do
|
|
assert! (← getUpTime) > 0
|
|
|
|
#eval do
|
|
assert! (← getHighResolutionTime) > 0
|
|
|
|
#eval do
|
|
assert! (← getHostName) != ""
|
|
|
|
#eval do
|
|
setEnvVar "TEST_LEAN_ASYNC" "hello world"
|
|
|
|
#eval do
|
|
assert! (← getEnvVar "TEST_LEAN_ASYNC") == (some "hello world")
|
|
|
|
#eval do
|
|
assert! (← getEnv).get? "TEST_LEAN_ASYNC" == (some "hello world")
|
|
|
|
#eval
|
|
unsetEnvVar "TEST_LEAN_ASYNC"
|
|
|
|
#eval do
|
|
assert! (← getEnvVar "TEST_LEAN_ASYNC") == none
|
|
|
|
#eval do
|
|
assert! (← getSystemInfo).machine != ""
|
|
|
|
#eval do
|
|
assert! (← getCPUInfo).size > 0
|
|
|
|
#eval do
|
|
assert! (← getHomeDir) != ""
|
|
|
|
#eval do
|
|
assert! (← getTmpDir) != ""
|
|
|
|
#eval do
|
|
assert! (← getId).toUInt64 != 0
|
|
|
|
#eval do
|
|
assert! (← getParentId).toUInt64 != 0
|
|
|
|
#eval do
|
|
let cwd ← getCwd
|
|
assert! cwd.toString != ""
|
|
|
|
#eval do
|
|
let cwd ← getCwd
|
|
setCwd cwd
|
|
|
|
#eval do
|
|
if System.Platform.isWindows then
|
|
return
|
|
|
|
let pid ← getId
|
|
setPriority pid 3
|
|
assert! (← getPriority pid) == 3
|
|
|
|
#eval do
|
|
if System.Platform.isWindows then
|
|
return
|
|
|
|
let pid ← getParentId
|
|
setPriority pid 3
|
|
assert! (← getPriority pid) == 3
|
|
|
|
#eval do
|
|
if System.Platform.isWindows then
|
|
return
|
|
|
|
let user ← getCurrentUser
|
|
if System.Platform.isWindows then
|
|
assert! user.userId == none
|
|
assert! user.groupId == none
|
|
else
|
|
assert! user.userId != none
|
|
assert! user.username != ""
|
|
|
|
#eval do
|
|
if System.Platform.isWindows then
|
|
return
|
|
|
|
assert! (← getGroup (GroupId.mk 240000)).isNone
|
|
|
|
#eval do
|
|
assert! (← getResourceUsage).peakResidentSetSizeKb > 0
|
|
|
|
#eval do
|
|
assert! (← getExecutablePath) != ""
|
|
|
|
#eval do
|
|
assert! (← freeMemory) > 0
|
|
|
|
#eval do
|
|
assert! (← totalMemory) > 0
|
|
|
|
#eval
|
|
constrainedMemory
|
|
|
|
#eval do
|
|
assert! (← availableMemory) > 0
|