Return to 001.html CVS log

Up to [parser3project] / parser3 / tests / memcached

Annotation of parser3/tests/memcached/001.html, revision 1.3

1.1       moko        1: # values: set, get, add, delete, mget
                      2: @main[]
1.2       moko        3: $m[^memcached::open[$server]]
1.1       moko        4: ^cleanup[]
                      5: $m.pa_s[hello]
                      6: 1. get: $m.pa_s
                      7: $v[$m.pa_missing]
                      8: 2. missing: ^if($v is void){void}
                      9: $m.pa_e[]
                     10: $v[$m.pa_e]
                     11: 3. empty string: "$v" $v.CLASS_NAME
                     12: $m.pa_t[ $.value[with expires] $.expires(60) ]
                     13: 4. value hash: $m.pa_t
                     14: 5. add new: ^show(^m.add[pa_a;first])
                     15: 6. add existing: ^show(^m.add[pa_a;second]) $m.pa_a
                     16: ^m.delete[pa_a]
                     17: $v[$m.pa_a]
                     18: 7. deleted: ^if($v is void){void}
                     19: 8. delete missing: ^m.delete[pa_a]ok
                     20: $m.pa_k1[one]
                     21: $m.pa_k2[two]
1.3     ! moko       22: 
1.1       moko       23: 9. mget: ^show[^m.mget[pa_k1;pa_k2;pa_missing]]
                     24: $keys[^table::create{key^#0Apa_k2^#0Apa_missing}]
                     25: 10. mget table: ^show[^m.mget[$keys]]
                     26: $m.pa_tainted[^taint[<b>] <i>]
                     27: 11. languages are kept: ^untaint[html]{$m.pa_tainted}
                     28: 12. number: ^failed{$m.pa_n(5)}
                     29: 13. invalid option: ^failed{$m.pa_x[ $.value[v] $.ttl(1) ]}
                     30: 14. no value: ^failed{$m.pa_x[ $.expires(1) ]}
                     31: 15. empty key: ^failed{^m.add[;v]}
1.3     ! moko       32: 
        !            33: $arr[pa_k1;pa_k2;pa_missing]
        !            34: 16. mget array: ^show[^m.mget[$arr]]
        !            35: 17. mget mixed: ^show[^m.mget[pa_k1;$keys]] ^show[^m.mget[$keys;pa_k1]]
        !            36: $holes[^array::create[pa_k1]] $holes.3[pa_k2]
        !            37: 18. mget array with holes: ^show[^m.mget[$holes]]
        !            38: 19. mget empty array: ^show[^m.mget[^array::create[]]]
        !            39: $arr.1[ $.k[v] ]
        !            40: 20. array element is not a string: ^failed{^m.mget[$arr]}
        !            41: 21. param is not a key: ^failed{^m.mget[ $.k[v] ]}
        !            42: 
1.1       moko       43: ^cleanup[]
                     44: 
1.2       moko       45: @cleanup[][keys;key]
                     46: $keys[pa_s;pa_e;pa_t;pa_a;pa_k1;pa_k2;pa_tainted]
                     47: $result[^keys.foreach[;key]{^m.delete[$key]}]