weissjeffm

(ns testme
  (:use [test-clj.testng] :reload)
  (:use [clojure.test])
(:import [org.testng.annotations Test DataProvider]))

(deftest replace-me ;; FIXME: write
  (is false "No tests have been written."))

(defn ^{Test {:dataProvider "mydata"}}
  myfn [_ subscription-name]

weissjeffm

katello.tests.suite> (-main)
 TR7044: (test-clj.core/execute "startup" (fn [] (setup/start-sel)))
 TR7044: => nil
 TR7045: (test-clj.core/execute "login as admin" (fn [] (tasks/verify-success (fn* [] (tasks/login ((clojure.core/deref config) :admin-user) ((clojure.core/deref config) :admin-password))))))
 TR7046: |    (katello.tasks/verify-success #<suite$login_tests$fn__6963$fn__6964 katello.tests.suite$login_tests$fn__6963$fn__6964@632b71a3>)
 TR7047: |    |    (katello.tasks/login "admin" "admin")
 TR7048: |    |    |    (katello.tasks/logged-in?)
 TR7048: |    |    |    => false
 TR7049: |    |    |    (katello.tasks/check-for-success)
 TR7050: |    |    |    |    (katello.tasks/notification)

weissjeffm

# Place this file in your /etc/yum.repos.d/ directory

[fedora-candlepin]
name=An open source entitlement management system.
baseurl=http://repos.fedorapeople.org/repos/candlepin/candlepin/fedora-$releasev
er/$basearch/
enabled=1
skip_if_unavailable=1
gpgcheck=0

weissjeffm

#!/bin/bash
#signs katello/cp certificate with given CA 
CACERT=$1
CAKEY=$2
CAKEY_PASS=$3

cd /etc/candlepin/certs
openssl genrsa -out katello.key 2048
openssl req -new -key katello.key -out candlepin.csr -batch -subj "/C=US/ST=North Carolina/L=Raleigh/O=Red Hat/OU=CloudQE SystemEngine/CN=$HOSTNAME"

weissjeffm

(fn [s]
  (let [suit (first s) rank (last s)
        st (case suit
          \D :diamond
          \C :club
          \S :spade)
        rk (try
        (- (Integer/parseInt rank) 2)
        (catch NumberFormatException e
          (case rank

weissjeffm

(defn edit-user [username {:keys [inline-help
                                  clear-disabled-helptips
                                  new-password
                                  new-password-confirm]}]
  (navigate :named-user-page {:username username})
  (browser typeKeys :change-password-text new-password)
  (browser typeKeys :confirm-password-text (or new-password-confirm
                                               new-password))
  (when (browser isElementPresent :password-conflict)
    (throw+ {:type :password-mismatch :msg "Passwords do not match"}))

weissjeffm

[system-engine]
name=System Engine
baseurl=http://download.devel.redhat.com/brewroot/repos/se-rhel-6-build/latest/x86_64/
enabled=1
gpgcheck=0

weissjeffm

(defn validate-search [entity-type &  [{:keys [criteria scope] :as search-opts}]]
   (search entity-type search-opts)
   (if-not (every? (fn [s] (.contains s criteria))
                   (extract-left-pane-list locators/left-pane-field-list))
     (throw+ {:type :search-results-inaccurate :msg "Not all search
           results match criteria."})))

weissjeffm

(defn- save-env [bindings form]
  (let [localbindings (for [b bindings]
                        (let [s (.sym b)]
                          [(list 'quote s) s]))]
    (if (empty? localbindings)
      form
     `(let ~(vec (apply concat localbindings))
        (~@form)))))

weissjeffm

for i in $(lein classpath | tr ":" "\n"); do  echo "$i"; done