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/local-time-20190710-git/test/formatting.lisp
+++ b/sbcl/.quicklisp/dists/quicklisp/software/local-time-20190710-git/test/formatting.lisp
@ -0,0 +1,97 @@
+(in-package #:local-time.test)
+
+(defsuite* (formatting :in test))
+
+(deftest test/formatting/format-timestring/1 ()
+  (let ((*default-timezone* local-time:+utc-zone+)
+        (test-timestamp (encode-timestamp 1000 2 3 4 5 6 2008 :offset 0)))
+    (macrolet ((frob (&rest args)
+                 `(progn
+                    ,@(loop
+                        :for (a b) :on args :by #'cddr
+                        :collect `(is (string= ,a ,b))))))
+      (frob
+       "2008-06-05T04:03:02.000001Z"
+       (format-timestring nil test-timestamp)
+
+       "2008-06-05T04:03:02.000001-05:00"
+       (let ((utc-5 (local-time::%make-simple-timezone "UTC-5" "UTC-5" -18000)))
+         (format-timestring nil (encode-timestamp 1000 2 3 4 5 6 2008
+                                                  :offset (* 3600 -5))
+                            :timezone utc-5))
+
+       "Thu Jun  5 04:03:02 2008"
+       (format-timestring nil test-timestamp :format +asctime-format+)
+
+       "Thu, 05 Jun 2008 04:03:02 +0000"
+       (format-timestring nil test-timestamp :format +rfc-1123-format+)
+
+       ""
+       (format-timestring nil test-timestamp
+                          :format nil)
+
+       "04"
+       (format-timestring nil test-timestamp
+                          :format '((:hour 2)))
+
+       "04:03"
+       (format-timestring nil test-timestamp
+                          :format '((:hour 2) #\: (:min 2)))
+
+       "5th"
+       (format-timestring nil test-timestamp
+                          :format '(:ordinal-day))
+
+       "2004-W53-6"
+       (format-timestring nil (encode-timestamp 0 0 0 0 1 1 2005)
+                          :format +iso-week-date-format+)
+
+       "2004-W53-7"
+       (format-timestring nil (encode-timestamp 0 0 0 0 2 1 2005)
+                          :format +iso-week-date-format+)
+
+       "2005-W52-6"
+       (format-timestring nil (encode-timestamp 0 0 0 0 31 12 2005)
+                          :format +iso-week-date-format+)
+
+       "2007-W01-1"
+       (format-timestring nil (encode-timestamp 0 0 0 0 1 1 2007)
+                          :format +iso-week-date-format+)
+
+       "2007-W52-7"
+       (format-timestring nil (encode-timestamp 0 0 0 0 30 12 2007)
+                          :format +iso-week-date-format+)
+
+       "2008-W01-1"
+       (format-timestring nil (encode-timestamp 0 0 0 0 31 12 2007)
+                          :format +iso-week-date-format+)
+
+       "2009-W53-5"
+       (format-timestring nil (encode-timestamp 0 0 0 0 1 1 2010)
+                          :format +iso-week-date-format+)
+
+       "2009-W01-3"
+       (format-timestring nil (encode-timestamp 0 0 0 0 31 12 2008)
+                          :format +iso-week-date-format+)))))
+
+(deftest test/formatting/format-timestring/2 ()
+  (with-output-to-string (*standard-output*)
+    (let ((*default-timezone* (find-timezone-by-location-name "UTC")))
+      (finishes (print (now))))))
+
+(deftest test/formatting/ordinals ()
+  (flet ((format-ordinal (day)
+           (format-timestring nil (encode-timestamp 0 0 0 0 day 1 2008)
+                              :format '(:ordinal-day))))
+    (string= "31st" (format-ordinal 31))
+    (string= "11th" (format-ordinal 11))
+    (string= "22nd" (format-ordinal 22))
+    (string= "3rd"  (format-ordinal 3))))
+
+(deftest test/formatting/bug/1 ()
+  (let ((*default-timezone* (find-timezone-by-location-name "Pacific/Auckland")))
+    (finishes (format-timestring nil (now)))))
+
+(deftest test/formatting/leap-year ()
+  (let ((timestamp (parse-timestring "2004-02-29")))
+    (is (timestamp= timestamp (parse-timestring (format-timestring nil timestamp))))))