From 1d19a844f4e63de3d3709cd828bb9922c8c952eb Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 30 Mar 2012 23:54:34 -0600
Subject: [PATCH] Moving tests re: Sam

---
 collects/tests/scribble/docs/autobib.scrbl |  4 ++++
 collects/tests/scribble/docs/autobib.txt   |  6 ++++++
 collects/tests/scriblib/autobib.rkt        | 20 --------------------
 3 files changed, 10 insertions(+), 20 deletions(-)
 delete mode 100644 collects/tests/scriblib/autobib.rkt

diff --git a/collects/tests/scribble/docs/autobib.scrbl b/collects/tests/scribble/docs/autobib.scrbl
index 635e4fbac4..2a4f173a06 100644
--- a/collects/tests/scribble/docs/autobib.scrbl
+++ b/collects/tests/scribble/docs/autobib.scrbl
@@ -25,4 +25,8 @@
 
 @cite[schelog]
 
+@cite[(make-bib #:title "Look ma, no authors")]
+
+@cite[(make-bib #:title "Look ma, no authors" #:author "And no date")]
+
 @(gen)
diff --git a/collects/tests/scribble/docs/autobib.txt b/collects/tests/scribble/docs/autobib.txt
index 2ed9ab5ca0..c1f4830e3d 100644
--- a/collects/tests/scribble/docs/autobib.txt
+++ b/collects/tests/scribble/docs/autobib.txt
@@ -3,9 +3,15 @@ al. 2010, part II)  (Felleisen et al. 2010)
 
  (Sitaram 1993)
 
+ (Look ma, no authors ???)
+
+ (date ???)
+
 Bibliography
 
+And no date. Look ma, no authors.                                     
 Dorai Sitaram. Programming in Schelog. 1993.                          
 http://www.ccs.neu.edu/~dorai/schelog/schelog.html                    
+Look ma, no authors.                                                  
 Matthias Felleisen, Robert Bruce Findler, and Matthew Flatt. Semantics
 Engineering with PLT Redex. MIT Press, 2010.                          
diff --git a/collects/tests/scriblib/autobib.rkt b/collects/tests/scriblib/autobib.rkt
deleted file mode 100644
index 98e07e3ab2..0000000000
--- a/collects/tests/scriblib/autobib.rkt
+++ /dev/null
@@ -1,20 +0,0 @@
-#lang racket/base
-(require rackunit
-         scribble/render
-         scriblib/autobib)
-
-(check-not-exn
- (λ ()
-   (define-cite ~cite citet generate-bib)
-
-   (~cite (make-bib #:title "Test with nothing"))
-   (generate-bib)))
-
-(check-not-exn
- (λ ()
-   (define-cite ~cite citet generate-bib)
-
-   (~cite (make-bib #:title "Test with nothing"
-                    #:author (author-name "Quick" "Checkerson")))
-   (render (list (generate-bib))
-           (list "test.scrbl"))))