2011-09-09 00:59:03 -04:00
|
|
|
USING: system-info.linux strings splitting sequences
|
2011-09-09 04:48:26 -04:00
|
|
|
tools.test kernel ;
|
2011-09-09 00:59:03 -04:00
|
|
|
IN: system-info.linux.tests
|
|
|
|
|
|
|
|
|
|
[ 6 ] [ uname length ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ sysname string? ] unit-test
|
|
|
|
|
[ t ] [ nodename string? ] unit-test
|
|
|
|
|
[ t ] [ release string? ] unit-test
|
|
|
|
|
[ t ] [ version string? ] unit-test
|
|
|
|
|
[ t ] [ machine string? ] unit-test
|
|
|
|
|
[ t ] [ domainname string? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
release "." split1 drop { "2" "3" } member?
|
|
|
|
|
] unit-test
|
