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

path: root/test/sourcemaps.js

Age	Commit message (Collapse)	Author
2017-05-23	fix source map offset (#1993)	Alex Lam S.L
	Account for whitespace insertions. fixes #505 fixes #890
2017-05-08	deprecate low level API (#1877)	Alex Lam S.L
	fixes #1872
2015-10-20	Fix #836	Fábio Santos

" -SecurityTypes None")) (greeters (list (lightdm-gtk-greeter-configuration (allow-debugging? #t)))) (seats (list (lightdm-seat-configuration (name "*") (user-session "ratpoison")))))) ;; For debugging. (service dhcp-client-service-type) (service openssh-service-type (openssh-configuration (permit-root-login #t) (allow-empty-passwords? #t))) (append minimal-desktop-services (remove (lambda (service) (eq? (service-kind service) guix-service-type)) %base-services)))))) (define (run-lightdm-test) "Run tests in %LIGHTDM-OS." (define os (marionette-operating-system %lightdm-os #:imported-modules (source-module-closure '((gnu services herd))))) (define vm (virtual-machine os)) (define test (with-imported-modules (source-module-closure '((gnu build marionette))) #~(begin (use-modules (gnu build marionette) (srfi srfi-26) (srfi srfi-64)) (let ((marionette (make-marionette (list #$vm)))) (test-runner-current (system-test-runner #$output)) (test-begin "lightdm") (test-assert "service is running" (marionette-eval '(begin (use-modules (gnu services herd)) (start-service 'lightdm)) marionette)) (test-assert "service can be stopped" (marionette-eval '(begin (use-modules (gnu services herd)) (stop-service 'lightdm)) marionette)) (test-assert "service can be restarted" (marionette-eval '(begin (use-modules (gnu services herd)) (restart-service 'lightdm)) marionette)) (test-assert "login screen is displayed" ;; GNU Ocrad fails to recognize the "Log In" button text, so use ;; Tesseract. (wait-for-screen-text marionette (cut string-contains <> "Log In") #:ocr #$(file-append tesseract-ocr "/bin/tesseract") #:timeout 60)) ;for slow systems (test-assert "can connect to TCP port 5900 on IPv4" (wait-for-tcp-port 5900 marionette)) (test-assert "can connect to TCP port 5900 on IPv6" (wait-for-tcp-port 5900 marionette #:address `(make-socket-address AF_INET6 (inet-pton AF_INET6 "::1") 5900))) (test-end))))) (gexp->derivation "lightdm-test" test)) (define %test-lightdm (system-test (name "lightdm") (description "Basic tests for the LightDM service.") (value (run-lightdm-test))))