|
@@ -1053,6 +1053,39 @@ CLOCK: [2014-04-03 Thu 08:00]--[2014-04-03 Thu 16:00] => 8:00"
|
|
|
(let ((system-time-locale "en_US"))
|
|
|
(test-org-clock-clocktable-contents
|
|
|
":step month :mstart 4 :block 2014 :stepskip0 t")))))
|
|
|
+ ;; Test ":step semimonth".
|
|
|
+ (should
|
|
|
+ (string-match-p
|
|
|
+ "
|
|
|
+.*?\\[2014-03-01 .*
|
|
|
+.*
|
|
|
+.*
|
|
|
+|.*?| \\*8:00\\* |
|
|
|
+.*
|
|
|
+| Foo +| 8:00 +|
|
|
|
+
|
|
|
+.*?\\[2014-03-16 .*
|
|
|
+.*
|
|
|
+.*
|
|
|
+|.*?| \\*2:00\\* |
|
|
|
+.*
|
|
|
+| Foo +| 2:00 +|
|
|
|
+
|
|
|
+.*?\\[2014-04-01 .*
|
|
|
+.*
|
|
|
+.*
|
|
|
+|.*?| \\*7:00\\* |
|
|
|
+.*
|
|
|
+| Foo +| 7:00 +|
|
|
|
+"
|
|
|
+ (org-test-with-temp-text
|
|
|
+ "* Foo
|
|
|
+CLOCK: [2014-03-04 Tue 08:00]--[2014-03-04 Tue 16:00] => 8:00
|
|
|
+CLOCK: [2014-03-24 Mon 08:00]--[2014-03-24 Mon 10:00] => 2:00
|
|
|
+CLOCK: [2014-04-03 Thu 08:00]--[2014-04-03 Thu 15:00] => 7:00"
|
|
|
+ (let ((system-time-locale "en_US"))
|
|
|
+ (test-org-clock-clocktable-contents
|
|
|
+ ":step semimonth :block 2014 :stepskip0 t")))))
|
|
|
;; Test ":step year".
|
|
|
(should
|
|
|
(string-match-p
|