;Chapter 4, Bryan Test 1, Page 69
;Structure to help test-structure
(defstruct callrecord
  number
  durration
  status)
  
(deftest test-structure-1 ()
  (let ((mycall (make-callrecord :number "+13302940684" :status "complete" :durration 10.5))  ;creating two instances of the class with the same information
        (yourcall (make-callrecord :number "+13302940684" :status "complete" :durration 10.5)))
    (check
      (equal (callrecord-durration yourcall) 10.5) ;checks the access functions defined by the above call to defstruct.
      (equal (callrecord-number yourcall) "+13302940684")
      (equal (callrecord-status yourcall) "complete")
      (not (equal mycall yourcall)))))  ;tests structure equality. Even thought the values are identicle, they are not the same structure