Vim window logic, slimv

2020-02-24 20:27:04 -05:00 · 2020-02-24 20:27:04 -05:00 · 515847d07e
commit 515847d07e
parent babcc9e44b
791 changed files with 51552 additions and 86 deletions
--- a/sbcl/.quicklisp/dists/quicklisp/software/cl-ansi-text-20150804-git/test/cl-ansi-text-test.lisp
+++ b/sbcl/.quicklisp/dists/quicklisp/software/cl-ansi-text-20150804-git/test/cl-ansi-text-test.lisp
@ -0,0 +1,123 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; test suite for cl-ansi-text
+
+(defpackage :cl-ansi-text-test
+  (:use :common-lisp
+        :cl-user
+        :cl-ansi-text
+        :fiveam))
+
+(in-package :cl-ansi-text-test)
+(use-package :fiveam)
+(use-package :cl-ansi-text)
+
+(def-suite test-suite
+    :description "test suite.")
+
+(in-suite test-suite)
+
+
+(test basic-color-strings
+  "Test the basic stuff"
+  (is (equal '(#\Esc #\[ #\3 #\1 #\m)
+             (cl-ansi-text::build-control-string :red :unset :foreground)))
+  (is (equal '(#\Esc #\[ #\4 #\1 #\m)
+             (cl-ansi-text::build-control-string :red :unset :background)))
+  (is (equal '(#\Esc #\[ #\4 #\2 #\; #\1 #\m)
+             (cl-ansi-text::build-control-string :green :bright :background))))
+
+(test enabled-connectivity
+  "Test *enabled*'s capability"
+ (is (equal  '(#\Esc #\[ #\3 #\1 #\m)
+             (let ((*enabled* t))
+               (concatenate
+                'list
+                (cl-ansi-text:make-color-string :red)))))
+ (is (equal  '()
+            (let ((*enabled* nil))
+              (concatenate
+               'list
+               (cl-ansi-text:make-color-string :red)))))
+ (is (equal "hi"
+            (let ((*enabled* nil))
+              (with-output-to-string (s)
+                (with-color (:red :stream s) (format s "hi"))))))
+ (is (equal '(#\Esc #\[ #\3 #\1 #\m #\T #\e #\s #\t #\! #\Esc #\[ #\0 #\m)
+            (concatenate
+             'list
+             (with-output-to-string (s)
+               (with-color (:red :stream s)
+                 (format s "Test!")))))))
+
+(test rgb-suite
+  "Test RGB colors"
+  (is (equal '(#\Esc #\[ #\3 #\8 #\; #\5 #\; #\2 #\1 #\4 #\m)
+             (cl-ansi-text::build-control-string #xFFAA00
+                                                 :unset :foreground)))
+  (is (equal '(#\Esc #\[ #\4 #\8 #\; #\5 #\; #\2 #\1 #\4 #\m)
+             (cl-ansi-text::build-control-string #xFFAA00
+                                                 :unset :background)))
+  (is (equal '(#\Esc #\[ #\4 #\8 #\; #\5 #\; #\1 #\6 #\m)
+             (cl-ansi-text::build-control-string #x000000
+                                                 :unset :background)))
+  (is (equal '(#\Esc #\[ #\4 #\8 #\; #\5 #\; #\2 #\3 #\1 #\m)
+             (cl-ansi-text::build-control-string #xFFFFFF
+                                                 :unset :background))))
+
+(test color-named-functions
+  (let ((str "Test string."))
+    (is (equal (black str)
+               (with-output-to-string (s)
+                 (with-color (:black :stream s)
+                   (format s str)))))
+    (is (equal (red str)
+               (with-output-to-string (s)
+                 (with-color (:red :stream s)
+                   (format s str)))))
+
+    (is (equal (green str)
+               (with-output-to-string (s)
+                 (with-color (:green :stream s)
+                   (format s str)))))
+
+    (is (equal (yellow str)
+               (with-output-to-string (s)
+                 (with-color (:yellow :stream s)
+                   (format s str)))))
+    (is (equal (blue str)
+               (with-output-to-string (s)
+                 (with-color (:blue :stream s)
+                   (format s str)))))
+    (is (equal (magenta str)
+               (with-output-to-string (s)
+                 (with-color (:magenta :stream s)
+                   (format s str)))))
+    (is (equal (cyan str)
+               (with-output-to-string (s)
+                 (with-color (:cyan :stream s)
+                   (format s str)))))
+    (is (equal (white str)
+               (with-output-to-string (s)
+                 (with-color (:white :stream s)
+                   (format s str)))))))
+
+(test color-named-functions-*enabled*
+  (let ((str "Other test string.")
+        (*enabled* nil))
+    (is
+     (equal str
+            (white (cyan (magenta (blue (yellow (green (red (black str))))))))))))
+
+(defun run-tests ()
+  (let  ((results (run 'test-suite)))
+    (explain! results)
+    (if (position-if #'(lambda (e)
+                         (eq (type-of e)
+                             'IT.BESE.FIVEAM::TEST-FAILURE
+                             ))
+                     results)
+        nil
+        t)))
+
+(defun ci-run ()
+  (run-tests))