1 Q = require 'q'

     2 Http = require 'q-io/http'

     3 Apps = require 'q-io/http-apps'

     4 bunyan = require 'bunyan'

     5 

     6 log = bunyan.createLogger {

     7   name: 'asa-test-server'

     8   level: 'debug'

     9 }

    10 

    11 route = Apps.Branch {

    12   'ok': (rq,rs) => {

    13     status: 200

    14     headers: {}

    15     data:

    16       result: 'ok'

    17       request:

    18         path: rq.path

    19         pathInfo: rq.pathInfo

    20       response: rs

    21   }

    22   'post': Apps.Method {

    23     'POST': new Apps.Chain().use(Apps.JsonRequest).use(() => (o, rq, rs) => {

    24       status: 200

    25       headers: {}

    26       data:

    27         post: o

    28         request:

    29           path: rq.path

    30           pathInfo: rq.pathInfo

    31         response: rs

    32     }).end()

    33   }, Apps.methodNotAllowed

    34 }

    35 

    36 app = Apps.Chain().use(() => Apps.HandleJsonResponses(route, null, "  "))

    37   .end()

    38 

    39 Http.Server(app).listen(3000)

    40 

    41 # vim: et ts=2 sw=2