Shrinking dependencies and moving enumerate tests

pkgs/data-pkgs/data-doc/data/scribblings/enumerate.scrbl

@@ -563,7 +563,10 @@ An @tech{enumeration} raises @racket[e] if @racket[decode] or
 @racket[encode] is called with on.
 
 @examples[#:eval the-eval
-(approximate (fail/e (exn:fail "Don't do that!" (current-continuation-marks)))
+(approximate 
+ (fail/e
+  (exn:fail "Don't do that!"
+            (current-continuation-marks)))
  5)
 ]}
 

pkgs/data-pkgs/data-doc/info.rkt

@@ -8,6 +8,7 @@
 
 (define pkg-authors '(ryanc))
 (define build-deps '("data-lib"
+                     "data-enumerate-lib"
                      "racket-doc"
                      "scribble-lib"))
-(define update-implies '("data-lib"))
+(define update-implies '("data-lib" "data-enumerate-lib"))

pkgs/data-pkgs/data-enumerate-lib/LICENSE.txt

@@ -0,0 +1,11 @@
+data-lib
+Copyright (c) 2010-2014 PLT Design Inc.
+
+This package is distributed under the GNU Lesser General Public
+License (LGPL).  This means that you can link Racket into proprietary
+applications, provided you follow the rules stated in the LGPL.  You
+can also modify this package; if you distribute a modified version,
+you must distribute it under the terms of the LGPL, which in
+particular means that you must release the source code for the
+modified software.  See http://www.gnu.org/copyleft/lesser.html
+for more information.

pkgs/data-pkgs/data-enumerate-lib/data/enumerate.rkt

@@ -1564,11 +1564,9 @@
           t
           t)))
 
-(module+
+(module+ test
- test
  (require rackunit)
  (provide check-bijection?
-          int/e
           find-size
           list->inc-set
           inc-set->list)

pkgs/data-pkgs/data-enumerate-lib/info.rkt

@@ -0,0 +1,8 @@
+#lang info
+(define collection 'multi)
+(define deps '("base" "data-lib" "math-lib"))
+(define build-deps '("rackunit-lib"))
+
+(define pkg-desc "implementation (no documentation) of \"data/enumerate\"")
+
+(define pkg-authors '(maxsnew jay))

pkgs/data-pkgs/data-lib/info.rkt

@@ -1,6 +1,6 @@
 #lang info
 (define collection 'multi)
-(define deps '("base" "math-lib"))
+(define deps '("base"))
 (define build-deps '("rackunit-lib"))
 
 (define pkg-desc "implementation (no documentation) part of \"data\"")

pkgs/data-pkgs/data-test/info.rkt

@@ -7,7 +7,8 @@
 (define pkg-desc "tests for \"data-lib\"")
 
 (define pkg-authors '(ryanc))
-(define build-deps '("racket-index"
+(define build-deps '("data-enumerate-lib"
+                     "racket-index"
                      "data-lib"
                      "rackunit-lib"))
 (define update-implies '("data-lib"))

pkgs/data-pkgs/data-test/tests/data/enumerate.rkt

@@ -1,9 +1,10 @@
-#lang racket
+#lang racket/base
-
 (require rackunit
+         racket/function
+         racket/set
          data/gvector
-         redex/private/enumerator
+         data/enumerate
-         (submod redex/private/enumerator test))
+         (submod data/enumerate test))
 
 ;; const/e tests
 (let ([e (const/e 17)])
@@ -284,9 +285,6 @@
  (check-equal? (list->inc-set '(2 0 1 2)) '(2 3 5 8))
  (check-equal? (inc-set->list '(2 3 5 8)) '(2 0 1 2)))
 
-(define (below/e n)
-  (take/e nat/e n))
-
 ;; multi-arg map/e test
 (define sums/e
   (map/e

pkgs/data-pkgs/data/info.rkt

@@ -2,8 +2,8 @@
 
 (define collection 'multi)
 
-(define deps '("data-lib" "data-doc"))
+(define deps '("data-lib" "data-enumerate-lib" "data-doc"))
-(define implies '("data-lib" "data-doc"))
+(define implies '("data-lib" "data-enumerate-lib" "data-doc"))
 
 (define pkg-desc "Data strucutures")
 

pkgs/redex-pkgs/redex-lib/info.rkt

@@ -4,7 +4,8 @@
 
 (define collection 'multi)
 
-(define deps '("scheme-lib"
+(define deps '("data-enumerate-lib"
+               "scheme-lib"
                "base"
                "data-lib"
                "math-lib"

pkgs/redex-pkgs/redex-test/redex/tests/run-tests.rkt

@@ -36,7 +36,6 @@
      "check-syntax-test.rkt"
      "test-docs-complete.rkt"
      "tut-subst-test.rkt"
-     "enumerator-test.rkt"
      "enum-test.rkt"
      "bitmap-test.rkt")
    (if test-examples?