Revision 91

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 'c:\glee\user'#fc =>fc;
'No files should list:'( fc:purge),,$;
'test.txt'#file fc =>f;
'1 if created: '(f:create)$;
'Now is the time ',=>f;
'For all good men',=>f;
f[]$;f%>; 		No files should list:

1 if created: 1
Now is the time For all good men
Commentary '<1a:string>'$;('test'%->> :hex) $;
'<1b>'('test'%->> %<<- )$;
 <1a:string>
............test
1000100000007677
D000100040004534
<1b>test
  '<1a:numeric>'$;(1 2 3 %->> :hex) $;
'<1b>'$;(1. 2 3 %->> :hex) $;
'<1c>'(1 2 3  %->> %<<- %**)$;
'<1d>'(1. 2 3 %->> %<<- %**)$;
 <1a:numeric>
.... ..........................
0000200000000000000000000000000
1000000030003000000010002000300
<1b>
....,.....................ð?.......@.......
00002000000000000000000000F3000000040000000
1000C0004000300000000000000F000000000000008
<1c>Num[R1C3:I]1 2 3
<1d>Num[R1C3:F]1 2 3
  '<1a:bit>'$;(1 0 1 *= 1%->> :hex)$;
'<1b>'(1 0 1 *= 1%->> %<<- %**)$;
 <1a:bit>
............
000000000000
3000D0003000
<1b>Bit[R1C3:B]101
  '<1a:sequence>'$;('a'2 %->> :hex)$;
'<1b>'$;('a'2 %->> %<<- %**)$;
 <1a:sequence>
....................a........................
100020001000000000006000001000000000000000000
A000E000D000E00020001010008000300010000000200
<1b>
Seq[R1C2:K]
[1]String[R1C1:C]a
[2]Num[R1C1:I]2
  '<1a:block>'$;({}:obj %->> :hex)$;
'<1b>'$;({}:obj %->> %<<- %**)$;
 <1a:block>
....................anon:.{}..
000010000000000000006666307700
4000F0006000300010001EFEA0BD00
<1b>
Block[R1C1:K]
Code:
{}
Commentary '<1a:pgm>'$;
('x'#pgm{'hello'};x:obj %->> :hex)$;
'<1b>'$;
(x:obj %->> %<<- %**)$;
'<1c>'$;
(x:obj %->> %<<- :obj =>y;y %**)$; 		<1a:pgm>
....%...............Pgm:.{'hello'}..
100020000000000000005663072666662700
500050005000A000100007DA0B785CCF7D00
<1b>
Pgm[R1C1:K]
Code:
{'hello'}
<1c>
String[R2C5:C]hello
Commentary 'plus'#op{l__ + r__};
'<1a:op>'( 10 plus 20 %**)$;
'<1b>'$;
plus:obj %->> :hex$;
'<1c>'$;
plus:obj %->> %<<- :obj =>and;
10 and 20 %**$;		 <1a:op>Num[R1C1:I]30
<1b>
....&...............Op:.{l__ + r__}..
1000200000000000000047307655222755700
300060004000C0001000F0A0BCFF0B02FFD00
<1c>
Num[R1C1:I]30
  2003 11 16 #clock =>c;
'<1a>'$;(c %->> :hex) $;
'<1b>'$;(c %->> %<<- %**)$;		 <1a>
........................ †â
000010000000000000000000A8E
5000C0004000100000000000062
<1b>
Clock[R1C1:F]2003/11/16 00:00:00.000