gistfile1.clj

 (fn []
                 (def ^:dynamic test-org-env  (uniqueify  (kt/newOrganization {:name "env-org"})))
                 (rest/create  test-org-env)
                 (org/switch test-org-env)
                 (fake/prepare-org-custom-provider test-org-env fake/custom-env-test-provider)
                 (env/create {:name env-dev :org test-org-env :prior-env "Library"})
                 (env/create {:name env-qa :org test-org-env :prior-env env-dev})
                 (env/create {:name env-release :org test-org-env :prior-env env-qa})
                 (promote-delete-content (kt/newChangeset  
                                          {:env (kt/newEnvironment {:name env-dev :org test-org-env})
                                           :name (uniqueify env-dev)
                                           :deletion? false 
                                           :content  [(kt/newProduct {:name "Com Errata Enterprise"})
                                                      (kt/newProduct {:name "Weird Enterprise"})]} ))
                 (promote-delete-content (kt/newChangeset  
                                          {:env (kt/newEnvironment {:name env-qa :org test-org-env})
                                           :name (uniqueify env-dev)
                                           :deletion? false 
                                           :content  [(kt/newProduct {:name "Weird Enterprise"})]})))