OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-atomspace / tests / query / exec.scm

30 lines · scm ref: 
;; Used by ExecutionOutputUTest::test_query_exec

(use-modules (opencog))

;; Grounds

(ExecutionOutput
  (Schema "sc-1")
  (Concept "a"))

(ExecutionOutput
  (Schema "sc-2")
  (Concept "b"))

(ExecutionOutput
  (Schema "sc-3")
  (Concept "c"))

;; Query

(define exec-query
  (CollectionOf (Meet (ExecutionOutput (Variable "$schema") (Variable "$arg")))))

(define quote-exec-query
  (CollectionOf (Meet
    (Quote
      (ExecutionOutput
        (Unquote (Variable "$schema"))
        (Unquote (Variable "$arg")))))))