Return to 439.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/439.html, revision 1.1

1.1     ! moko        1: @main[]
        !             2: 
        !             3: $h[ ^for[i](0;9){ $.$i[v$i]} ]
        !             4: $a[^array::copy[$h]]
        !             5: 
        !             6: 1. ^json:string[$h]
        !             7: 
        !             8: --------------- select robust tests
        !             9: 
        !            10: $o[$h]
        !            11: 2. ^json:string[^o.select[k;v](^select_hash[$k;$v])[ $.reverse(true) ]]
        !            12: 
        !            13: $o[^array::copy[$a]]
        !            14: 3. ^json:string[^o.select[k;v](^select_array_remove[$k;$v]); $.array[object] ]
        !            15: 
        !            16: $o[^array::copy[$a]]
        !            17: 4. ^json:string[^o.select[k;v](^select_array_remove[$k;$v])[ $.reverse(true) ]; $.array[object] ]
        !            18: 
        !            19: $o[^array::copy[$a]]
        !            20: 5. ^json:string[^o.select[k;v](^select_array_insert[$k;$v]); $.array[object] ]
        !            21: 
        !            22: $o[^array::copy[$a]]
        !            23: 6. ^json:string[^o.select[k;v](^select_array_insert[$k;$v])[ $.reverse(true) ]; $.array[object] ]
        !            24: 
        !            25: ---------------- foreach robust tests
        !            26: 
        !            27: $o[$h]
        !            28: 7. ^o.foreach[k;v]{ ${k}:$v
        !            29:     ^if($k eq '1'){
        !            30:        ^o.delete[1]
        !            31:     }($k eq '3'){
        !            32:        ^o.delete[4]
        !            33:     }($k eq '8'){
        !            34:        ^o.delete[9]
        !            35:     }
        !            36: }
        !            37: 
        !            38: 8. ^json:string[$o]
        !            39: 
        !            40: $o[$a]
        !            41: 9. ^o.foreach[k;v]{ ${k}:$v
        !            42:     ^if($k eq '1'){
        !            43:        ^o.remove(1)
        !            44:     }($k eq '3'){
        !            45:        ^o.remove(4)
        !            46:     }($k eq '6'){
        !            47:        ^o.insert(6)[i1;i2;i3;i4;i5;i6;i7;i8;i9;i10]
        !            48:     }($k eq '8'){
        !            49:        ^o.remove(9)
        !            50:     }
        !            51: }
        !            52: 
        !            53: 10. ^json:string[$o; $.array[object] ]
        !            54: 
        !            55: @select_hash[k;v]
        !            56:     $result(1)
        !            57:     ^if($k eq '1'){
        !            58:        ^o.delete[0]
        !            59:     }($k eq '3'){
        !            60:        ^o.delete[2]
        !            61:     }($k eq '8'){
        !            62:        ^o.delete[7]
        !            63:     }
        !            64: 
        !            65: @select_array_remove[k;v]
        !            66:     $result(1)
        !            67:     ^if($k eq '5'){
        !            68:        ^for[i](0;9){ ^o.remove(0) }
        !            69:     }
        !            70: 
        !            71: @select_array_insert[k;v]
        !            72:     $result(1)
        !            73:     ^if($k eq '5'){
        !            74:        ^o.insert(0)[i1;i2;i3;i4;i5;i6;i7;i8;i9;i10]
        !            75:     }
        !            76: }