extra/base24/base24-tests.factor

   1 USING: base24 endian grouping kernel math.parser sequences
   2 tools.test ;
   3
   4 IN: base24.tests
   5
   6 { 49894920630459842177293598641814316632 } [
   7     "2FC28KTA66WRST4XAHRRCF237S8Z" base24> be>
   8 ] unit-test
   9
  10 { 49894920630459842177293598641814316632 } [
  11     "2FC2 8KTA6 6WRST 4XAHR RCF23 7S8Z" base24> be>
  12 ] unit-test
  13
  14 { 49894920630459842177293598641814316632 } [
  15     "2fc2 8kta6 6wrst 4xahr rcf23 7s8z" base24> be>
  16 ] unit-test
  17
  18 {
  19   "00000000" "ZZZZZZZ"
  20   "00000001" "ZZZZZZA"
  21   "00000002" "ZZZZZZC"
  22   "00000004" "ZZZZZZB"
  23   "00000008" "ZZZZZZ4"
  24   "00000010" "ZZZZZZP"
  25   "00000020" "ZZZZZA4"
  26   "00000040" "ZZZZZCP"
  27   "00000080" "ZZZZZ34"
  28   "00000100" "ZZZZZHP"
  29   "00000200" "ZZZZZW4"
  30   "00000400" "ZZZZARP"
  31   "00000800" "ZZZZ2K4"
  32   "00001000" "ZZZZFCP"
  33   "00002000" "ZZZZ634"
  34   "00004000" "ZZZABHP"
  35   "00008000" "ZZZC4W4"
  36   "00010000" "ZZZB8RP"
  37   "00020000" "ZZZG5K4"
  38   "00040000" "ZZZRYCP"
  39   "00080000" "ZZAKX34"
  40   "00100000" "ZZ229HP"
  41   "00200000" "ZZEFPW4"
  42   "00400000" "ZZT7GRP"
  43   "00800000" "ZAAESK4"
  44   "01000000" "ZCCK7CP"
  45   "02000000" "ZB32E34"
  46   "04000000" "Z4HETHP"
  47   "08000000" "ZP9KZW4"
  48   "10000000" "AG8CARP"
  49   "20000000" "CSHB2K4"
  50   "40000000" "3694FCP"
  51   "80000000" "53PP634"
  52   "CAFEBABE" "8S8ZRYX"
  53   "FFFFFFFF" "X5GGBH7"
  54 } 2 <groups> [
  55     [let
  56         first2 [ hex-string>bytes ] dip :> ( a b )
  57         { a } [ b base24> ] unit-test
  58         { b } [ a >base24 "" like ] unit-test
  59     ]
  60 ] each