panhandle 0.2.0.0 → 0.2.1.0

raw patch · 4 files changed

+118/−2 lines, 4 files

Files

• panhandle.cabal +3/−2
• test.sh +45/−0
• tests/Generators.hs +51/−0
• tests/LSC.hs +19/−0

@@ -1,5 +1,5 @@ name:                panhandle-version:             0.2.0.0+version:             0.2.1.0 synopsis:            Pandoc filter to unwrap nested blocks description:         Pandoc filter to splice together nested documents homepage:            http://chriswarbo.net/projects/activecode@@ -9,7 +9,7 @@ maintainer:          chriswarbo@gmail.com category:            Text build-type:          Simple-extra-source-files:  README.md+extra-source-files:  README.md, test.sh cabal-version:       >=1.10  source-repository head@@ -37,6 +37,7 @@   type:                exitcode-stdio-1.0   hs-source-dirs:      tests   main-is:             Main.hs+  other-modules:       LSC, Generators   build-depends:       base       >= 4.7                      , panhandle                      , QuickCheck

@@ -0,0 +1,45 @@+#!/usr/bin/env bash+set -e+set -o pipefail++command -v pandoc || {+    echo "Couldn't find pandoc binary, aborting" 1>&2+    exit 1+}++function run {+    if command -v cabal2nix+    then+        EXPR=$(cabal2nix ./.)+        nix-shell -p "(haskellPackages.callPackage ($EXPR) {})" --run 'panhandle'+    else+        cabal run panhandle+    fi+}++MARKDOWN="*foo*"+echo "Got Markdown '$MARKDOWN'"++JSON=$(echo "$MARKDOWN" | pandoc -f markdown -t json)+echo "Got JSON '$JSON'"++# shellcheck disable=SC2016+UNWRAP=$(echo '```{.unwrap}'; echo "$JSON"; echo '```')+echo "Got unwrap '$UNWRAP'"++META=$(echo "$UNWRAP" | pandoc -f markdown -t json)+echo "Got meta '$META'"++UNWRAP=$(echo "$META" | run) || {+    echo "Failed to unwrap" 1>&2+    exit 1+}+echo "Got unwrapped '$UNWRAP'"++FINAL=$(echo "$UNWRAP" | pandoc -f json -t html)+echo "Got HTML '$FINAL'"++echo "$FINAL" | grep '<em>foo</em>' || {+    echo "Didn't unwrap *foo* in '$FINAL'" 1>&2+    exit 1+}

@@ -0,0 +1,51 @@+{-# LANGUAGE TemplateHaskell #-}++module Generators where++import Data.DeriveTH+import Test.QuickCheck+import Text.Pandoc+import Data.Derive.Arbitrary+import Data.Map+import Test.LazySmallCheck2012+import Test.LazySmallCheck2012.TH++$( derive makeArbitrary ''Block )+$( derive makeArbitrary ''Inline )+$( derive makeArbitrary ''QuoteType )+$( derive makeArbitrary ''MathType )+$( derive makeArbitrary ''ListNumberStyle )+$( derive makeArbitrary ''Citation )+$( derive makeArbitrary ''ListNumberDelim )+$( derive makeArbitrary ''CitationMode )+$( derive makeArbitrary ''Format )+$( derive makeArbitrary ''Alignment )+$( derive makeArbitrary ''Pandoc )+$( derive makeArbitrary ''Meta )+$( derive makeArbitrary ''MetaValue )++$( deriveSerial ''Pandoc )+$( deriveSerial ''Block )+$( deriveSerial ''Inline )+$( deriveSerial ''MetaValue )+$( deriveSerial ''QuoteType )+$( deriveSerial ''ListNumberStyle )+$( deriveSerial ''MathType )+$( deriveSerial ''ListNumberDelim )+$( deriveSerial ''CitationMode )+$( deriveSerial ''Alignment )++instance (Serial a, Ord a, Serial b) => Serial (Map a b) where+  series = cons1 fromList++instance Serial Meta where+  series = cons1 Meta++instance Serial Citation where+  series = cons5 Citation <*> series++instance Serial Double where+  series = drawnFrom $ \d -> Prelude.map (fromInteger . toInteger) [(-d)..d]++instance Serial Format where+  series = cons1 Format

@@ -0,0 +1,19 @@+{-# LANGUAGE RankNTypes #-}+module LSC where++import Data.Data+import Data.Tagged+import Test.LazySmallCheck2012+import Test.Tasty.Providers++newtype LSC a = LSC a++instance (Testable a, Typeable a, Data a) => IsTest (LSC a) where+  run os (LSC t) p = do b <- depthCheckResult 3 t+                        return (if b then testPassed ""+                                     else testFailed "")+  testOptions = Tagged {+      unTagged = []+    }++lazyProperty n t = singleTest n (LSC t)