Annotation of parser3/tests/memcached/001.html, revision 1.1
1.1 ! moko 1: # values: set, get, add, delete, mget
! 2: @main[]
! 3: $m[^open_memcached[]]
! 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]
! 22: 9. mget: ^show[^m.mget[pa_k1;pa_k2;pa_missing]]
! 23: $keys[^table::create{key^#0Apa_k2^#0Apa_missing}]
! 24: 10. mget table: ^show[^m.mget[$keys]]
! 25: $m.pa_tainted[^taint[<b>] <i>]
! 26: 11. languages are kept: ^untaint[html]{$m.pa_tainted}
! 27: 12. number: ^failed{$m.pa_n(5)}
! 28: 13. invalid option: ^failed{$m.pa_x[ $.value[v] $.ttl(1) ]}
! 29: 14. no value: ^failed{$m.pa_x[ $.expires(1) ]}
! 30: 15. empty key: ^failed{^m.add[;v]}
! 31: ^cleanup[]
! 32:
! 33: @cleanup[]
! 34: ^m.delete[pa_s]^m.delete[pa_e]^m.delete[pa_t]^m.delete[pa_a]^m.delete[pa_k1]^m.delete[pa_k2]^m.delete[pa_tainted]
E-mail: