extra/tinyvg/tinyvg-tests.factor

   1 USING: base64 io.encodings.binary io.streams.byte-array kernel
   2 sequences tinyvg tools.test ;
   3
   4 {
   5     {
   6         0x00
   7         0x40
   8         0x80
   9         0x100000
  10         0x80000000
  11     }
  12 } [
  13     {
  14         B{ 0x00 }
  15         B{ 0x40 }
  16         B{ 0x80 0x01 }
  17         B{ 0x80 0x80 0x40 }
  18         B{ 0x80 0x80 0x80 0x80 0x08 }
  19         ! B{ 0x80 0x80 0x80 0x80 0x10 } ! out-of-range
  20         ! B{ 0x80 0x80 0x80 0x80 0x80 0x10 } ! too-long
  21     } [
  22         binary [ read-varuint ] with-byte-reader
  23     ] map
  24 ] unit-test
  25
  26 { t } [
  27     ! tinvyg-examples/files/everything.tvg
  28 "clYBBZABAAMG56kV//94AP9A/wD/ugBN/2IAnv+U5Tj/AgIAIAMgA4AM4AEgA6AFgAzgASADIAiA
  29 DOABCQIAA1AAIAMgDYAM4AEgA6APgAzgASADIBKADOABBAMAUAAgAyAXoA9gGCADYBigD6AZIAOg
  30 GaAP4BogA+AaoA8gHAUEAFAAIANAH6APgCBgBMAhoA8AIyADQCQGBABQACADYCegD6AoYATgKaAP
  31 ICsgA2AsAQQAIAOAL6APwDBgBAAyoA9AMyADgDQIBAADUAAgA6A3oA/gOGAEIDqgD2A7IAOgPAcA
  32 AHAACCADwD8RcABgBBJwAABBEXAAoAUQMACgD8A/E1AAgAxAQmAOAEaADABGF5AAYAkARmAJ4EIV
  33 UAACYARABjAAQAYgRBQwAADAASAD4EIWcAADAAAIIAMgSQFgBAJgSgGgBQCgDyBJA4AMoEtgDmBP
  34 gAxgTwdgCWBPYAlATAUCYARABjAAQAaATQQAwAEgA0BMBgoAAANQAAggA4BSAWAEAsBTAaAFAKAP
  35 gFIDgAwAVWAOwFiADMBYB2AJwFhgCaBVBQJgBEAGMABABuBWBADAASADoFUGQgLAEiADQB9gCQEC
  36 wBIgA4AM4AHAEqAFgAzgAcASIAiADOABSQLAEiANQB9gEwECA1AAwBIgDYAM4AHAEqAPgAzgAcAS
  37 IBKADOABRAPAEiAXQB9gHQECUADAEiAXQB9gGMASYBhAH6AZwBKgGUAf4BrAEuAaQB8gHEUEwBJA
  38 H0AfgCUBAlAAwBJAH0AfgCAAFMAhQB8AI8ASQCRGBMASYCdAH6AtAQJQAMASYCdAH6AoABTgKUAf
  39 ICvAEmAsQQTAEoAvQB/ANQECwBKAL0AfwDAAFAAyQB9AM8ASgDRIBMASoDdAH+A9AQIDUADAEqA3
  40 QB/gOAAUIDpAH2A7wBKgPEcAwBLAP0AfAEYBAnAACMASwD8RcAAAFBJwAABBEXAAQBUQMABAH8A/
  41 E1AAIBxAQgAeAEYgHABGF5AAABkARgAZ4EIVUAACYARABjAA4BUgRBQwAADAAcAS4EIWcABDAMAS
  42 IElAH2BPAQIIwBIgSQEAFAJgSgFAFQBAHyBJAyAcoEsAHmBPIBxgTwcAGWBPABlATAUCYARABjAA
  43 4BWATQQAwAHAEkBMBkoAwBKAUkAfwFgBAgNQAAjAEoBSAQAUAsBTAUAVAEAfgFIDIBwAVQAewFgg
  44 HMBYBwAZwFgAGaBVBQJgBEAGMADgFeBWBADAAcASoFUGggKgKEAG4C5gCQECYCIgA4AM4AFgIqAF
  45 gAzgAWAiIAiADOABiQKgKEAQ4C5gEwECA1AAYCIgDYAM4AFgIqAPgAzgAWAiIBKADOABhAOgKEAa
  46 4C5gHQECUABgIiAX4C5gGGAiYBjgLqAZYCKgGeAu4BpgIuAa4C4gHIUEoChgIuAugCUBAlAAYCJA
  47 H+AugCCgI8Ah4C4AI2AiQCSGBKAogCrgLqAtAQJQAGAiYCfgLqAooCPgKeAuICtgImAsgQSgKKAy
  48 4C7ANQECYCKAL+AuwDCgIwAy4C5AM2AigDSIBKAowDrgLuA9AQIDUABgIqA34C7gOKAjIDrgLmA7
  49 YCKgPIcAoCjgQuAuAEYBAnAACGAiwD8RcACgIxJwAABBEXAA4CQQMADgLsA/E1AAwCtAQqAtAEbA
  50 KwBGF5AAoCgARqAo4EIVUAACYARABjAAgCUgRBQwAADAAWAi4EIWcACDAKAoQEzgLmBPAQIIYCIg
  51 SQGgIwJgSgHgJADgLiBJA8AroEugLWBPwCtgTwegKGBPoChATAUCYARABjAAgCWATQQAwAFgIkBM
  52 BooAoCigVeAuwFgBAgNQAAhgIoBSAaAjAsBTAeAkAOAugFIDwCsAVaAtwFjAK8BYB6AowFigKKBV
  53 BQJgBEAGMACAJeBWBADAAWAioFUGAA=="
  54     base64> [ bytes>tinyvg tinyvg>bytes ] keep =
  55 ] unit-test