extra/leb128/leb128-tests.factor

   1
   2 USING: leb128 tools.test ;
   3
   4 { B{ 0xe5 0x8e 0x26 } } [ 624485 >uleb128 ] unit-test
   5 { 624485 } [ B{ 0xe5 0x8e 0x26 } uleb128> ] unit-test
   6 { B{ 255 255 127 } } [ 0x1fffff >uleb128 ] unit-test
   7 { 0x1fffff } [ B{ 255 255 127 } uleb128> ] unit-test
   8
   9 { B{ 255 255 255 0 } } [ 0x1fffff >leb128 ] unit-test
  10 { 0x1fffff } [ B{ 255 255 255 0 } leb128> ] unit-test
  11 { B{ 0xc0 0xbb 0x78 } } [ -123456 >leb128 ] unit-test
  12 { -123456 } [ B{ 0xc0 0xbb 0x78 } leb128> ] unit-test