Splice ./universe directory into ./
Manually merging: - README.md: I added the description from universe/README.md into the heading of dotfiles/README.md. - .envrc: dotfiles/.envrc was a superset of universe/.envrc - .gitignore: Adding some of the ignored patterns from universe/.gitignore to dotfiles/.gitignore Everything else here should be a simple rename.
This commit is contained in:
parent
fb9380ba26
commit
5c9079a410
133 changed files with 17 additions and 7979 deletions
39
haskell-file/tests.hs
Normal file
39
haskell-file/tests.hs
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
module FTest where
|
||||
--------------------------------------------------------------------------------
|
||||
import Test.Tasty
|
||||
import Test.Tasty.Hedgehog
|
||||
import Hedgehog
|
||||
--------------------------------------------------------------------------------
|
||||
import qualified Hedgehog as H
|
||||
import qualified Hedgehog.Gen as Gen
|
||||
import qualified Hedgehog.Range as Range
|
||||
--------------------------------------------------------------------------------
|
||||
import Data.List (intercalate)
|
||||
import System.FilePath (pathSeparator)
|
||||
--------------------------------------------------------------------------------
|
||||
import F
|
||||
--------------------------------------------------------------------------------
|
||||
main :: IO ()
|
||||
main
|
||||
= defaultMain
|
||||
. localOption (HedgehogTestLimit $ Just 50)
|
||||
$ testGroup "f functions"
|
||||
[ test_split
|
||||
]
|
||||
--------------------------------------------------------------------------------
|
||||
test_split :: TestTree
|
||||
test_split
|
||||
= testGroup "split function"
|
||||
[ testProperty "splits parts properly" splitSuccess
|
||||
]
|
||||
splitSuccess :: Property
|
||||
splitSuccess = property $ do
|
||||
-- separator
|
||||
-- <- H.forAll
|
||||
-- $ Gen.element ['/', '\\']
|
||||
parts
|
||||
<- H.forAll
|
||||
. Gen.list (Range.linear 0 10)
|
||||
$ Gen.list (Range.linear 1 10) Gen.alphaNum
|
||||
let path = intercalate [pathSeparator] parts
|
||||
F.split path === parts
|
||||
Loading…
Add table
Add a link
Reference in a new issue