Return to 246.html CVS log

Up to [parser3project] / parser3 / tests

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

1.2     ! misha       1: @main[]
1.1       misha       2: $h[^hash::create[]]
                      3: ^first_and_last[Empty hash (^$h[^^hash::create[]]);$h]
                      4: 
                      5: $h.1[a]
                      6: ^first_and_last[One element was added (^$h.1[a]);$h]
                      7: 
                      8: ^h.delete[1]
                      9: ^first_and_last[One element was deleted (^^h.delete[1]);$h]
                     10: 
                     11: $h.1[a]
                     12: ^first_and_last[One element was added (^$h.1[a]);$h]
                     13: 
                     14: $h[
                     15:        $.1[a]
                     16:        $.2[b]
                     17:        $.3[c]
                     18:        $.4[d]
                     19:        $.5[e]
                     20: ]
                     21: ^first_and_last[Hash with 5 elements (^$h[ ^$.1[a] ^$.2[b] ^$.3[c] ^$.4[d] ^$.5[e] ]);$h]
                     22: 
                     23: ^h.delete[5]
                     24: ^first_and_last[The last element was deleted (^^h.delete[5]);$h]
                     25: 
                     26: ^h.delete[1]
                     27: ^first_and_last[The first element was deleted (^^h.delete[1]);$h]
                     28: 
                     29: $h.5[e]
                     30: ^first_and_last[One element was added at the end (^$h.5[e]);$h]
                     31: 
                     32: $h.3[cc]
                     33: ^first_and_last[One element was added at the middle (^$h.3[cc]);$h]
                     34: 
                     35: <h3>_at on hash with 5 elements (^$h[ ^$.1[a] ^$.2[b] ^$.3[c] ^$.4[d] ^$.5[e] ])</h3>
                     36: $h[
                     37:        $.1[a]
                     38:        $.2[b]
                     39:        $.3[c]
                     40:        $.4[d]
                     41:        $.5[e]
                     42: ]
1.2     ! misha      43: ^at(0)
        !            44: ^at(1)
        !            45: ^at(2)
        !            46: ^at(3)
        !            47: ^at(4)
        !            48: 
        !            49: <br />
        !            50: ^at(-1)
        !            51: ^at(-2)
        !            52: ^at(-3)
        !            53: ^at(-4)
        !            54: ^at(-5)
        !            55: 
        !            56: <br />
        !            57: ^at(0)[key]
        !            58: ^at(1)[key]
        !            59: ^at(2)[key]
        !            60: ^at(3)[key]
        !            61: ^at(4)[key]
        !            62: 
        !            63: <br />
        !            64: ^at(0)[value]
        !            65: ^at(1)[value]
        !            66: ^at(2)[value]
        !            67: ^at(3)[value]
        !            68: ^at(4)[value]
        !            69: 
        !            70: <br />
        !            71: ^at(0)[hash]
        !            72: ^at(1)[hash]
        !            73: ^at(2)[hash]
        !            74: ^at(3)[hash]
        !            75: ^at(4)[hash]
        !            76: 
        !            77: <br />
        !            78: # check if values preserve tainting. keys are always lost tainting
        !            79: <h3>The first element was replaced (^$h.1[b&b])</h3>
        !            80: $h.1[b&b]
        !            81: ^^h._at[first;hash]=^print[^h._at[first;hash]]<br />
        !            82: ^at(0)[key]
        !            83: ^at(0)[value]
        !            84: ^at(0)[hash]
        !            85: <h3>One element was added at the end (^$h.[c&c][^^taint[d&d]])</h3>
        !            86: $h.[c&c][^taint[d&d]]
        !            87: ^at(5)[key]
        !            88: ^at(5)[value]
        !            89: ^at(5)[hash]
        !            90: ^^h._at[last;hash]=^print[^h._at[last;hash]]<br />
        !            91: 
        !            92: <br />
        !            93: ^do[^^h._at[]]{must fail^h._at[]}
        !            94: ^do[^^h._at[first^;key^;hren]]{must fail^h._at[first;key;hren]}
        !            95: ^do[^^h._at(1){code}]{must fail^h._at(1){code}}
        !            96: ^do[^^h._at(1)(true)]{must fail^h._at(1)(true)}
        !            97: ^do[^^h._at[hren]]{must fail^h._at[hren]}
        !            98: ^do[^^h._at[first][hren]]{must fail^h._at[first][hren]}
        !            99: ^do[^^h._at[last][hren]]{must fail^h._at[last][hren]}
        !           100: ^do[^^h._at(1)[hren]]{must fail^h._at(1)[hren]}
        !           101: 
        !           102: @at[i;type]
        !           103: ^^h._at($i)^if(def $type){[$type]}=^print[^if(def $type){^h._at($i)[$type]}{^h._at($i)}]<br />
1.1       misha     104: 
                    105: @first_and_last[sTitle;h]
                    106: ^if(def $sTitle){<h3>$sTitle</h3>}
1.2     ! misha     107: first:last='^h._at[first]':'^h._at[last;value]'<br />
        !           108: first_key:last_key='^h._at[first;key]':'^h._at[last;key]'<br />
        !           109: 
        !           110: @do[label;code]
        !           111: $label=^try{${code}}{$exception.handled(true)<b>$exception.comment</b>}<br />
        !           112: 
        !           113: @print[u][k;v]
        !           114: ^if($u is "hash"){
        !           115:        $result[^u.foreach[k;v]{'$k':'$v'}[, ]]
        !           116: }{
        !           117:        $result[$u]
        !           118: }