Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

updating snow tests to use lib/chicken/8

Browse source
This commit is contained in:
Alex Shinn 2017-01-12 02:00:09 +09:00
parent 0a3c689abe
commit dc9284d47c
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/snow/snow-tests.scm
View file

@ -14,8 +14,8 @@
(create-directory install-prefix) (create-directory install-prefix)
;; setup chicken install directory with minimum required modules ;; setup chicken install directory with minimum required modules
(define chicken-lib-dir "/usr/local/lib/chicken/7") (define chicken-lib-dir "/usr/local/lib/chicken/8")
(define chicken-install-dir (make-path install-prefix "lib/chicken/7")) (define chicken-install-dir (make-path install-prefix "lib/chicken/8"))
(create-directory* chicken-install-dir) (create-directory* chicken-install-dir)
(if (file-exists? chicken-lib-dir) (if (file-exists? chicken-lib-dir)
(let ((rx-required (let ((rx-required
@ -188,6 +188,11 @@
--description "Pythagoran Theorem" --description "Pythagoran Theorem"
--test "tests/snow/repo3/pythagoras/hypotenuse-test.sch" --test "tests/snow/repo3/pythagoras/hypotenuse-test.sch"
tests/snow/repo3/pythagoras/hypotenuse.sch) tests/snow/repo3/pythagoras/hypotenuse.sch)
;; (snow package --output-dir tests/snow/repo3/
;; --version 1.0 --authors "Seki Takakazu"
;; --description "Bernoulli Numbers"
;; --test "tests/snow/repo3/takakazu/bernoulli-test.scm"
;; tests/snow/repo3/takakazu/bernoulli.sld)
(snow index ,(cadr repo3)) (snow index ,(cadr repo3))
(snow ,@repo3 install pingala.binomial) (snow ,@repo3 install pingala.binomial)
(snow ,@repo3 install euler.totient) (snow ,@repo3 install euler.totient)
@ -195,6 +200,9 @@
(test-assert (installed-version status '(pingala binomial))) (test-assert (installed-version status '(pingala binomial)))
(test-assert (installed-version status '(pingala factorial))) (test-assert (installed-version status '(pingala factorial)))
(test "2.7.1" (installed-version status '(euler totient)))) (test "2.7.1" (installed-version status '(euler totient))))
;; (snow ,@repo3 install takakazu.bernoulli)
;; (let ((status (snow-status)))
;; (test-assert (installed-version status '(takakazu bernoulli))))
;; programs ;; programs
(snow ,@repo3 install pingala.triangle) (snow ,@repo3 install pingala.triangle)