opencog-atomspace / tests / atoms / flow / filter-irc-test.scm

#! /usr/bin/env guile
-s
!#
;
; filter-irc-test.scm -- Test filter with executable terms in LinkValues
; 
;
(use-modules (opencog))
(use-modules (opencog test-runner))

(opencog-test-runner)
(define tname "filter-irc-test")
(test-begin tname)

; Private messages have the form:
;    (LinkValue
;       (StringValue "linas")
;       (StringValue "echobot")
;       (StringValue "bunch o text")))
;
; Public messages have the form:
;    (LinkValue
;       (StringValue "linas")
;       (StringValue "#opencog")
;       (StringValue "bunch o text")))
;
; The difference between the two is the target, in the second location.

(cog-set-value! (Anchor "IRC Bot") (Predicate "echo")
	(LinkValue
		(LinkValue
			(StringValue "linas")
			(StringValue "echobot")
			(StringValue "bunch o text"))))

; The filter below, when executed, will pull in a single message,
; pattern match it, and write a private reply to the sender.
; More correctly, executing `make-private-reply` will get one message,
; and rewrite it; but that's it it doesn't send. The private-echo
; below will read-modify-write.

(define make-private-reply
	(Filter
		(Rule
			(VariableList
				(Variable "$from") (Variable "$to") (Variable "$msg"))
			(LinkSignature (Type 'LinkValue)
				(Variable "$from") (Variable "$to") (Variable "$msg"))
			(LinkSignature (Type 'LinkValue)
				(Item "PRIVMSG")
				(Variable "$from")
				(Item "you said: ")
				(Variable "$msg")))
		(ValueOf (Anchor "IRC Bot") (Predicate "echo"))))


; Try it, once
(define priv-rep (cog-execute! make-private-reply))
(test-assert "response test"
	(equal? priv-rep
		(LinkValue
			(LinkValue
				(Item "PRIVMSG")
				(StringValue "linas")
				(Item "you said: ")
				(StringValue "bunch o text")))))

(cog-set-value!
	(Anchor "IRC Bot") (Predicate "bot-name") (StringValue "echobot"))

(define is-pub?
	(Filter
		(Rule
			(VariableList
				(Variable "$from") (Variable "$to") (Variable "$msg"))
			(LinkSignature (Type 'LinkValue)
				(Variable "$from") (Variable "$to") (Variable "$msg"))
			(LinkSignature (Type 'LinkValue)
				(Cond
					(Equal (Variable "$to")
						(ValueOf (Anchor "IRC Bot") (Predicate "bot-name")))
					(Item "private message")
					(Item "public message"))))
		(ValueOf (Anchor "IRC Bot") (Predicate "echo"))))

(define is-pub (cog-execute! is-pub?))
(format #t "Private reply was ~A\n" is-pub)
(test-assert "private test"
	(equal? is-pub
		(LinkValue (LinkValue (Item "private message")))))

(test-end tname)
(opencog-test-end)

; The End. That's all, folks!
; -------------------------------------------------------