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.
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 |
|
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 |