extra/successor/successor-tests.factor

   1 ! Copyright (C) 2011 John Benediktsson.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3
   4 USING: successor tools.test ;
   5
   6 { "" } [ "" successor ] unit-test
   7 { "abce" } [ "abcd" successor ] unit-test
   8 { "THX1139" } [ "THX1138" successor ] unit-test
   9 { "<<koalb>>" } [ "<<koala>>" successor ] unit-test
  10 { "2000aaa" } [ "1999zzz" successor ] unit-test
  11 { "AAAA0000" } [ "ZZZ9999" successor ] unit-test
  12 { "**+" } [ "***" successor ] unit-test