Revision 90

This is my regression reference for older stuff in revision and new stuff in experimentation aligned to upload version number. As I work on new features and correct problems with old ones, I collect my test cases here. They become part of my regression testing as well as notes of documentation I must complete.

Commentary Code Result
Commentary 1 0 _1 =>v;
(' UCHAR: ')$;(v %%% 1 :hex)$;



('  CHAR: ')$;(v %%% _1 :hex)$;



('USHORT: ')$;(v %%% 2 :hex)$;



(' SHORT: ')$;(v %%% _2 :hex)$;



('  UINT: ')$;(v %%% 4 :hex)$;



('   INT: ')$;(v %%% _4 :hex)$;



(' FLOAT: ')$;(v %%% 4. :hex)$;



(' DOUBLE: ')$;(v %%% 8. :hex)$;



 
UCHAR:
..ÿ
00F
10F
  CHAR:
..ÿ
00F
10F
USHORT:
....ÿÿ
0000FF
1000FF
 SHORT:
....ÿÿ
0000FF
1000FF
  UINT:
........ÿÿÿÿ
00000000FFFF
10000000FFFF
   INT:
........ÿÿÿÿ
00000000FFFF
10000000FFFF
 FLOAT:
..€?......€¿
00830000008B
000F0000000F
 DOUBLE:
......ð?..............ð¿
000000F300000000000000FB
0000000F000000000000000F
Commentary 1 0 _1 =>v;
(' UCHAR: ')$;(v %%% 1 %%% 1%**)$;

('  CHAR: ')$;(v %%% _1 %%% _1%**)$;

('USHORT: ')$;(v %%% 2 %%% 2%**)$;

(' SHORT: ')$;(v %%% _2 %%% _2%**)$;

('  UINT: ')$;(v %%% 4 %%% 4%**)$;

('   INT: ')$;(v %%% _4 %%% _4%**)$;

(' FLOAT: ')$;(v %%% 4. %%% 4.%**)$;

(' DOUBLE: ')$;(v %%% 8. %%% 8.%**)$;
 
UCHAR:
Num[R1C3:I]1 0 255
  CHAR:
Num[R1C3:I]1 0 _1
USHORT:
Num[R1C3:I]1 0 65535
 SHORT:
Num[R1C3:I]1 0 _1
  UINT:
Num[R1C3:I]1 0 _1
   INT:
Num[R1C3:I]1 0 _1
 FLOAT:
Num[R1C3:F]1 0 _1
 DOUBLE:
Num[R1C3:F]1 0 _1
Commentary ('CHAR: ')('abc'%%% 0)$;
('UCHAR: ')('abc'%%% 1 %%% 0)$;
('SHORT: ')(_1 %%% _2 %%% 0)$;
('USHORT: ')(_1 %%% 2 %%% 0)$;
('INT:')(_1 %%% _4 %%% 0)$;
('UINT:')(_1 %%% _4 %%% 0)$;
('FLOAT:')(_1. %%% 4. %%% 0)$;
('DOUBLE:')(_1. %%% 8. %%% 0)$;
CHAR: 01100001 01100010 01100011
UCHAR: 01100001 01100010 01100011
SHORT: 11111111 11111111
USHORT: 11111111 11111111
INT:11111111 11111111 11111111 11111111
UINT:11111111 11111111 11111111 11111111
FLOAT:00000000 00000000 10000000 10111111
DOUBLE:00000000 00000000 00000000 00000000 00000000 00000000 11110000 1011111
  ('CHAR: ')('abc'%%% 0)$;
('UCHAR: ')('abc'%%% 1 %%% 0)$;
('SHORT: ')(_1 %%% _2 %%% 0)$;
('USHORT: ')(_1 %%% 2 %%% 0)$;
('INT:')(_1 %%% _4 %%% 0)$;
('UINT:')(_1 %%% _4 %%% 0)$;
('FLOAT:')(_1. %%% 4. %%% 0)$;
('DOUBLE:')(_1. %%% 8. %%% 0)$;
('BIT:')('a'#asc %%% 0=>b)$;
('Toggle Sign Bit')(#false =>[2]b;b)$;
('CHAR: ')(b %%% _1)$;