Revision 73

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
  'c:\GLEE\GLEE.EXE'#file :attr %** Seq[I32R1C4T:K]:
[1]Num[I33R1C1:I]76288
[2]String[I34R1C9:C]Archive,
[3]Seq[I36R1C3T:K]:
*[1]Clock[I37R1C1:F]2003/03/23 21:39:06.000
*[2]Clock[I38R1C1:F]2003/03/23 21:39:06.000
*[3]Clock[I39R1C1:F]2003/04/09 16:02:29.757
[4]String[I40R1C109:C]MS-DOS - based application,16-bit OS/2-based application,PIF file that executes an MS-DOS - based application
Commentary 1..5 @& ` @& [2 3]%**$; Seq[I290R1C5T:K]:
[1]Num[I291R1C2:I]Nil Nil
[2]Num[I292R1C2:I]2 Nil
[3]Num[I293R1C2:I]2 3
[4]Num[I294R1C2:I]2 3
[5]Num[I295R1C2:I]2 3
  1..5 #ea"`[2 3]"%**$; Seq[I689R1C5T:K]:
[1]Num[I724R1C2:I]Nil Nil
[2]Num[I758R1C2:I]2 Nil
[3]Num[I792R1C2:I]2 3
[4]Num[I826R1C2:I]2 3
[5]Num[I860R1C2:I]2 3
  #ns => @;
'test'#op{l__ ` @[2 3]};
1..5 @& test %**$;		 Seq[I171R1C5T:K]:
[1]Num[I172R1C2:I]Nil Nil
[2]Num[I173R1C2:I]2 Nil
[3]Num[I174R1C2:I]2 3
[4]Num[I175R1C2:I]2 3
[5]Num[I176R1C2:I]2 3
  1..5 @&(` [2 3]) %**$; Seq[I635R1C5T:K]:
[1]Num[I682R1C2:I]Nil Nil
[2]Num[I730R1C2:I]2 Nil
[3]Num[I778R1C2:I]2 3
[4]Num[I826R1C2:I]2 3
[5]Num[I874R1C2:I]2 3
  'mop'#op{l__ - r__};
1..4 @& (mop (3 2@&))%**$;		 Seq[R1C4:K]
[1]Seq[R1C2:K]
*[1]Num[R1C1:I]_2
*[2]Num[R1C1:I]_1
[2]Seq[R1C2:K]
*[1]Num[R1C1:I]_1
*[2]Num[R1C1:I]0
[3]Seq[R1C2:K]
*[1]Num[R1C1:I]0
*[2]Num[R1C1:I]1
[4]Seq[R1C2:K]
*[1]Num[R1C1:I]1
*[2]Num[R1C1:I]2
  1 0 1 0 *= 1 => b;
('<1a> ' (b -> 5)) $;
('<1b> ' (b -> _1)) $;
('<1c> ' (b -> _10)) $;
('<2a> ' (b *-> 5)) $;
('<2b> ' (b *-> _1)) $;
('<2c> ' (b *-> _10)) $;
('<3a> ' (b <- 5)) $;
('<3b> ' (b <- _1)) $;
('<3c> ' (b <- _10)) $;
('<4a> ' (b <-* 5)) $;
('<4b> ' (b <-* _1)) $;
('<4c> ' (b <-* _10)) $;
<1a> 01010
<1b> 101
<1c>
<2a> 11010
<2b> 101
<2c>
<3a> 10100
<3b> 010
<3c>
<4a> 10100
<4b> 010
<4c>
  1 0 2 0=> n;
('<1a> ' (n -> 5)) $;
('<1b> ' (n -> _1)) $;
('<1c> ' (n -> _10)) $;
('<2a> ' (n *-> 5)) $;
('<2b> ' (n *-> _1)) $;
('<2c> ' (n *-> _10)) $;
('<3a> ' (n <- 5)) $;
('<3b> ' (n <- _1)) $;
('<3c> ' (n <- _10)) $;
('<4a> ' (n <-* 5)) $;
('<4b> ' (n <-* _1)) $;
('<4c> ' (n <-* _10)) $;		 <1a> 0 1 0 2 0
<1b> 1 0 2
<1c>
<2a> 1 1 0 2 0
<2b> 1 0 2
<2c>
<3a> 1 0 2 0 0
<3b> 0 2 0
<3c>
<4a> 1 0 2 0 0
<4b> 0 2 0
<4c>
  '*ab.'=>s;
('<1a> ' (s -> 5)) $;
('<1b> ' (s -> _1)) $;
('<1c> ' (s -> _10)) $;
('<2a> ' (s *-> 5)) $;
('<2b> ' (s *-> _1)) $;
('<2c> ' (s *-> _10)) $;
('<3a> ' (s <- 5)) $;
('<3b> ' (s <- _1)) $;
('<3c> ' (s <- _10)) $;
('<4a> ' (s <-* 5)) $;
('<4b> ' (s <-* _1)) $;
('<4c> ' (s <-* _10)) $;		 <1a>  *ab.
<1b> *ab
<1c>
<2a> **ab.
<2b> *ab
<2c>
<3a> *ab.
<3b> ab.
<3c>
<4a> *ab..
<4b> ab.
<4c>
  (1 2 3)('abc') => seq;
('<1a> ' (seq -> 5 %**)) $;
('<1b> ' (seq -> _1 %**)) $;
('<1c> ' (seq -> _10 %**)) $;
('<2a> ' (seq *-> 5 %**)) $;
('<2b> ' (seq *-> _1 %**)) $;
('<3a> ' (seq <- 5 %**)) $;
('<3b> ' (seq <- _1 %**)) $;
('<3c> ' (seq <- _10 %**)) $;
('<4a> ' (seq <-* 5 %**)) $;
('<4b> ' (seq <-* _1 %**)) $;		 <1a> Seq[I167R1C5T:K]:
[1]Nil[I168R3C1:*]
[2]Nil[I168R3C1:*]
[3]Nil[I168R3C1:*]
[4]Num[I63R2C3:I]1 2 3
[5]String[I80R2C3:C]abc
<1b> Seq[I235R1C1T:K]:
[1]Num[I63R2C3:I]1 2 3
<1c> Seq[I303R1C0T:K]:
<2a> Seq[I371R1C5T:K]:
[1]Num[I63R5C3:I]1 2 3
[2]Num[I63R5C3:I]1 2 3
[3]Num[I63R5C3:I]1 2 3
[4]Num[I63R5C3:I]1 2 3
[5]String[I80R2C3:C]abc
<2b> Seq[I438R1C1T:K]:
[1]Num[I63R2C3:I]1 2 3
<3a> Seq[I505R1C5T:K]:
[1]Num[I63R2C3:I]1 2 3
[2]String[I80R2C3:C]abc
[3]Nil[I506R3C1:*]
[4]Nil[I506R3C1:*]
[5]Nil[I506R3C1:*]
<3b> Seq[I573R1C1T:K]:
[1]String[I80R2C3:C]abc
<3c> Seq[I641R1C0T:K]:
<4a> Seq[I709R1C5T:K]:
[1]Num[I63R2C3:I]1 2 3
[2]String[I80R5C3:C]abc
[3]String[I80R5C3:C]abc
[4]String[I80R5C3:C]abc
[5]String[I80R5C3:C]abc
<4b> Seq[I776R1C1T:K]:
[1]String[I80R2C3:C]abc
  $$ see case study
'Now is the time for'=> t;
t:b64 => b$;
b:r64 => r$;
Tm93IGlzIHRoZSB0aW1lIGZvcg==
Now is the time for