Skip to content

Commit

Permalink
Reenable unit-tests after desugar fix
Browse files Browse the repository at this point in the history
  • Loading branch information
fare committed Oct 6, 2023
1 parent f59cda3 commit a1a7a9e
Showing 1 changed file with 18 additions and 19 deletions.
37 changes: 18 additions & 19 deletions unit-tests.ss
Original file line number Diff line number Diff line change
Expand Up @@ -2,28 +2,27 @@
;; To run tests, use: ./unit-tests.ss
;; You can even run tests without first building with ./build.ss !

(import :clan/testing)
(init-test-environment!)
(import (only-in :clan/testing init-test-environment!))
(init-test-environment!) ;; sets up the path to load things in mukn/glow

(import
(only-in :std/getopt rest-arguments)
(only-in :clan/exit silent-exit)
(only-in :clan/multicall define-entry-point set-default-entry-point!)
:clan/path-config
:clan/crypto/secp256k1
:clan/ethereum/types :clan/ethereum/ethereum
:mukn/glow/all-glow :mukn/glow/version :mukn/glow/t/common :mukn/glow/compiler/syntax-context
:mukn/glow/cli/interaction :mukn/glow/cli/ethereum :mukn/glow/cli/contacts :mukn/glow/cli/identities
:mukn/glow/runtime/glow-path)
(initialize-glow-path! [(source-path "dapps") (source-path "t/passdata")])
;;(import :clan/debug)(DBG foo: (getenv "GERBIL_LOADPATH" #f) load-path)
(only-in :clan/path-config source-path)
(only-in :mukn/glow/runtime/glow-path initialize-glow-path!)

;; Import for the REPL interactive environment?
;; :mukn/glow/all-glow

(define-entry-point (skip-tests . _)
(help: "Return true without actually running tests"
getopt: [(rest-arguments 'ignored help: "Ignored arguments")])
(displayln "Tests disabled pending fixes and updates")
(displayln "Use ./unit-tests unit-tests to run the tests")
(displayln "Or get back to April 2022 version of glow, gerbil and all their dependencies")
(displayln "commit 75d028222c5aa219f3499ce09fa34c854bca9153")
(silent-exit))
;; Import for the Glow compilation and evaluation environment:
:mukn/glow/t/common :mukn/glow/compiler/syntax-context

(set-default-entry-point! 'skip-tests)
;; Imported for the CLI command definitions:
(only-in :mukn/glow/cli/interaction)
(only-in :mukn/glow/cli/ethereum)
(only-in :mukn/glow/cli/contacts)
(only-in :mukn/glow/cli/identities)
(only-in :mukn/glow/version)) ;; imported for version-defining side-effect

(initialize-glow-path! [(source-path "dapps") (source-path "t/passdata")])

0 comments on commit a1a7a9e

Please sign in to comment.