id	summary	reporter	owner	description	type	status	priority	milestone	component	resolution	keywords	cc	planetversion	pltversion
331	Struct creation failure leaves orphan document in collection	anonymous	jaymccarthy	"Consider following code and test case which is defined on a collection with a unique index constraint on global-unique-user-id. The code is designed to test that creation of a second user with same id will fail. The failure does occur, but the second record continues to exist with only the _id field present in it. This does not happen when I try the same test directly in mongo shell. 

(define-mongo-struct user ""users""
  ([global-unique-user-id #:required]
   [user-profile-data #:set-add #:push]
   [profiles #:set-add #:push]
   [default-profile #:set-add #:push]
   [app-specific-profiles #:set-add #:push]))

   (test-case
    ""Unique id creation""
    
    (define user?
      (λ (x)
         (and (mongo-dict? x)
              (not (bson-null? (mongo-dict-ref x 'global-unique-user-id))))))
    (define auth-handle?
      (λ (auth-handle)
         (and (equal? (authentication-handle-global-unique-user-id auth-handle) ""0000"")
              (equal? (authentication-handle-auth-handle-type auth-handle) ""pxSAN"")
              (equal? (authentication-handle-auth-handle auth-handle) ""me"")                           
              (equal? (authentication-handle-auth-credentials auth-handle) ""pwd""))))
    
    (let ((user (make-user #:global-unique-user-id ""0000"")))
      (check-pred user? user ""User 0000 Created"")
      (check-equal? (user-global-unique-user-id user) ""0000"")
      (check-exn exn:fail? (make-user #:global-unique-user-id ""0000""))
      (mongo-collection-remove! (mongo-collection (current-mongo-db) ""users"") '((global-unique-user-id . 1)))))"	defect	closed	major		jaymccarthy/mongodb.plt	invalid			(1 8)