Return to 440.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/440.html, revision 1.2

1.1       moko        1: @main[]
                      2: 
                      3: $t[^table::create{value1       value2
                      4: v11    v12
                      5: v21    v22     v23
                      6: v31    v32
                      7: v41    v42
                      8: }]
                      9: 
                     10: ----------------------- table array tests
                     11: 
                     12: ^json:string[^t.array[]]
                     13: ^json:string[^t.array[value2]]
                     14: ^json:string[^t.array{ $h[ $.v[$t.value1]] $h }]
                     15: ^json:string[^t.array{$t.value1 - $t.value2}]
                     16: 
                     17: ----------------------- table offset tests
                     18: 
                     19: ^t.offset(1)
                     20: 1. before: ^t.offset[]
                     21: ^try{
                     22:        ^t.menu{
                     23:                ^if($t.value1 eq 'v21'){
                     24:                        ^throw[;exception]
                     25:                }
                     26:        }
                     27: }{
                     28:        $exception.handled(1)
                     29: }
                     30: 1. after: ^t.offset[]
                     31: 
                     32: ^t.offset(2)
                     33: 2. before: ^t.offset[]
                     34: 
                     35: ^t.menu{
                     36:        ^t.delete[]
                     37:        ^t.delete[]
                     38:        ^break[]
                     39: }
                     40: 
                     41: 2. after offset: ^t.offset[]
                     42: 2. after count: ^t.count[]
                     43: 
                     44: ----------------------- table select robust tests
                     45: $t[^table::create{value
                     46: ^for[i](0;9){v$i
                     47: }}]
                     48: 
                     49: 3. ^json:string[$t; $.table[compact] ]
                     50: 
                     51: 4. ^json:string[^t.select(^test_insert[$t]); $.table[compact] ]
                     52: 
                     53: 5. ^json:string[$t; $.table[compact] ]
                     54: 
                     55: 6. ^json:string[^t.select(^test_delete[$t]); $.table[compact] ]
                     56: 
                     57: 7. ^json:string[$t; $.table[compact] ]
                     58: 
1.2     ! moko       59: $t1[^table::create[$t]]
        !            60: ^t1.offset(4) $t1.value[n0]
        !            61: 
        !            62: 8. ^json:string[^t1.select(^test_delete[$t1])[ $.reverse(1) ]; $.table[compact] ]
        !            63: 
        !            64: 9. ^json:string[$t1; $.table[compact] ]
        !            65: 
        !            66: 
1.1       moko       67: ----------------------- table hash robust tests
                     68: 
1.2     ! moko       69: 10. ^json:string[^t.hash{^hash_insert[$t]}]
1.1       moko       70: 
1.2     ! moko       71: 11. ^json:string[$t; $.table[compact] ]
1.1       moko       72: 
1.2     ! moko       73: 12. ^json:string[^t.hash{^hash_delete[$t]}]
1.1       moko       74: 
1.2     ! moko       75: 13. ^json:string[$t; $.table[compact] ]
1.1       moko       76: 
1.2     ! moko       77: 14. after offset: ^t.offset[]
1.1       moko       78: 
                     79: 
                     80: @test_insert[t]
                     81: $result(1)
                     82: ^if($t.value eq 'v5'){
                     83:        ^for[i](0;9){^t.insert[n^eval(9-$i)]}
                     84: }
                     85: 
                     86: @test_delete[t]
                     87: $result(1)
                     88: ^if($t.value eq 'n0'){
                     89:        ^for[i](0;9){^t.delete[]}
                     90: }
                     91: 
                     92: @hash_insert[t]
                     93: $result[$t.value - ^t.offset[]]
                     94: ^if(^t.offset[] eq '5'){
                     95:        ^for[i](0;9){^t.insert[n^eval(9-$i)]}
                     96: }
                     97: 
                     98: @hash_delete[t]
                     99: $result[$t.value]
                    100: ^if($t.value eq 'n0'){
                    101:        ^for[i](0;9){^t.delete[]}
                    102: }