OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-atomspace / tests / query / quote-glob.scm

20 lines · scm ref: 
;
; quote-glob.scm
; Unit test for issue #2583
;
(use-modules (opencog))

(PlusLink (Number 1) (Number 2) (Number 10))

(define quote-glob
	(Query
		(TypedVariable (Glob "$op") (Type 'NumberNode))
		(Plus (Glob "$op") (Number 10))
		(Quote (Plus (Unquote (Glob "$op")) (Number 10)))))

; Obviously expect this...
(define expect
	(PlusLink (Number 1) (Number 2) (Number 10)))

; (cog-execute! quote-glob)