Annotation of parser3/tests/407.html, revision 1.3
1.1 moko 1: # based on ^table:select[] test in 262.html
2:
3: $log[^table::create{cpu url
4: 0.2200 /novosibirsk/retail/
5: 0.1600 /nizhninovgorod/
6: 0.0200 /_/rss/_rss.html
7: 0.2233 /retail/credit/.../
8: 0.0000 /_goto.html
9: 0.1500 /sme/accounts/software/
10: 0.1700 /ufa/
11: 0.0100 /address/
12: 0.1367 /omsk/atm/omsk/.../
13: 0.1833 /sochi/retail/cards/.../
14: 0.0033 /
15: 0.1533 /corporate/loans/
16: 0.0100 /retail/
17: 0.0033 /peterburg/
18: 0.1533 /perm/
19: }]
20:
21: $log[^log.hash[url;cpu; $.type[string] ]]
22:
23: Hit:
24: $hit[^log.select[;cpu]($cpu<0.05)]
25: ^hit.foreach[url;]{$url}[^#0A]
26:
27: Limit:
28: $hit[^log.select[;cpu]($cpu<0.05)[ $.limit(2) ]]
29: ^hit.foreach[url;]{$url}[^#0A]
30:
31: $hit[^log.select[;cpu]($cpu<0.05)[ $.limit(-1) ]]
32: ^hit.foreach[url;]{$url}[^#0A]
33:
34: Short:
35: $short[^log.select[url;](^url.length[]<7)]
36: ^short.foreach[url;]{$url}[^#0A]
37:
38: Reverse test:
1.2 moko 39: $h[^hash::create[$log] $._default[-]]
1.3 ! moko 40: default before: "$h.404"
1.2 moko 41: $h[^h.reverse[]]
1.3 ! moko 42: default after: "$h.404"
1.2 moko 43: ^json:string[$h]
1.1 moko 44:
1.3 ! moko 45: $h[^h.select[;](true)[ $.default(true) $.limit(1) ]]
! 46: ^json:string[$h]
! 47: default after select: "$h.404"
! 48: $h[^h.select[;](true)]
! 49: ^json:string[$h]
! 50: default after another select: "$h.404"
! 51:
1.1 moko 52: Hit:
53: $hit[^log.select[;cpu]($cpu<0.05)[ $.reverse(true) ]]
54: ^hit.foreach[url;]{$url}[^#0A]
55:
56: Limit:
57: $hit[^log.select[;cpu]($cpu<0.05)[ $.limit(2) $.reverse(true) ]]
58: ^hit.foreach[url;]{$url}[^#0A]
59:
60: Short:
61: $short[^log.select[url;](^url.length[]<7)[ $.reverse(true) ]]
62: ^short.foreach[url;]{$url}[^#0A]
E-mail: