extra/semantic-versioning/semantic-versioning-tests.factor

   1 USING: math.order semantic-versioning tools.test ;
   2 IN: semantic-versioning.tests
   3
   4 {
   5     {
   6         T{ version f 0 1 0 "" "" }
   7         T{ version f 0 97 0 "" "" }
   8         T{ version f 1 1 0 "" "" }
   9         T{ version f 1 2 3 "" "" }
  10         T{ version f 1 0 0 "dev1" "" }
  11         T{ version f 1 0 0 "rc1" "build" }
  12         T{ version f 1 0 0 "rc2" "" }
  13         T{ version f 1 0 0 "rc2" "123456" }
  14     }
  15 } [
  16     {
  17         ".1"
  18         "0.97"
  19         "1.1"
  20         "1.2.3"
  21         "1.0.0dev1"
  22         "1.0.0rc1+build"
  23         "1.0.0-rc2"
  24         "1.0.0-rc2+123456"
  25     } [ string>version ] map
  26 ] unit-test
  27
  28 { +gt+ } [ "1.2.0dev1" "0.12.1dev2" version<=> ] unit-test
  29 { +lt+ } [ "1.9.0" "1.10.0" version<=> ] unit-test
  30 { +eq+ } [ "2.0.0rc1" "2.0.0rc1" version<=> ] unit-test
  31 { +lt+ } [ "1.0.0rc1" "1.0.0" version<=> ] unit-test
  32 { +lt+ } [ "1.0.0rc1" "1.0.0rc2" version<=> ] unit-test
  33 { +lt+ } [ "1.0.0-rc.1" "1.0.0-rc.11" version<=> ] unit-test
  34 { +lt+ } [ "1.0.0-rc.2" "1.0.0-rc.11" version<=> ] unit-test
  35 { +eq+ } [ "1.0.0+foo" "1.0.0+bar" version<=> ] unit-test
  36
  37 { t } [
  38     {
  39         "1.0.0-alpha"
  40         "1.0.0-alpha.1"
  41         "1.0.0-alpha.beta"
  42         "1.0.0-beta"
  43         "1.0.0-beta.2"
  44         "1.0.0-beta.11"
  45         "1.0.0-rc.1"
  46         "1.0.0"
  47     } dup clone randomize [ version<=> ] sort =
  48 ] unit-test