simon/dog-and-duck
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Everything compiles, tests pass.

Browse source
This commit is contained in:
Simon Brooke 2022-12-24 22:09:08 +00:00
parent 629f73ab4d
commit a60187eb2a
5 changed files with 86 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test/dog_and_duck/quack/quack_test.clj
View file

@ -1,11 +1,11 @@
(ns dog-and-duck.quack.quack-test
(:require [clojure.test :refer [deftest is testing]]
[dog-and-duck.quack.picky :refer [activitystreams-context-uri
context? context-key]]
[dog-and-duck.quack.quack :refer [actor? actor-type?
object? ordered-collection-page?
persistent-object?
actor-type? context? context-key
verb-type?]]
[dog-and-duck.quack.quack :refer [actor?
object? ordered-collection-page?
persistent-object?]]
[dog-and-duck.scratch.parser :refer [clean]]))
;;; Copyright (C) Simon Brooke, 2022
@ -126,13 +126,16 @@
(is (= actual expected) "A Note is not an actor"))
(let [expected false
actual (actor? (-> "resources/activitystreams-test-documents/simple0020.json" slurp clean first :actor))]
(is (= actual expected) "The Person in this file is not valid as an actor, because it lacks a context."))
(is (= actual expected) "The Person in this file is not valid as an actor, because it lacks a context, https id, and outbox."))
(let [o (assoc (-> "resources/activitystreams-test-documents/simple0020.json"
slurp
clean
first
:actor)
context-key activitystreams-context-uri)
context-key activitystreams-context-uri
:id "https://example.org/@sally"
:inbox "https://example.org/@sally/inbox"
:outbox "https://example.org/@sally/outbox")
expected true
actual (actor? o)]
(is (= actual expected) (str "The Person from this file is now valid as an actor, because it has a context." o)))))