source [file dirname [info script]]/testing.tcl

needs constraint jim
constraint cmd os.getids
constraint cmd os.gethostname
constraint cmd os.uptime
constraint cmd os.fork

test posix-1.1 {os.getids usage} -constraints os.getids -body {
	os.getids blah
} -returnCodes error -result {wrong # args: should be "os.getids"}

test posix-1.2 {os.getids} -constraints os.getids -body {
	set uid [exec id -u]
	set d [os.getids]
	if {$d(uid) != $uid} {
		error "os.getids uid=$d(uid) not match system $uid"
	}
} -result {}


test posix-1.4 {os.uptime} -constraints os.uptime -body {
	string is integer -strict [os.uptime]
} -result {1}

test posix-1.5 {os.gethostname usage} -constraints os.gethostname -body {
	os.gethostname blah
} -returnCodes error -result {wrong # args: should be "os.gethostname"}

test posix-1.6 {os.gethostname} -constraints os.gethostname -body {
	if {[exec hostname] ne [os.gethostname]} {
		error "os.gethostname did not match system hostname"
	}
} -result {}

test posix-1.7 {os.fork usage} -constraints os.fork -body {
	os.fork extra args
} -returnCodes error -result {wrong # args: should be "os.fork"}

testreport