OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-atomspace / tests / query / blair-witch.scm

41 lines · scm ref: 
;; Data set for testing issue
;;
;; https://github.com/opencog/atomspace/issues/1528
;;
;; blair-witch is here to emphasize the weirdness of the bug.

;; Grounded Predicate
(define (truth X) #t)
(define (alternative-fact X) #f)

;; Query
(define find-something
(CollectionOf
(QueryLink
  (AndLink
    (VariableNode "$f-lamb-e84bdd8")
    (NumberNode "2.000000")
    (EvaluationLink
      (GroundedPredicateNode "scm: truth")
      (NumberNode "2.000000")
    )
  )
  (Concept "A"))
)
)

(define find-nothing
(CollectionOf
(QueryLink
  (AndLink
    (VariableNode "$f-lamb-e84bdd8")
    (NumberNode "2.000000")
    (EvaluationLink
      (GroundedPredicateNode "scm: alternative-fact")
      (NumberNode "2.000000")
    )
  )
  (Concept "A"))
)
)