xmppify 0.0.12

data/app/assets/javascripts/xmpp/strophejs-plugins/joap/spec/browserSetup.coffee

@@ -0,0 +1 @@
+(-> buster.spec.expose())()

data/app/assets/javascripts/xmpp/strophejs-plugins/joap/spec/jid.spec.coffee

@@ -0,0 +1,96 @@
+buster.spec.expose()
+
+if require?
+  JID = require('./../lib/xmpp').JID
+else if window?
+  JID = window.JID
+
+describe 'JID', ->
+
+  describe 'parsing', ->
+
+    it 'should parse a "domain" JID', ->
+      j = new JID 'd'
+      assert.equals j.user,     null
+      assert.equals j.domain,   'd'
+      assert.equals j.resource, null
+
+    it 'should parse a "user@domain" JID', ->
+      j = new JID('u@d')
+      assert.equals(j.user, 'u')
+      assert.equals(j.domain, 'd')
+      assert.equals(j.resource, null)
+
+    it 'should parse a "domain/resource" JID', ->
+      j = new JID('d/r')
+      assert.equals(j.user, null)
+      assert.equals(j.domain, 'd')
+      assert.equals(j.resource, 'r')
+
+    it  'should parse a "user@domain/resource" JID', ->
+      j = new JID 'u@d/r'
+      assert.equals(j.user, 'u')
+      assert.equals(j.domain, 'd')
+      assert.equals(j.resource, 'r')
+
+    it 'should parse an internationalized domain name as unicode', ->
+      j = new JID('öko.de')
+      assert.equals(j.domain, 'öko.de')
+
+    it 'should parse an internationalized domain name as ascii/punycode', ->
+      j = new JID 'xn--ko-eka.de'
+      assert.equals j.domain, 'öko.de'
+
+    it 'should parse a JID with punycode', ->
+      j = new JID('Сергей@xn--lsa92diaqnge.xn--p1ai')
+      assert.equals j.user, 'сергей'
+      assert.equals j.domain, 'приме́р.рф'
+
+  describe 'serialization', ->
+    it 'should serialize a "domain" JID', ->
+      j = new JID(null, 'd')
+      assert.equals(j.toString(), 'd')
+
+    it 'should serialize a "user@domain" JID', ->
+      j = new JID('u', 'd')
+      assert.equals(j.toString(), 'u@d')
+
+    it 'should serialize a "domain/resource" JID', ->
+       j = new JID(null, 'd', 'r')
+       assert.equals(j.toString(), 'd/r')
+
+    it 'should serialize a "user@domain/resource" JID', ->
+      j = new JID('u', 'd', 'r')
+      assert.equals(j.toString(), 'u@d/r')
+
+  describe 'equality', ->
+
+    it 'should parsed JIDs should be equal', ->
+      j1 = new JID('foo@bar/baz')
+      j2 = new JID('foo@bar/baz')
+      assert.equals(j1.equals(j2), true)
+
+    it 'should parsed JIDs should be not equal', ->
+      j1 = new JID('foo@bar/baz')
+      j2 = new JID('quux@bar/baz')
+      assert.equals(j1.equals(j2), false)
+
+    it 'should should ignore case in user', ->
+      j1 = new JID('foo@bar/baz')
+      j2 = new JID('FOO@bar/baz')
+      assert.equals(j1.equals(j2), true)
+
+    it 'should should ignore case in domain', ->
+       j1 = new JID('foo@bar/baz')
+       j2 = new JID('foo@BAR/baz')
+       assert.equals(j1.equals(j2), true)
+
+    it 'should should not ignore case in resource', ->
+      j1 = new JID('foo@bar/baz')
+      j2 = new JID('foo@bar/Baz')
+      assert.equals(j1.equals(j2), false)
+
+    it 'should should ignore international caseness', ->
+      j1 = new JID('föö@bär/baß')
+      j2 = new JID('fÖö@BÄR/baß')
+      assert.equals(j1.equals(j2), true)

data/app/assets/javascripts/xmpp/strophejs-plugins/joap/spec/strophe.joap.spec.coffee

@@ -0,0 +1,461 @@
+mockConnection = ->
+  c = new Strophe.Connection()
+  c.authenticated = true
+  c.jid = 'n@d/r2'
+  c._processRequest = ->
+  c._changeConnectStatus Strophe.Status.CONNECTED
+  c
+
+str = (builder) ->
+  if builder.tree
+    return Strophe.serialize(builder.tree())
+  Strophe.serialize(builder)
+
+spyon = (obj, method, cb) ->
+  sinon.stub obj, method, (res) ->
+    cb.call @, ($ str res)
+
+receive = (c,req) ->
+  c._dataRecv(createRequest(req))
+  expect(c.send).toHaveBeenCalled()
+
+createRequest = (iq) ->
+  iq = iq.tree() if typeof iq.tree is "function"
+  req = new Strophe.Request(iq, ->)
+  req.getResponse = ->
+    env = new Strophe.Builder('env', {type: 'mock'}).tree()
+    env.appendChild(iq)
+    env
+  req
+
+describe "strophe.joap plugin", ->
+
+  before ->
+    @c = mockConnection()
+    @successHandler = sinon.spy()
+    @errorHandler   = sinon.spy()
+
+  it "provides connection.joap", ->
+    (expect window.Strophe).toBeDefined()
+    (expect typeof @c.joap).toEqual "object"
+
+  it "has a method for creating a new connection to an  object server", ->
+    server = new @c.joap.JOAPServer "service.example.com"
+    (expect server).toBeDefined()
+
+  describe "object server", ->
+
+    server = null
+
+    before ->
+      server = new @c.joap.JOAPServer "service.example.com"
+
+    it "can create an instance", (done) ->
+
+      spyon @c, "send", (iq) ->
+        (expect iq.attr "to").toEqual "user@service.example.com"
+        (expect iq.attr "type").toEqual "set"
+
+        child = $ iq.children()[0]
+
+        (expect child.attr "xmlns").toEqual "jabber:iq:joap"
+        (expect child[0].tagName).toEqual "ADD"
+        (expect child.children().length).toEqual 2
+
+        foo = $ child.children()[0]
+        pass = $ child.children()[1]
+
+        (expect foo[0].tagName).toEqual "ATTRIBUTE"
+        (expect pass[0].tagName).toEqual "ATTRIBUTE"
+        (expect foo.children().length).toEqual 2
+        (expect foo.children()[0].tagName).toEqual "NAME"
+        (expect foo.children()[1].tagName).toEqual "VALUE"
+        (expect ($ "string", foo).text()).toEqual "foo"
+        (expect pass.children().length).toEqual 2
+        (expect child.children().length).toEqual 2
+        (expect ($ "i4", pass).text()).toEqual "2"
+        done()
+
+      server.add "user", {name: "foo", pass: 2}, (iq, err, address) ->
+
+    it "can parse an error message", (done) ->
+      spyon @c, "send", (req) =>
+        res = $iq({type:'error', id: req.attr 'id'})
+          .c("add").c("error", code:403).t("My error message")
+        @c._dataRecv createRequest(res)
+      server.add "User", {name: "foo", pass: 2}, (iq, err, instanceId) ->
+        (expect err.message).toEqual "My error message"
+        (expect err.code).toEqual 403
+        done()
+
+    it "can parse an 'service-unavailable' error", (done) ->
+      spyon @c, "send", (req) =>
+        res = $iq({type:'error', id: req.attr 'id'})
+          .c("add").c("error", code:503)
+        @c._dataRecv createRequest(res)
+      server.add "User", {name: "foo", pass: 2}, (iq, err, instanceId) ->
+        (expect err.code).toEqual 503
+        (expect err.message).toEqual "JOAP server is unavailable"
+        done()
+
+    it "can parse the new instance id", (done) ->
+      spyon @c, "send", (req) =>
+        res = $iq({type:'result', id: req.attr 'id'})
+          .c("add").c("newAddress").t("user@example.org/markus")
+        @c._dataRecv createRequest(res)
+      server.add "User", {name: "foo", pass: 2}, (iq, err, instanceId) ->
+        (expect instanceId).toEqual "user@example.org/markus"
+        done()
+
+    it "can add a new instance addressed by a full JID", (done) ->
+      spyon @c, "send", (req) =>
+        res = $iq({type:'result', id: req.attr 'id'})
+          .c("add").c("newAddress").t("user@service.example.org/markus")
+        @c._dataRecv createRequest(res)
+      @c.joap.add "user@service.example.org", {name: "foo", pass: 2}, (iq, err, instanceId) ->
+        (expect instanceId).toEqual "user@service.example.org/markus"
+        done()
+
+    it "can edit an instance", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "user@service.example.com/myId"
+        (expect iq.attr "type").toEqual "set"
+        (expect ($ "edit",iq).attr "xmlns").toEqual "jabber:iq:joap"
+        ($ "attribute",iq).each ->
+          (expect ($ @).children().length).toEqual 2
+
+        res = $iq({type:'result', id: iq.attr 'id'}).c("edit")
+        @c._dataRecv createRequest(res)
+
+      server.edit "User", "myId",{ name:"x", age: 33 },(iq, err) ->
+        (expect typeof iq).toEqual "object"
+        (expect err).toBeFalsy()
+        done()
+
+    it "can edit an instance addressed by a full JID", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "user@service.example.com/myId"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("edit")
+        @c._dataRecv createRequest(res)
+
+      @c.joap.edit "user@service.example.com/myId",{ name:"y", age: 66 },(iq, err) ->
+        (expect typeof iq).toEqual "object"
+        (expect err).toBeFalsy()
+        done()
+
+    it "can read an instance", (done) ->
+      spyon @c, "sendIQ", (iq) ->
+        (expect iq.attr "to").toEqual "user@service.example.com/myId"
+        (expect iq.attr "type").toEqual "get"
+        (expect ($ "read",iq).attr "xmlns").toEqual "jabber:iq:joap"
+        done()
+      server.read "User", "myId", (iq, err, obj) ->
+
+    it "can read from a full JID", (done) ->
+      spyon @c, "sendIQ", (iq) ->
+        (expect iq.attr "to").toEqual "user@service.example.com/myId"
+        done()
+      @c.joap.read "user@service.example.com/myId", (iq, err, obj) ->
+
+    it "can parse the read attributes", (done) ->
+      spyon @c, "send", (req) =>
+        res = $iq({type:'result', id: req.attr 'id'})
+          .c("read")
+            .c("attribute")
+              .c("name").t("prop").up()
+              .c("value").c("int").t('5').up().up()
+            .c("attribute")
+              .c("name").t("obj").up()
+              .c("value").c("struct")
+                .c("member")
+                  .c("name").t("foo").up()
+                  .c("value").c("string").t("bar").up().up().up().up().up()
+            .c("attribute")
+              .c("name").t("arr").up()
+              .c("value")
+                .c("array")
+                  .c("data")
+                    .c("value").c("boolean").t('1').up().up()
+                    .c("value").c("double").t("-0.5")
+
+        @c._dataRecv createRequest(res)
+
+      server.read "User", "id",(iq, err, obj) ->
+        (expect obj.prop).toEqual 5
+        (expect obj.obj.foo).toEqual "bar"
+        (expect obj.arr).toEqual [ true, -0.5 ]
+        done()
+
+    it "can delete an instance", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "user@service.example.com/myId"
+        (expect iq.attr "type").toEqual "set"
+        (expect ($ "delete",iq).attr "xmlns").toEqual "jabber:iq:joap"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("delete")
+        @c._dataRecv createRequest(res)
+
+      server.delete "User", "myId", (iq, err) ->
+        (expect typeof iq).toEqual "object"
+        (expect err).toBeFalsy()
+        done()
+
+    it "can delete an instance addressed by a full JID", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "user@service.example.com/myId"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("delete")
+        @c._dataRecv createRequest(res)
+
+      @c.joap.delete "user@service.example.com/myId", (iq, err) ->
+        (expect typeof iq).toEqual "object"
+        (expect err).toBeFalsy()
+        done()
+
+    it "can search instances", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "user@service.example.com"
+        (expect iq.attr "type").toEqual "get"
+        (expect ($ "search",iq).attr "xmlns").toEqual "jabber:iq:joap"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("search")
+          .c("item").t("Class@service.example.com/id0").up()
+          .c("item").t("Class@service.example.com/id2").up()
+        @c._dataRecv createRequest(res)
+
+      server.search "User", (iq, err, result) ->
+        (expect typeof iq).toEqual "object"
+        (expect result[0]).toEqual "class@service.example.com/id0"
+        (expect result[1]).toEqual "class@service.example.com/id2"
+        done()
+
+    it "can search instances addressed by a full JID", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "user@service.example.com"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("search")
+          .c("item").t("Class@service.example.com/id0").up()
+        @c._dataRecv createRequest(res)
+
+      @c.joap.search "user@service.example.com", (iq, err, result) ->
+        (expect typeof iq).toEqual "object"
+        (expect result[0]).toEqual "class@service.example.com/id0"
+        done()
+
+    it "can send a describe request to a class", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "class@service.example.com"
+        (expect iq.attr "type").toEqual "get"
+        (expect ($ "describe", iq).attr "xmlns").toEqual "jabber:iq:joap"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("describe")
+          .c("desc", "xml:lang":"en-US").t("Class description").up()
+          .c("attributeDescription", { writeable:false, required:true })
+            .c("name").t("myAttribute").up()
+            .c("type").t("int").up()
+            .c("desc", "xml:lang":"en-US").t("Foo").up()
+            .c("desc", "xml:lang":"de-DE").t("Alles mögliche").up().up()
+          .c("methodDescription", { allocation:"class"})
+            .c("name").t("methodname").up()
+            .c("returnType").t("boolean").up()
+            .c("desc", "xml:lang":"en-US").t("myAttribute").up().up()
+          .c("superclass").t("SuperClass@service.example.com").up()
+          .c("timestamp").t("2003-01-07T20:08:13Z").up()
+        @c._dataRecv createRequest(res)
+
+      server.describe "Class", (iq, err, result) ->
+        (expect typeof iq).toEqual "object"
+        (expect typeof result).toEqual "object"
+        (expect result.desc["en-US"]).toEqual "Class description"
+        (expect result.attributes.myAttribute.type).toEqual "int"
+        (expect result.attributes.myAttribute.desc["en-US"]).toEqual "Foo"
+        (expect result.superclass).toEqual "superclass@service.example.com"
+        done()
+
+    it "can send a describe request to the server", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "service.example.com"
+        done()
+      server.describe (iq, err, result) ->
+
+    it "can send a describe request to the server", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "service.example.com"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("describe")
+          .c("desc", "xml:lang":"en-US").t("Server description").up()
+        @c._dataRecv createRequest(res)
+      @c.joap.describe "service.example.com" ,(iq, err, result) ->
+        done()
+
+    it "can send a describe requests to an instance", (done) ->
+      spyon @c, "send", (iq) =>
+        (expect iq.attr "to").toEqual "class@service.example.com/id"
+        res = $iq({type:'result', id: iq.attr 'id'}).c("describe")
+          .c("desc", "xml:lang":"en-US").t("Instance description").up()
+        @c._dataRecv createRequest(res)
+      server.describe "Class", "id", (iq, err, result) ->
+        done()
+
+    describe "joap object", ->
+
+      id = "class@service.example.com/id"
+
+      beforeEach ->
+        @obj = new @c.joap.JOAPObject id
+
+      it "can be created", ->
+
+        joapObj = new @c.joap.JOAPObject id
+        (expect joapObj.jid.toString()).toEqual id
+        (expect typeof joapObj.read).toEqual "function"
+        (expect typeof joapObj.edit).toEqual "function"
+        (expect typeof joapObj.describe).toEqual "function"
+
+      it "can read the remote state", (done) ->
+
+        spyon @c, "send", (req) =>
+          res = $iq({type:'result', id: req.attr 'id'})
+            .c("read")
+              .c("attribute")
+                .c("name").t("prop").up()
+                .c("value").c("int").t('5').up().up()
+
+          @c._dataRecv createRequest(res)
+
+        @obj.read (iq, err, obj) ->
+          (expect obj.prop).toEqual 5
+          done()
+
+      it "can edit a property", (done) ->
+        spyon @c, "send", (iq) =>
+          (expect ($ "edit",iq).attr "xmlns").toEqual "jabber:iq:joap"
+          (expect ($ "value",iq).text()).toEqual '33'
+
+          res = $iq({type:'result', id: iq.attr 'id'}).c("edit")
+          @c._dataRecv createRequest(res)
+
+        @obj.edit { age: 33 },(iq, err) ->
+          (expect typeof iq).toEqual "object"
+          (expect err).toBeFalsy()
+          done()
+
+      it "provied the describe method", (done) ->
+        spyon @c, "send", (iq) =>
+          (expect iq.attr "to").toEqual "class@service.example.com/id"
+          res = $iq({type:'result', id: iq.attr 'id'}).c("describe")
+            .c("desc", "xml:lang":"en-US").t("Instance description").up()
+          @c._dataRecv createRequest(res)
+        @obj.describe (iq, err, result) -> done()
+
+    describe "joap class", ->
+
+      clz = null
+
+      beforeEach ->
+        clz = new @c.joap.JOAPClass "class@service.example.com"
+
+      it "can be created", ->
+
+        (expect clz.jid.toString()).toEqual "class@service.example.com"
+        (expect typeof clz.read).toEqual "function"
+        (expect typeof clz.edit).toEqual "function"
+        (expect typeof clz.delete).toEqual "function"
+        (expect typeof clz.add).toEqual "function"
+        (expect typeof clz.search).toEqual "function"
+        (expect typeof clz.searchAndRead).toEqual "function"
+
+      it "can read an instance", (done) ->
+        spyon @c, "send", (req) =>
+          res = $iq({type:'result', id: req.attr 'id'})
+            .c("read")
+              .c("attribute")
+                .c("name").t("prop").up()
+                .c("value").c("int").t('3').up().up()
+
+          @c._dataRecv createRequest(res)
+
+        clz.read "123", (iq, err, obj) ->
+          (expect obj.prop).toEqual 3
+          done()
+
+      it "can search instances", (done) ->
+        spyon @c, "send", (iq) =>
+          res = $iq({type:'result', id: iq.attr 'id'}).c("search")
+            .c("item").t("class@service.example.com/id0").up()
+            .c("item").t("Class@service.example.com/id2").up()
+
+          @c._dataRecv createRequest(res)
+
+        clz.search (iq, err, ids) ->
+          (expect ids).toEqual [
+            "class@service.example.com/id0"
+            "class@service.example.com/id2" ]
+          done()
+
+      it "can search and read instances", (done) ->
+        x = 0
+        spyon @c, "send", (iq) =>
+          switch ($ iq).children()[0].tagName.toLowerCase()
+            when "search"
+              res = $iq({type:'result', id: iq.attr 'id'}).c("search")
+                .c("item").t("class@service.example.com/id0").up()
+                .c("item").t("class@service.example.com/id2").up()
+              @c._dataRecv createRequest(res)
+
+            when "read"
+              x++
+              res = $iq({type:'result', id: iq.attr 'id'})
+                .c("read")
+                  .c("attribute")
+                    .c("name").t("prop").up()
+                    .c("value").c("int").t(x.toString()).up().up()
+              @c._dataRecv createRequest(res)
+
+        clz.searchAndRead (err, objects) ->
+          (expect objects instanceof Array).toBe true
+          (expect objects.length).toBe 2
+          (expect objects[0].prop).toBe 1
+          (expect objects[1].prop).toBe 2
+          done()
+
+      it "can edit a property", (done) ->
+        spyon @c, "send", (iq) =>
+          (expect ($ "edit",iq).attr "xmlns").toEqual "jabber:iq:joap"
+
+          res = $iq({type:'result', id: iq.attr 'id'}).c("edit")
+          @c._dataRecv createRequest(res)
+
+        clz.edit "//432", { age: 33 },(iq, err) ->
+          (expect typeof iq).toEqual "object"
+          (expect err).toBeFalsy()
+          done()
+
+    describe "joap rpc", ->
+
+      it "can send a request to an instance", (done) ->
+        spyon @c, "send", (iq) =>
+          (expect ($ "query", iq).attr "xmlns").toEqual "jabber:iq:rpc"
+          call =  $ "methodCall", iq
+          (expect call.length).toEqual 1
+          (expect ($ "methodName", call).text()).toEqual "testMethod"
+          params = $ "params", call
+          (expect params.length).toEqual 1
+          res = $iq({type:'result', id: iq.attr 'id'}).c("query")
+            .c("methodResponse").c("params").c("param").c("value").c("int").t("2")
+          @c._dataRecv createRequest(res.tree())
+
+        server.methodCall "testMethod", "Class", "instance", [1, "x", false], (iq, err, result) ->
+          (expect err?).toEqual false
+          (expect result).toBe 2
+          done()
+
+      it "can send a request without parameters", (done) ->
+        spyon @c, "send", (iq) =>
+          call =  $ "methodCall", iq
+          (expect call.length).toEqual 1
+          (expect ($ "methodName", call).text()).toEqual "myFunction"
+
+          res = $iq({type:'result', id: iq.attr 'id'}).c("query")
+            .c("methodResponse").c("params").c("param").c("value").c("int").t("3")
+          @c._dataRecv createRequest(res.tree())
+
+        server.methodCall "myFunction", (iq, err, result) ->
+          (expect err?).toEqual false
+          console.log result
+          (expect result).toBe 3
+          done()