tracifyjs - Reverse engineer's tool for tracing the flow of data in JS program, based on UglifyJS

about summary
about summary refs log tree commit diff

path: root/test/mocha/minify.js

diff options

Diffstat (limited to 'test/mocha/minify.js')

0 files changed, 0 insertions, 0 deletions

t-path)))) (test-assert "url-fetch, file" (let* ((file (search-path %load-path "guix.scm")) (hash (call-with-input-file file port-sha256)) (out (url-fetch* %store file 'sha256 hash))) (and (file-exists? out) (valid-path? %store out)))) (test-assert "url-fetch, file URI" (let* ((file (search-path %load-path "guix.scm")) (hash (call-with-input-file file port-sha256)) (out (url-fetch* %store (string-append "file://" (canonicalize-path file)) 'sha256 hash))) (and (file-exists? out) (valid-path? %store out)))) (test-equal "git-fetch, file URI" '("." ".." "a.txt" "b.scm") (let ((nonce (random-text))) (with-temporary-git-repository directory `((add "a.txt" ,nonce) (add "b.scm" "#t") (commit "Commit.") (tag "v1.0.0" "The tag.")) (run-with-store %store (mlet* %store-monad ((hash -> (file-hash* directory #:algorithm (hash-algorithm sha256) #:recursive? #t)) (drv (git-fetch (git-reference (url (string-append "file://" directory)) (commit "v1.0.0")) 'sha256 hash "git-fetch-test"))) (mbegin %store-monad (built-derivations (list drv)) (return (scandir (derivation->output-path drv))))))))) (test-assert "gnu-build-system" (build-system? gnu-build-system)) (define unpack (assoc-ref %standard-phases 'unpack)) (define compressors '(("gzip" . "gz") ("xz" . "xz") ("bzip2" . "bz2") (#f . #f))) (for-each (match-lambda ((comp . ext) (unless (network-reachable?) (test-skip 1)) ;for bootstrap binaries (test-equal (string-append "gnu-build-system unpack phase, " "single file (compression: " (if comp comp "None") ")") "expected text" (let*-values (((name) "test") ((compressed-name) (if ext (string-append name "." ext) name)) ((file hash) (test-file %store compressed-name "expected text"))) (call-with-temporary-directory (lambda (dir) (with-directory-excursion dir (unpack #:source file) (call-with-input-file name get-string-all)))))))) compressors) ;;; ;;; Test the sanity-check phase of the Python build system. ;;; (define* (make-python-dummy name #:key (setup-py-extra "") (init-py "") (use-setuptools? #t)) (dummy-package (string-append "python-dummy-" name) (version "0.1") (build-system python-build-system) (arguments `(#:tests? #f #:use-setuptools? ,use-setuptools? #:phases (modify-phases %standard-phases (replace 'unpack (lambda _ (mkdir-p "dummy") (with-output-to-file "dummy/__init__.py" (lambda _ (display ,init-py))) (with-output-to-file "setup.py" (lambda _ (format #t "\ ~a setup( name='dummy-~a', version='0.1', packages=['dummy'], ~a )" (if ,use-setuptools? "from setuptools import setup" "from distutils.core import setup") ,name ,setup-py-extra)))))))))) (define python-dummy-ok (make-python-dummy "ok")) ;; distutil won't install any metadata, so make sure our script does not fail ;; on a otherwise fine package. (define python-dummy-no-setuptools (make-python-dummy "no-setuptools" #:use-setuptools? #f)) (define python-dummy-fail-requirements (make-python-dummy "fail-requirements" #:setup-py-extra "install_requires=['nonexistent'],")) (define python-dummy-fail-import (make-python-dummy "fail-import" #:init-py "import nonexistent")) (define python-dummy-fail-console-script (make-python-dummy "fail-console-script" #:setup-py-extra (string-append "entry_points={'console_scripts': " "['broken = dummy:nonexistent']},"))) (define (check-build-success store p) (unless store (test-skip 1)) (test-assert (string-append "python-build-system: " (package-name p)) (let* ((drv (package-derivation store p))) (build-derivations store (list drv))))) (define (check-build-failure store p) (unless store (test-skip 1)) (test-assert (string-append "python-build-system: " (package-name p)) (let ((drv (package-derivation store p))) (guard (c ((store-protocol-error? c) (pk 'failure c #t))) ;good! (build-derivations store (list drv)) #f)))) ;bad: it should have failed (with-external-store store (for-each (lambda (p) (check-build-success store p)) (list python-dummy-ok python-dummy-no-setuptools)) (for-each (lambda (p) (check-build-failure store p)) (list python-dummy-fail-requirements python-dummy-fail-import python-dummy-fail-console-script))) (test-end "builders")