www

commit 73c47daef6d8a1ab29e95e45f14d2c2eab4ccde7
parent 5e7de16a4c4f711f539bff3ea4d022354ac70587
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu, 11 May 2017 10:04:47 +0200

Fixed test

Diffstat:
M
.travis.yml
 | 
2
+-
M
typed-map-test/typed-map/test/test-map.rkt
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/.travis.yml b/.travis.yml
@@ -24,7 +24,7 @@ install:
 - raco pkg install --deps search-auto -j 2 ./typed-map/ ./typed-map-doc/ ./typed-map-lib/ ./typed-map-test/
 
 script:
-- raco test -x -p typed-map typed-map-doc typed-map-lib typed-map-test
+- raco test -p typed-map typed-map-doc typed-map-lib typed-map-test
 - raco setup --check-pkg-deps --no-zo --no-launcher --no-install --no-post-install --no-docs --pkgs typed-map typed-map-doc typed-map-lib typed-map-test
 - raco doc-coverage typed-map typed-map-doc typed-map-lib typed-map-test
 - raco cover -s main -s test -s doc -f codecov -f html -d ~/coverage . || true
diff --git a/typed-map-test/typed-map/test/test-map.rkt b/typed-map-test/typed-map/test/test-map.rkt
@@ -106,7 +106,7 @@
                        (cons acc (add1 x)))
                      '()
                      '(1 2 3))
-              '(((() . 4) . 3) . 2))
+              '(((() . 2) . 3) . 4))
 
 (let ()
   (ann (foldl (λ (x acc) (cons (add1 x) acc)) '() '()) Null)