     (is (re-find #"<.*class=\"name\".*>John &amp; Sons v\. Thurber</" page))
     (is (re-find #"<.*class=\"date\".*>January 4, 2009</" page))
     (is (re-find #"<.*class=\"citations\".*>1 F.2d 101; 5 L.Ed. 102</" page))
-    (is (re-find #"<.*class=\"court\".*>United States Court of Appeals for the Third Circuit</" page))))
+    (is (re-find #"<.*class=\"court\".*>United States Court of Appeals for the Third Circuit</" page))
+    (is (not (re-find #"robots.*noindex" page)))))
 
 
 (deftest- can-generate-cites-page

(ns org.altlaw.www.case-pages
  (:require [org.altlaw.util.string :as str]
            [org.altlaw.util.files :as files]
            [org.altlaw.www.render :as tmpl]
            [org.altlaw.util.courts :as courts]
            [org.altlaw.util.date :as date]


(defn- url-path-for-docid [type docid]
  (if (= type :text)
    (str "v1/cases/" docid)
    (str "v1/cases/" docid "/" (name type))))

(defn- absolute-url-path-for-docid [type docid]
  (str "/" (url-path-for-docid type docid)))

(defn- file-path-for-docid [type docid format]
  (str (url-path-for-docid type docid) "." format))

(defn- doclinks [doc]
  (let [docid (:docid doc)]
    [{:name "Full Text"
      :url (absolute-url-path-for-docid :text docid)}
     {:name "Citations to/from this"
      :url (absolute-url-path-for-docid :citations docid)}]))

(defmulti #^{:private true} gen-case-layout (fn [type doc] type))

