anchor.diff:  
   (define-test put-get-delete-bucket-object-test
     (let ( 
  -        (bucket-name (hh-utils:detokenize (list
  +        (bucket-name (hh-aws::detokenize (list
                                              (hh-aws::format-string "~4,'0D" (random 1000))
                                              "unittest"
                                              "codeplume-com" 
                                              ) "-"
                                             )
                        )
  -        (object-name (hh-utils:detokenize (list
  +        (object-name (hh-aws::detokenize (list
                                              "object"
                                              (hh-aws::format-string "~4,'0D" (random 1000))
                                              ) "-"
  
positive.code: 
  (define-test create-list-delete-domain-test
    (let ( 
          (new-domain-name (hh-utils:detokenize (list
                                                 (uuid-string)
                                                 "unittest"
                                                 "codeplume.com" 
  
negative.code: 
  (define-test create-delete-bucket-test
    (let ( 
          (bucket-name (hh-aws::detokenize (list
                                             (hh-aws::format-string "~4,'0D" (random 1000))
                                             "unittest"
                                             "codeplume-com" 
  