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: