test-1.scm (634B)
1 (new-topic "default") 2 ; -> 1 3 (new-subject "default" "foo") 4 ; -> 1 5 (new-subject "default" "bar") 6 ; -> 2 7 (new-subject "default" "meow") 8 ; -> 3 9 (new-object "default" "01") 10 ; -> 1 11 (new-object "default" "02") 12 ; -> 2 13 (new-object "default" "03") 14 ; -> 3 15 (new-object "default" "04") 16 ; -> 4 17 (new-object "default" "05") 18 ; -> 5 19 (set-subject-pref "default" "bar" '(("01" . "4"))) 20 ; -> (1) 21 (set-subject-pref "default" "foo" '(("01" . "2") ("02" . "4") ("03" . "1") ("04" . "3") ("05" . "5"))) 22 ; -> (2 3 4 5 6) 23 (set-subject-pref "default" "meow" '()) 24 ; -> () 25 (set-config "json-prefix" "test-") 26 (set-config "server-port" 9090) 27 (generate-json) 28 (exit)