Cleaned up tests. make clean && make works.

graph/graph/_examples_cond-abort.rkt

@@ -2,7 +2,9 @@
 
 (require "cond-abort.rkt")
 (require "variant.lp2.rkt")
+(require typed/rackunit)
 
+(check-equal?
  (match-abort '(1 (a b) 3)
    [(list x y z)
     (let-abort ([new-x x]
@@ -11,11 +13,14 @@
                          [(list q r s) (list 'B q r s)])]
                 [new-z z])
                (list new-x new-y new-z))])
+ '(1 (A a b) 3))
 
+(let ()
   (λ ([x : (U (Vector Number) (Vector String String))])
     (if (= (vector-length x) 1)
-      x
+        x ;; Occurrence typing didn't narrow the type of x to (Vector Number).
         x))
+  (void))
 
 #|
 
@@ -48,7 +53,7 @@
 
 
 
-
+(check-equal?
  (foldl
   (λ (x acc)
     (if (null? x)
@@ -58,6 +63,7 @@
             (cons x acc))))
   '()
   '(a b c))
+ '(c b a))
 
 
 (begin

graph/graph/_examples_differentiate_unions.rkt

@@ -4,6 +4,7 @@
 #;(λ ([x : (U (Vector Number) (Vector String String))])
     (ann (vector-ref x 0) (U Number String)))
 
+(let ()
   (ann (λ ([x : (U (Vector Number) (Vector String String) Symbol)])
          (if (vector? x)
              x
@@ -14,3 +15,4 @@
   
   (λ ([x : (U (→ Number Number Number) (→ Number Number))])
     (procedure-arity x))
+  (void))

graph/lib/lib.rkt

@@ -1,19 +1,18 @@
 #lang typed/racket
 
 (require "low.rkt")
-(provide (all-from-out "low.rkt"))
+(require "eval-get-values.rkt")
+
+(provide (all-from-out "low.rkt")
+         (all-from-out "eval-get-values.rkt"))
 
 ;; Types
 (provide AnyImmutable)
 ;; Functions
-(provide ∘ eval-get-values)
+(provide (rename-out [∘ compose]))
 ;; Macros
 (provide mapp comment)
 
-(require "eval-get-values.rkt")
-
-(define ∘ compose)
-
 (require (for-syntax syntax/parse
                      racket/syntax))
 

graph/main.rkt

@@ -84,7 +84,7 @@
                 (syntax->datum #'n))
         #'n)
      ;; Just for testing:
-     #''error]))
+     #''test]))
 
 (define-type C Boolean)
 
@@ -116,18 +116,18 @@
     
     (define-type TA A)
     (define-type TAI (incomplete A))
-    (displayln (ann '(A . 1) TAI))
+    (ann '(A . 1) TAI)
     
     (define-type TC C)
     (define-type TCI (incomplete C))
-    (displayln (ann #t TC))
+    (ann #t TC)
-    (displayln (ann '(C . #t) TCI))
+    (ann '(C . #t) TCI)
     
     (let ()
       (define-type A Boolean)
       (define-type TA A)
       (define-type TAI (incomplete A))
-      (displayln (ann 'error TAI))
+      (ann 'test TAI)
       (void))))
 
 (require (prefix-in tr: typed/racket))