(in-package #:cl-neo4j)

(define-condition unknown-return-type-error (error)
  ((uri :accessor uri :initarg :uri)
   (property :accessor property :initarg :property)
   (status :accessor status :initarg :status))
  (:report (lambda (condition stream)
	     (format stream "Unknown status ~A returned for ~A (~A)" 
		     (status condition) (uri condition) (property condition)))))
  
(define-condition invalid-data-sent-error (error)
  ((json :accessor json :initarg :json)
   (uri :accessor uri :initarg :uri))
  (:report (lambda (condition stream)
	     (format stream "Invalid data sent to ~A: ~A" (uri condition) (json condition)))))

(define-condition node-not-found-error (error)
  ((uri :accessor uri :initarg :uri)
   (property :accessor property :initarg :property))
  (:report (lambda (condition stream)
	     (if (slot-boundp condition 'property)
		 (format stream "Property ~A not found for node ~A" 
			 (property condition) (uri condition))
		 (format stream "Node not found ~A" (uri condition))))))
  
(define-condition unable-to-delete-node-error (error)
  ((uri :accessor uri :initarg :uri))
  (:report (lambda (condition stream)
	     (format stream "Unable to delete node ~A. Still has relationships?" (uri condition)))))

(define-condition relationship-not-found-error (error)
  ((uri :accessor uri :initarg :uri)
   (property :accessor property :initarg :property))
  (:report (lambda (condition stream)
	     (if (slot-boundp condition 'property)
		 (format stream "Property ~A not found for relationship ~A" 
			 (property condition) (uri condition))
		 (format stream "Relationship not found ~A" (uri condition))))))
  
(define-condition index-entry-not-found-error (error)
  ((uri :accessor uri :initarg :uri))
  (:report (lambda (condition stream)
	     (format stream "Index entry not found ~A" (uri condition)))))