extra/successor/successor-tests.factor

   1 ! Copyright (C) 2011 John Benediktsson.
   2 ! See http://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