test: vhs tests

Author: TimoKramer

.github/workflows/ci.yml

@@ -26,6 +26,13 @@ jobs:
           clj-kondo: latest
           cljfmt: latest
 
+      - name: Install vhs
+        uses: charmbracelet/vhs-action@v1
+        with:
+          path:
+            - 'docs/examples/vhs/pomodoro.tape'
+            - 'docs/examples/vhs/download.tape'
+
       - uses: actions/cache@v4
         with:
           path: |
@@ -43,6 +50,12 @@ jobs:
       - name: Test
         run: clojure -M:test
 
+      - name: Test vhs
+        run: |
+          ls -lahrtR
+          diff pomodoro.ascii docs/examples/test/pomodoro.ascii
+          diff download.ascii docs/examples/test/download.ascii
+
       - name: Build JAR
         run: clojure -T:build jar
 

docs/examples/images/download.gif

@@ -0,0 +1,310 @@
+>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+────────────────────────────────────────────────────────────────────────────────
+>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Press Space to start download, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Press Space to start download, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Press Space to start download, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Downloading... Press R to reset, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    █████████████████████████ 100% Done!
+ascii      ######################### 100% Done!
+thin       ━━━━━━━━━━━━━━━━━━━━━━━━━ 100% Done!
+thick      █████████████████████████ 100% Done!
+blocks     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ 100% Done!
+arrows     >>>>>>>>>>>>>>>>>>>>>>>>> 100% Done!
+dots       ●●●●●●●●●●●●●●●●●●●●●●●●● 100% Done!
+brackets   [=======================] 100% Done!
+
+All downloads complete!
+
+Press R to restart, Q to quit
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Press Space to start download, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Press Space to start download, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+ascii      -------------------------   0%
+thin       ─────────────────────────   0%
+thick      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒   0%
+blocks     ░░░░░░░░░░░░░░░░░░░░░░░░░   0%
+arrows                                 0%
+dots       ○○○○○○○○○○○○○○○○○○○○○○○○○   0%
+brackets   [                       ]   0%
+
+Downloading... Press R to reset, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ██████░░░░░░░░░░░░░░░░░░░  24%
+ascii      ######-------------------  26%
+thin       ━━━━━━───────────────────  27%
+thick      █████▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒  21%
+blocks     ▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░  24%
+arrows     >>>>>>                     26%
+dots       ●●●●●○○○○○○○○○○○○○○○○○○○○  23%
+brackets   [======                 ]  26%
+
+Downloading... Press R to reset, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────
+> clojure -M -m examples.download
+Download Demo
+Demonstrating all progress bar styles
+
+default    ██████░░░░░░░░░░░░░░░░░░░  24%
+ascii      ######-------------------  26%
+thin       ━━━━━━───────────────────  27%
+thick      █████▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒  21%
+blocks     ▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░  24%
+arrows     >>>>>>                     26%
+dots       ●●●●●○○○○○○○○○○○○○○○○○○○○  23%
+brackets   [======                 ]  26%
+
+Downloading... Press R to reset, Q to quit
+
+
+────────────────────────────────────────────────────────────────────────────────