basis/system-info/linux/linux-tests.factor

   1 USING: system-info.linux strings splitting sequences
   2 tools.test kernel ;
   3
   4 [ 6 ] [ uname length ] unit-test
   5
   6 [ t ] [ sysname    string? ] unit-test
   7 [ t ] [ nodename   string? ] unit-test
   8 [ t ] [ release    string? ] unit-test
   9 [ t ] [ version    string? ] unit-test
  10 [ t ] [ machine    string? ] unit-test
  11 [ t ] [ domainname string? ] unit-test
  12
  13 { t } [
  14     release "." split1 drop { "2" "3" "4" } member?
  15 ] unit-test