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

needs constraint jim
needs cmd package

if {[exists -proc package]} {
	skiptest " (bootstrap jimsh)"
}

test package-1.1 {provide} -body {
	package provide new-package-name
	expr {"new-package-name" in [package names]}
} -result 1

test package-1.2 {provide, duplicate} -body {
	package provide new-package-name
} -returnCodes error -result {package "new-package-name" was already provided}

test package-1.3 {package names} -body {
	expr {"stdlib" in [package names]}
} -result 1

test package-2.1 {package forget} -body {
	# First pretend the package was loaded
	package provide forget-test
	# Now it won't load anything
	package require forget-test
	# Now forget it and another unloaded test
	package forget forget-test missing
	# And load the local package
	package require forget-test
	info exists forgotten
} -result 1

testreport