CL Redis DOB metrics test data

foo.lisp

(ql:quickload :cl-redis)

(redis:connect :port 7777)
(red:select 9)

(defvar *start* 201603231200)
(defvar *end* 201603231259)

(defvar *bu-names* '(
"Bangladesh"
"Bulgaria"
"Hungary"
"Malaysia"
"Myanmar"
"Norway"
"Pakistan"
"Serbia"
"Strex"
"Sweden"
"Thailand"
"Thailand-dtn"
"WyWallet"
"4T"))

(defun make-stats (bu result max-pr-min)
  (loop for time from *start* to *end*
        do (red:hincrby 
             (format nil "ea_~a" time)
             (format nil "~a.AUTH.~a" bu result)
             (random max-pr-min))))

(defun clean ()
  (loop for time from *start* to *end*
        do (red:del (format nil "ea_~a" time))))

(loop for bu in *bu-names*
  do (progn 
       (make-stats bu "SUCCESS" (1+ (random 100)))
       (make-stats bu "RETRIABLE_ERROR" (1+ (random 10)))
       (make-stats bu "GENERAL_FAILURE" (1+ (random 2)))
       (make-stats bu "INVALID_USER" (1+ (random 20)))))