AdamSaleh

(defn autocomplete-adder-for-content-search [auto-comp-box add-button cont-item]
  (browser setText auto-comp-box cont-item)
  ;; typeKeys is necessary to trigger drop-down list
  (browser typeKeys auto-comp-box cont-item)
  (let [elem (locators/auto-complete-item cont-item)] 
    (->browser (waitForElement elem "2000")
               (mouseOver elem)
               (click elem)))
    (browser click add-button))

AdamSaleh

(def no-error?
  "Returns true if the given notification is a 'success' or 'notification' type
  notification (aka green notification in the UI)."
  ^{:type :serializable.fn/serializable-fn
    :serializable.fn/source 'success?}
  (fn [notif]
    (and notif (some #{(:type notif)} [:success :message]))))

AdamSaleh

import XMonad
import XMonad.Config.Desktop
import XMonad.Config.Gnome
import XMonad.Config.Bluetile
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import qualified XMonad.StackSet as W 
import Data.Bits ((.|.))
import System.Exit
import System.IO

AdamSaleh

rake aborted!
Connection refused - connect(2)
/usr/lib/ruby/1.8/net/http.rb:560:in `initialize'
/usr/lib/ruby/1.8/net/http.rb:560:in `open'
/usr/lib/ruby/1.8/net/http.rb:560:in `connect'
/usr/lib/ruby/1.8/timeout.rb:53:in `timeout'
/usr/lib/ruby/1.8/timeout.rb:101:in `timeout'
/usr/lib/ruby/1.8/net/http.rb:560:in `connect'
/usr/lib/ruby/1.8/net/http.rb:553:in `do_start'
/usr/lib/ruby/1.8/net/http.rb:542:in `start'

AdamSaleh

(defgroup default-org-tests
  :test-teardown #(login)
 
(deftest "User's Favorite Organization"
      :data-driven true      
      (fn [saved-org-with expected]
        (let [user (uniqueify "deforg")
              org {:login  (uniqueify "usersorg-login")
                    :star  (uniqueify "usersorg-star")

AdamSaleh

([] (login *session-user* *session-password* {:org *session-org*}))
  ([username password & [{:keys [org default-org]}]]
     (when (logged-in?) (logout))
     (sel/fill-ajax-form {::username-text username
                          ::password-text password}
                         ::log-in)
     (let [retval        (notification/check-for-success {:timeout-ms 20000})
           direct-login? (some (fn [n] (or (= "Login Successful" n)
                                            (re-find #"please contact administrator" n) 
                                          (re-find #"logging into" n)))

AdamSaleh

Myslim ze najjednoduchsie bude, ak si stiahnes tento projekt:

https://github.com/AdamSaleh/TestParser

a reimplementujes class Parser. V podstate ju nikde neposielam okrem tych troch riadkov,
https://github.com/AdamSaleh/NitrateRPC/blob/master/src/main/java/NitrateIntegration/TcmsPublisher.java

(riadky 137,144,150)

tzn lubovolna class ktora zvladne naloadovat xml a vratit class test-results viem zintegrovat.

AdamSaleh

Parovanie:

Jenkins build -> tcmsBuild

je zostaveny takto

  Build.create create = new Build.create();
  create.product = properties.getProductID();
  create.name = build.getId();
  create.description = build.getDescription();

AdamSaleh

(l/run 1 [test-line]
  (l/fresh [query result]
    (l/== query ["\"" result "\""])
    (l/== result "RHEA-2012:2013")
    (l/== test-line [query result])))


([["\"" "RHEA-2012:2013" "\""] "RHEA-2012:2013"])

AdamSaleh

(defmacro defrecord [rec args]
  `(do (clojure.core/defrecord ~rec ~args
    'clojure.lang.IFn
    (list 'invoke '[this] 'this)
    (list 'invoke '[this n] '(repeat n this))    
    (list 'applyTo '[this args] (list 'clojure.lang.AFn/applyToHelper 'this 'args)))
       (def ~(symbol (str "new" rec)) ~(symbol (str "map->" rec)))))