diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 12:16:47 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 12:16:47 +0100 |
| commit | bc71d54ab732d71e2f1a3c5e3dce9f3231334605 (patch) | |
| tree | 94c9f6875050f998118139ebe03709d4d1aa5af9 /tests | |
| parent | 3753db702c6503ccbbe6eef7798243902c49a90c (diff) | |
| download | hakyll-bc71d54ab732d71e2f1a3c5e3dce9f3231334605.tar.gz | |
Started working on relative-url branch.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/Tests.hs b/tests/Tests.hs index e3cada6..e056b4b 100644 --- a/tests/Tests.hs +++ b/tests/Tests.hs @@ -40,7 +40,10 @@ tests = [ testGroup "Util group" [ testProperty "trim length" prop_trim_length , testCase "renderDate 2" test_render_date1 ] - , testGroup "File group" [ testProperty "havingExtension count" prop_having_extension_count + , testGroup "File group" [ testCase "toRoot 1" test_to_root1 + , testCase "toRoot 2" test_to_root2 + , testCase "toRoot 3" test_to_root3 + , testProperty "havingExtension count" prop_having_extension_count , testCase "havingExtension 1" test_having_extension1 , testCase "havingExtension 2" test_having_extension2 ] @@ -93,6 +96,10 @@ test_render_date2 = M.lookup (B.pack "date") rendered @?= Just (B.pack "Unknown "Unknown date" (M.singleton (B.pack "path") (B.pack "2009-badness-30-a-title.markdown")) +-- toRoot test cases +test_to_root1 = toRoot "/posts/foo.html" @?= ".." +test_to_root2 = toRoot "posts/foo.html" @?= ".." +test_to_root3 = toRoot "foo.html" @?= "" -- Add an extension, and test that they have that extension prop_having_extension_count names extension = |