Run Travis on 2 threads only, to avoid OOM when compiling phc-adt. Added and used check-equal?-values: form.

.travis.yml

@@ -41,7 +41,7 @@ before_install:
 - export PATH="${RACKET_DIR}/bin:${PATH}" #install-racket.sh can't set for us
 
 install:
- - raco pkg install --deps search-auto
+ - raco pkg install -j 2 --deps search-auto
 
 before_script:
 

scribblings/phc-graph.scrbl

@@ -5,6 +5,10 @@
 @title{Ph.C Graph library}
 @author[@author+email["Georges Dupéron" "georges.duperon@gmail.com"]]
 
+This library is implmented using literate programming. The
+implementation details are presented in 
+@other-doc['(lib "phc-graph/scribblings/phc-graph-implementation.scrbl")].
+
 @defmodule[phc-graph]
 
 Package Description Here

test/ck.rkt

@@ -0,0 +1,21 @@
+#lang typed/racket/base
+
+(require phc-toolkit
+         (for-syntax racket/base
+                     syntax/parse
+                     type-expander/expander
+                     phc-toolkit/untyped))
+
+(provide check-equal?-values:)
+
+(define-syntax check-equal?-values:
+  (syntax-parser
+    [(_ actual {~maybe :colon type} expected ...)
+     (quasisyntax/top-loc this-syntax
+       (check-equal?: (call-with-values (ann (λ () actual)
+                                             (-> #,(if (attribute type)
+                                                       #'type
+                                                       #'AnyValues)))
+                                        (λ l l))
+                      (list expected ...)))]))
+  

test/test-traversal-1.rkt

@@ -1,14 +1,22 @@
 #lang typed/racket
 
-(require "../traversal.hl.rkt")
+(require "../traversal.hl.rkt"
+         "ck.rkt")
 
 (define-fold f₁ t₁ Null String)
 ;(define-fold f₂ t₂ (Pairof Null Null) String)
 ;(define-fold f₃ t₃ String String)
 ;(define-fold f₄ t₄ (Pairof Null String) String)
 
-((f₁ string?
-     (λ ([x : String] [acc : Integer])
-       (values (string->symbol x) acc)))
- '()
- 0)
+(define f₁-string->symbol
+  (f₁ string?
+      (λ ([x : String] [acc : Integer])
+        (values (string->symbol x) acc))))
+(check-equal?-values: (f₁-string->symbol '() 0)
+                      '() 0)
+
+(check-equal?-values: (f₁-string->symbol '() 0)
+                      : (Values Null Integer)
+                      '() 0)
+
+