Compare commits

..

No commits in common. "92770f4eb27a505858b0a12d42811c7a79b0d304" and "44862216eb56d4b71625c60d63737a6b50093b9e" have entirely different histories.

4 changed files with 18 additions and 26 deletions

View file

@ -20,18 +20,20 @@
;http://www.w3.org/ns/activitystreams#attachment
(s/def ::attachment
(s/and
::owl/ObjectProperty
::Class
::Link
::Object))
::Object
::owl/ObjectProperty))
;http://www.w3.org/ns/activitystreams#result
;TODO: definition in progress
;How should we translate this?
;rdfs:range [
; a owl:Class ;
; owl:unionOf ( as:Object as:Link )
; ]
(s/def ::result
(s/and
::owl/ObjectProperty
::Class
::Object
::Link))
(s/and ::owl/ObjectProperty))
;http://www.w3.org/ns/activitystreams#Activity
;TODO: definition in progress

View file

@ -5,6 +5,13 @@
[clojure.spec.alpha :as s]
[org.domaindrivenarchitecture.activity-pub-poc.activitystreams2-legacy :as sut]))
(deftest id-test
(is (s/valid? ::sut/id "https://social.bla/alyssa/status/RANDOMHASH")))
;(deftest Note-test
; (is (s/valid?

View file

@ -7,11 +7,4 @@
(deftest shoult-test-spec-for-having-functional-property
(is (sut/is-functional-property? ::sut/id))
(is (not (sut/is-functional-property? ::sut/Like))))
(deftest id-test
(is (s/valid? ::sut/id "https://social.bla/alyssa/status/RANDOMHASH"))
(is (not (s/valid? ::sut/id nil)))
(is (not (s/valid? ::sut/id 2)))
(is (not (s/valid? ::sut/id "no-uri")))
)
(is (not (sut/is-functional-property? ::sut/Like))))

View file

@ -1,11 +1 @@
{
"@context": "https://www.w3.org/ns/activitystreams",
"id": "https://social.bla/alyssa#likes/RANDOMHASH",
"type": "Like",
"to": [
"https://chatty.bla/ben",
"https://chatty.bla/gen"
],
"actor": "https://social.bla/alyssa",
"object": "https://chatty.bla/ben/posts/234s23-2g34234-2hhj536"
}
{"@context":"https://www.w3.org/ns/activitystreams","id":"https://social.bla/alyssa#likes/RANDOMHASH","type":"Like","to":["https://chatty.bla/ben","https://chatty.bla/gen"],"actor":"https://social.bla/alyssa","object":"https://chatty.bla/ben/posts/234s23-2g34234-2hhj536"}