2018-06-15 00:40:36 -07:00
|
|
|
#
|
|
|
|
|
Tests for the stuff defined in lib/os.nom
|
|
|
|
|
|
|
|
|
|
use "core"
|
|
|
|
|
use "lib/os.nom"
|
|
|
|
|
|
|
|
|
|
%lines <-: lines in: read file "tests/os.nom"
|
|
|
|
|
assume: %lines.2 = " Tests for the stuff defined in lib/os.nom"
|
|
|
|
|
|
2018-06-23 17:26:29 -07:00
|
|
|
%n <- 0
|
2018-06-23 17:22:23 -07:00
|
|
|
for file %f in "core"
|
2018-06-23 17:26:29 -07:00
|
|
|
%n +<- 1
|
|
|
|
|
assume (%n > 0) or barf "Failed to walk the 'core' directory"
|
2018-06-23 17:22:23 -07:00
|
|
|
|
2018-06-15 00:40:36 -07:00
|
|
|
say "OS test passed."
|
