From 19ed03dbc34b1c15dbd42ea1b47a203b7211fc3f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 23 Aug 2015 18:05:28 -0700 Subject: [PATCH] tests for quick-tour examples; turn off cache-fetching messages --- cache.rkt | 1 - .../quick-tour/downtown/downtown.html.pmd | 9 +++++ test/data/quick-tour/downtown/template.html | 8 +++++ test/data/quick-tour/hello.txt.pp | 4 +++ test/data/quick-tour/margin.html.pp | 5 +++ test/data/quick-tour/uptown/pollen.rkt | 8 +++++ test/data/quick-tour/uptown/template.html | 8 +++++ test/data/quick-tour/uptown/uptown.html.pm | 8 +++++ test/test-quick-tour.rkt | 34 +++++++++++++++++++ 9 files changed, 84 insertions(+), 1 deletion(-) create mode 100644 test/data/quick-tour/downtown/downtown.html.pmd create mode 100644 test/data/quick-tour/downtown/template.html create mode 100644 test/data/quick-tour/hello.txt.pp create mode 100644 test/data/quick-tour/margin.html.pp create mode 100644 test/data/quick-tour/uptown/pollen.rkt create mode 100644 test/data/quick-tour/uptown/template.html create mode 100644 test/data/quick-tour/uptown/uptown.html.pm create mode 100644 test/test-quick-tour.rkt diff --git a/cache.rkt b/cache.rkt index 4858a08..61115fd 100644 --- a/cache.rkt +++ b/cache.rkt @@ -90,7 +90,6 @@ key cache-dir (λ _ - (message (format "caching: ~a from ~a" subkey (find-relative-path (current-directory) path))) (write-to-file (path->hash path subkey) dest-file #:exists 'replace)) #:max-cache-size (world:current-compile-cache-max-size)) (file->value dest-file))) subkey)] diff --git a/test/data/quick-tour/downtown/downtown.html.pmd b/test/data/quick-tour/downtown/downtown.html.pmd new file mode 100644 index 0000000..5637c22 --- /dev/null +++ b/test/data/quick-tour/downtown/downtown.html.pmd @@ -0,0 +1,9 @@ +#lang pollen +◊define[metal]{Plutonium} + +Pollen + ◊metal +--------------- + ++ You **wanted** ◊metal — you _got_ it. + ++ [search for ◊metal](https://google.com/search?q=◊metal) diff --git a/test/data/quick-tour/downtown/template.html b/test/data/quick-tour/downtown/template.html new file mode 100644 index 0000000..39264ae --- /dev/null +++ b/test/data/quick-tour/downtown/template.html @@ -0,0 +1,8 @@ + + +
+This file is ◊here +
+◊->html{◊doc} +
\ No newline at end of file diff --git a/test/data/quick-tour/hello.txt.pp b/test/data/quick-tour/hello.txt.pp new file mode 100644 index 0000000..b30633c --- /dev/null +++ b/test/data/quick-tour/hello.txt.pp @@ -0,0 +1,4 @@ +#lang pollen +Mean Street +Panama +Hear About It Later diff --git a/test/data/quick-tour/margin.html.pp b/test/data/quick-tour/margin.html.pp new file mode 100644 index 0000000..71636fb --- /dev/null +++ b/test/data/quick-tour/margin.html.pp @@ -0,0 +1,5 @@ +#lang pollen +◊define[my-inset]{30%} + +◊my-inset is the inset. + \ No newline at end of file diff --git a/test/data/quick-tour/uptown/pollen.rkt b/test/data/quick-tour/uptown/pollen.rkt new file mode 100644 index 0000000..5e7a754 --- /dev/null +++ b/test/data/quick-tour/uptown/pollen.rkt @@ -0,0 +1,8 @@ +#lang racket/base + +(require pollen/tag) +(provide (all-defined-out)) +(define headline (make-default-tag-function 'h2)) +(define items (make-default-tag-function 'ul)) +(define item (make-default-tag-function 'li 'p)) +(define (link url text) `(a [[href ,url]] ,text)) diff --git a/test/data/quick-tour/uptown/template.html b/test/data/quick-tour/uptown/template.html new file mode 100644 index 0000000..39264ae --- /dev/null +++ b/test/data/quick-tour/uptown/template.html @@ -0,0 +1,8 @@ + + +
+This file is ◊here +
+◊->html{◊doc} +
\ No newline at end of file diff --git a/test/data/quick-tour/uptown/uptown.html.pm b/test/data/quick-tour/uptown/uptown.html.pm new file mode 100644 index 0000000..2324412 --- /dev/null +++ b/test/data/quick-tour/uptown/uptown.html.pm @@ -0,0 +1,8 @@ +#lang pollen + +◊headline{Pollen markup} + +◊items{ + ◊item{You ◊strong{wanted} it — you ◊em{got} it.} + ◊item{◊link["https://google.com/search?q=racket"]{search for Racket}} +} \ No newline at end of file diff --git a/test/test-quick-tour.rkt b/test/test-quick-tour.rkt new file mode 100644 index 0000000..bfb4b1d --- /dev/null +++ b/test/test-quick-tour.rkt @@ -0,0 +1,34 @@ +#lang at-exp racket/base +(require rackunit racket/runtime-path pollen/render racket/file pollen/world) + +;; define-runtime-path only allowed at top level +(define-runtime-path quick-tour-dir "data/quick-tour/") +(define-runtime-path hello.txt.pp "data/quick-tour/hello.txt.pp") +(define-runtime-path margin.html.pp "data/quick-tour/margin.html.pp") +(define-runtime-path downtown.html.pmd "data/quick-tour/downtown/downtown.html.pmd") +(define-runtime-path uptown.html.pm "data/quick-tour/uptown/uptown.html.pm") + +(define-runtime-path hello.txt "data/quick-tour/hello.txt") +(define-runtime-path margin.html "data/quick-tour/margin.html") +(define-runtime-path downtown.html "data/quick-tour/downtown/downtown.html") +(define-runtime-path uptown.html "data/quick-tour/uptown/uptown.html") + +(define-runtime-path pollen-cache "data/quick-tour/pollen-cache") +(define-runtime-path pollen-cache-uptown "data/quick-tour/uptown/pollen-cache") +(define-runtime-path pollen-cache-downtown "data/quick-tour/downtown/pollen-cache") + +;; test makes sure that quick tour files work +(parameterize ([current-output-port (open-output-string)] + [current-directory quick-tour-dir] + [world:current-project-root quick-tour-dir]) + (check-not-exn (λ _ (render-to-file-if-needed hello.txt.pp))) + (check-not-exn (λ _ (render-to-file-if-needed margin.html.pp))) + (check-not-exn (λ _ (render-to-file-if-needed downtown.html.pmd))) + (check-not-exn (λ _ (render-to-file-if-needed uptown.html.pm))) + (check-true (file-exists? hello.txt)) + (check-true (file-exists? margin.html)) + (check-true (file-exists? downtown.html)) + (check-true (file-exists? uptown.html))) + +(for-each delete-file (list hello.txt margin.html downtown.html uptown.html)) +(for-each delete-directory/files (list pollen-cache pollen-cache-uptown pollen-cache-downtown)) \ No newline at end of file