russell@unturf.com
6e746ace44
All SDKs now implement 58+ functions matching C reference (un.h): - Execution (8): execute, execute_async, wait_job, get_job, cancel_job, list_jobs, get_languages, detect_language - Sessions (9): list, get, create, destroy, freeze, unfreeze, boost, unboost, execute - Services (17): list, get, create, destroy, freeze, unfreeze, lock, unlock, set_unfreeze_on_demand, redeploy, logs, execute, env_get/set/delete/export, resize - Snapshots (9): list, get, session, service, restore, delete, lock, unlock, clone - Images (13): list, get, publish, delete, lock, unlock, set_visibility, grant/revoke_access, list_trusted, transfer, spawn, clone - PaaS Logs (2): fetch, stream - Utilities (5): validate_keys, hmac_sign, health_check, version, last_error Test suites created for all SDKs with unit, integration, and functional tests. Languages: AWK, Bash, C++, C#, Clojure, COBOL, Crystal, D, Dart, .NET, Elixir, Erlang, F#, Forth, Fortran, Go, Groovy, Haskell, Java, JavaScript, Julia, Kotlin, Lisp, Lua, Nim, Objective-C, OCaml, Perl, PHP, PowerShell, Prolog, Python, R, Raku, Ruby, Rust, Scheme, Swift, Tcl, TypeScript, V, Zig
194 lines
6.7 KiB
Scheme
Executable file
194 lines
6.7 KiB
Scheme
Executable file
#!/usr/bin/env guile
|
|
!#
|
|
|
|
;;; Scheme UN CLI Test Suite
|
|
;;;
|
|
;;; Usage:
|
|
;;; chmod +x test_un_scm.scm
|
|
;;; ./test_un_scm.scm
|
|
;;;
|
|
;;; Or with guile:
|
|
;;; guile test_un_scm.scm
|
|
;;;
|
|
;;; Tests the Scheme UN CLI implementation (un.scm) for:
|
|
;;; 1. Extension detection logic
|
|
;;; 2. API integration (if UNSANDBOX_API_KEY is set)
|
|
;;; 3. End-to-end execution with fib.scm test file
|
|
|
|
(use-modules (ice-9 popen)
|
|
(ice-9 rdelim)
|
|
(ice-9 regex))
|
|
|
|
;;; ANSI color codes
|
|
(define green "\x1b[32m")
|
|
(define red "\x1b[31m")
|
|
(define yellow "\x1b[33m")
|
|
(define reset "\x1b[0m")
|
|
|
|
;;; Extension to language mapping (from un.scm)
|
|
(define ext-to-lang
|
|
'((".hs" . "haskell")
|
|
(".ml" . "ocaml")
|
|
(".clj" . "clojure")
|
|
(".scm" . "scheme")
|
|
(".lisp" . "commonlisp")
|
|
(".erl" . "erlang")
|
|
(".ex" . "elixir")
|
|
(".py" . "python")
|
|
(".js" . "javascript")
|
|
(".rb" . "ruby")
|
|
(".go" . "go")
|
|
(".rs" . "rust")
|
|
(".c" . "c")
|
|
(".cpp" . "cpp")
|
|
(".java" . "java")))
|
|
|
|
;;; Lookup language by extension
|
|
(define (lookup-language ext)
|
|
(assoc-ref ext-to-lang ext))
|
|
|
|
;;; Print test result
|
|
(define (print-result test-name passed? error-msg)
|
|
(if passed?
|
|
(begin
|
|
(display (string-append green "✓ PASS" reset " - " test-name "\n"))
|
|
#t)
|
|
(begin
|
|
(display (string-append red "✗ FAIL" reset " - " test-name "\n"))
|
|
(when error-msg
|
|
(display (string-append " Error: " error-msg "\n")))
|
|
#f)))
|
|
|
|
;;; Test 1: Extension detection
|
|
(define (test-extension-detection)
|
|
(let ((tests '((".hs" . "haskell")
|
|
(".ml" . "ocaml")
|
|
(".clj" . "clojure")
|
|
(".scm" . "scheme")
|
|
(".lisp" . "commonlisp")
|
|
(".erl" . "erlang")
|
|
(".ex" . "elixir")
|
|
(".py" . "python")
|
|
(".js" . "javascript")
|
|
(".rb" . "ruby"))))
|
|
(let ((failures (filter (lambda (test)
|
|
(let ((ext (car test))
|
|
(expected (cdr test)))
|
|
(not (equal? (lookup-language ext) expected))))
|
|
tests)))
|
|
(if (null? failures)
|
|
(print-result "Extension detection" #t #f)
|
|
(print-result "Extension detection" #f
|
|
(format #f "~a tests failed" (length failures)))))))
|
|
|
|
;;; Run command and capture output
|
|
(define (run-command cmd)
|
|
(let* ((port (open-input-pipe cmd))
|
|
(output (read-delimited "" port))
|
|
(status (close-pipe port)))
|
|
(cons status output)))
|
|
|
|
;;; Test 2: API integration
|
|
(define (test-api-integration)
|
|
(let ((api-key (getenv "UNSANDBOX_API_KEY")))
|
|
(if (not api-key)
|
|
(print-result "API integration" #t #f) ; Skip test if no API key
|
|
(catch #t
|
|
(lambda ()
|
|
;; Create a simple test file
|
|
(let ((test-code "(display \"test\\n\")\n"))
|
|
(call-with-output-file "/tmp/test_un_scm_api.scm"
|
|
(lambda (port) (display test-code port)))
|
|
|
|
;; Run the CLI
|
|
(let* ((result (run-command "./un.scm /tmp/test_un_scm_api.scm 2>&1"))
|
|
(status (car result))
|
|
(output (cdr result)))
|
|
|
|
;; Check if it executed successfully
|
|
(if (and (= status 0)
|
|
(string-contains output "test"))
|
|
(print-result "API integration" #t #f)
|
|
(print-result "API integration" #f
|
|
(format #f "API call failed: ~a" output))))))
|
|
(lambda (key . args)
|
|
(print-result "API integration" #f
|
|
(format #f "Exception: ~a" args)))))))
|
|
|
|
;;; Test 3: Functional test with fib.scm
|
|
(define (test-fibonacci)
|
|
(let ((api-key (getenv "UNSANDBOX_API_KEY")))
|
|
(if (not api-key)
|
|
(print-result "Fibonacci end-to-end test" #t #f) ; Skip test if no API key
|
|
(catch #t
|
|
(lambda ()
|
|
;; Check if fib.scm exists
|
|
(let* ((fib-path "../test/fib.scm")
|
|
(result (run-command (string-append "./un.scm " fib-path " 2>&1")))
|
|
(status (car result))
|
|
(output (cdr result)))
|
|
|
|
;; Check if output contains expected fibonacci result
|
|
(if (and (= status 0)
|
|
(string-contains output "fib(10) = 55"))
|
|
(print-result "Fibonacci end-to-end test" #t #f)
|
|
(print-result "Fibonacci end-to-end test" #f
|
|
(format #f "Fibonacci test failed: ~a" output)))))
|
|
(lambda (key . args)
|
|
(print-result "Fibonacci end-to-end test" #f
|
|
(format #f "Exception: ~a" args)))))))
|
|
|
|
;;; Test 4: Snapshot command support (feature parity test)
|
|
(define (test-snapshot-command)
|
|
(let ((api-key (getenv "UNSANDBOX_API_KEY")))
|
|
(if (not api-key)
|
|
(print-result "Snapshot command support" #t #f) ; Skip test if no API key
|
|
(catch #t
|
|
(lambda ()
|
|
(let* ((result (run-command "./un.scm snapshot --list 2>&1"))
|
|
(status (car result))
|
|
(output (cdr result)))
|
|
|
|
;; Check if it executed without errors (may return empty list)
|
|
(if (= status 0)
|
|
(print-result "Snapshot command support" #t #f)
|
|
(print-result "Snapshot command support" #f
|
|
(format #f "Snapshot list failed: ~a" output)))))
|
|
(lambda (key . args)
|
|
(print-result "Snapshot command support" #f
|
|
(format #f "Exception: ~a" args)))))))
|
|
|
|
;;; Main test runner
|
|
(define (main)
|
|
(display "=== Scheme UN CLI Test Suite ===\n\n")
|
|
|
|
;; Check if API key is set
|
|
(when (not (getenv "UNSANDBOX_API_KEY"))
|
|
(display (string-append yellow "⚠ WARNING" reset
|
|
" - UNSANDBOX_API_KEY not set, skipping API tests\n\n")))
|
|
|
|
;; Run tests
|
|
(let ((results (list (test-extension-detection)
|
|
(test-api-integration)
|
|
(test-fibonacci)
|
|
(test-snapshot-command))))
|
|
|
|
(display "\n")
|
|
|
|
;; Summary
|
|
(let ((passed (length (filter (lambda (x) x) results)))
|
|
(total (length results)))
|
|
(if (= passed total)
|
|
(begin
|
|
(display (string-append green "✓ All tests passed ("
|
|
(number->string passed) "/"
|
|
(number->string total) ")" reset "\n"))
|
|
(exit 0))
|
|
(begin
|
|
(display (string-append red "✗ Some tests failed ("
|
|
(number->string passed) "/"
|
|
(number->string total) " passed)" reset "\n"))
|
|
(exit 1))))))
|
|
|
|
;;; Entry point
|
|
(main)
|