Annotation of parser3/tests/440.html, revision 1.1
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:
! 59: ----------------------- table hash robust tests
! 60:
! 61: 8. ^json:string[^t.hash{^hash_insert[$t]}]
! 62:
! 63: 9. ^json:string[$t; $.table[compact] ]
! 64:
! 65: 10. ^json:string[^t.hash{^hash_delete[$t]}]
! 66:
! 67: 11. ^json:string[$t; $.table[compact] ]
! 68:
! 69: 12. after offset: ^t.offset[]
! 70:
! 71:
! 72: @test_insert[t]
! 73: $result(1)
! 74: ^if($t.value eq 'v5'){
! 75: ^for[i](0;9){^t.insert[n^eval(9-$i)]}
! 76: }
! 77:
! 78: @test_delete[t]
! 79: $result(1)
! 80: ^if($t.value eq 'n0'){
! 81: ^for[i](0;9){^t.delete[]}
! 82: }
! 83:
! 84: @hash_insert[t]
! 85: $result[$t.value - ^t.offset[]]
! 86: ^if(^t.offset[] eq '5'){
! 87: ^for[i](0;9){^t.insert[n^eval(9-$i)]}
! 88: }
! 89:
! 90: @hash_delete[t]
! 91: $result[$t.value]
! 92: ^if($t.value eq 'n0'){
! 93: ^for[i](0;9){^t.delete[]}
! 94: }
E-mail: