Moved unstable/cce/web to unstable/web.

collects/tests/unstable/web.rkt

@@ -0,0 +1,16 @@
+#lang racket
+
+(require rackunit rackunit/text-ui unstable/web "helpers.rkt")
+
+(run-tests
+ (test-suite "web.ss"
+   (test-suite "css?"
+     (test-true "CSS" (css? '((foo (a b) (c d)) (bar (w x) (y z)))))
+     (test-false "not CSS" (css? '(a b c d))))
+   (test-suite "css/c"
+     (test-ok "CSS" (with/c css/c '((foo (a b) (c d)) (bar (w x) (y z)))))
+     (test-bad "not CSS" (with/c css/c '(a b c d))))
+   (test-suite "write-css")
+   (test-suite "write-xexpr")
+   (test-suite "create-stylesheet")
+   (test-suite "create-webpage")))

collects/unstable/cce/reference/manual.scrbl

@@ -11,7 +11,6 @@
 @table-of-contents[]
 
 @include-section["regexp.scrbl"]
-@include-section["web.scrbl"]
 
 @include-section["set.scrbl"]
 @include-section["dict.scrbl"]

collects/unstable/cce/test/test-main.ss

@@ -16,8 +16,7 @@
          "test-sandbox.ss"
          "test-scribble.ss"
          "test-set.ss"
-         "test-syntax.ss"
-         "test-web.ss")
+         "test-syntax.ss")
 
 (run-tests
  (test-suite "scheme.plt"
@@ -36,5 +35,4 @@
    sandbox-suite
    scribble-suite
    set-suite
-   syntax-suite
-   web-suite))
+   syntax-suite))

collects/unstable/cce/test/test-web.ss

@@ -1,22 +0,0 @@
-#lang scheme
-
-(require "checks.ss"
-         "../web.ss")
-
-(provide web-suite)
-
-(define web-suite
-  (test-suite "web.ss"
-    (test-suite "css?"
-      (test-true "CSS" (css? '((foo (a b) (c d)) (bar (w x) (y z)))))
-      (test-false "not CSS" (css? '(a b c d))))
-    (test-suite "css/c"
-      (test-ok "CSS" (with/c css/c '((foo (a b) (c d)) (bar (w x) (y z)))))
-      (test-bad "not CSS" (with/c css/c '(a b c d))))
-    (test-suite "xexpr/c"
-      (test-ok "XExpr" (with/c xexpr/c '(a ([href "url"]) "somewhere")))
-      (test-bad "not XExpr" (with/c xexpr/c '(a ("href" url) . "nowhere"))))
-    (test-suite "write-css")
-    (test-suite "write-xexpr")
-    (test-suite "create-stylesheet")
-    (test-suite "create-webpage")))

collects/unstable/scribblings/unstable.scrbl

@@ -87,6 +87,7 @@ Keep documentation and tests up to date.
 @include-section["syntax.scrbl"]
 @include-section["text.scrbl"]
 @include-section["values.scrbl"]
+@include-section["web.scrbl"]
 @include-section["poly-c.scrbl"]
 @include-section["mutated-vars.scrbl"]
 @include-section["find.scrbl"]

collects/unstable/scribblings/web.scrbl

@@ -1,13 +1,11 @@
-#lang scribble/doc
-@(require scribble/manual
-          scribble/eval
-          "../scribble.ss"
-          "eval.ss")
-@(require (for-label scheme xml unstable/cce/web))
+#lang scribble/manual
+@(require scribble/eval "utils.rkt" (for-label racket xml unstable/web))
 
-@title[#:style 'quiet #:tag "cce-web"]{XML and CSS}
+@title{XML and CSS}
 
-@defmodule[unstable/cce/web]
+@defmodule[unstable/web]
+
+@unstable[@author+email["Carl Eastlund" "cce@racket-lang.org"]]
 
 This module provides tools for programmatic creation of static web pages.  It is
 based on the XML collection; see documentation for @scheme[xexpr?].

collects/unstable/web.rkt

@@ -1,8 +1,7 @@
-#lang scheme
+#lang racket
 (require xml
          unstable/function
-         unstable/text
-         "define.ss")
+         unstable/text)
 
 ;; css/c : FlatContract
 ;; Recognizes representations of Cascading Style Sheets.
@@ -68,10 +67,6 @@
 ;; Writes a property value to a Cascading Style Sheet.
 (define write-prop-val write-text)
 
-(define-if-unbound xexpr/c
-  (flat-named-contract "Xexpr" xexpr?))
-
-(provide xexpr/c)
 (provide/contract
  [write-xexpr (->* [xexpr/c] [output-port?] void?)])