Adding Windows exe check

Author: ktakashi

.github/workflows/windows-installer.yml

@@ -57,6 +57,15 @@ jobs:
         with:
           path: ${{ steps.extract.outputs.build_dir }}/win/innosetup.iss
           options: /Qp
+      - name: Test exe
+        shell: pwsh
+        run: |
+          $file = Get-Item .\win\Output\*.exe
+          Start-Process -FilePath ".\win\Output\$($file.Name)" -ArgumentList '/VERYSILENT', '/SUPPRESSMSGBOXES', '/ALLUSERS', -Wait
+
+          $sash = "$($Env:Programfiles)\Sagittarius\sash.exe"
+          Start-Process -FilePath $sash -ArgumentList '-Einfo', ".\example\net\http-client0.scm" -Wait -NoNewWindow
+        working-directory: ${{ steps.extract.outputs.build_dir }}
       - name: Upload installer
         id: upload-windows-installer
         uses: actions/upload-artifact@v6

doc/utils/net/http-client.md

@@ -12,24 +12,7 @@ also provides asynchronous calling atop future object of
 
 The following example shows how to use in a nutshell.
 
-```scheme
-(import (rnrs)
-        (net http-client)
-        (util concurrent))
-
-(define client (http:client-builder
-                (follow-redirects (http:redirect normal))))
-
-(let ((future (http:client-send-async client
-                                      (http:request-builder
-                                       (uri "http://google.com")))))
-  ;; do whatever you need to do during the above HTTP call
-  (let ((response (future-get future)))
-    (http:response-status response)  ;; -> 200
-    (http:response-headers response) ;; -> header object
-    (http:response-body response)    ;; -> body as bytevector
-    ))
-```
+* @[-[Http Client](../../example/net/http-client0.scm)]
 
 ### [§3] HTTP client
 

example/net/http-client0.scm

@@ -0,0 +1,16 @@
+(import (rnrs)
+        (net http-client)
+        (util concurrent))
+
+(define client (http:client-builder
+                (follow-redirects (http:redirect normal))))
+
+(let ((future (http:client-send-async client
+                                      (http:request-builder
+                                       (uri "http://google.com")))))
+  ;; do whatever you need to do during the above HTTP call
+  (let ((response (future-get future)))
+    (http:response-status response)  ;; -> 200
+    (http:response-headers response) ;; -> header object
+    (http:response-body response)    ;; -> body as bytevector
+    ))