mirror of
https://github.com/urbit/shrub.git
synced 2024-12-30 15:44:03 +03:00
29 lines
697 B
Haskell
29 lines
697 B
Haskell
|
module ClayTests (tests) where
|
||
|
|
|
||
|
|
import Noun.Conversions
|
||
|
|
import UrbitPrelude
|
||
|
|
|
||
|
|
import Test.QuickCheck hiding ((.&.))
|
||
|
|
import Test.Tasty
|
||
|
|
import Test.Tasty.QuickCheck
|
||
|
|
import Test.Tasty.TH
|
||
|
|
|
||
|
|
instance Arbitrary Knot where
|
||
|
|
arbitrary = (MkKnot . pack) <$> sublistOf ['a'..'z']
|
||
|
|
|
||
|
|
nonEmptyList :: (Arbitrary a) => Gen [a]
|
||
|
|
nonEmptyList = sized $ \n ->
|
||
|
|
do k <- choose (1, max 1 n)
|
||
|
|
vector k
|
||
|
|
|
||
|
|
instance Arbitrary Path where
|
||
|
|
arbitrary = Path <$> nonEmptyList
|
||
|
|
|
||
|
|
testPathRoundTrip :: Path -> Property
|
||
|
|
testPathRoundTrip p =
|
||
|
|
classify (1 == (length $ unPath p)) "singleton" $
|
||
|
|
(filePathToPath (pathToFilePath p)) === p
|
||
|
|
|
||
|
|
tests = testGroup "Clay"
|
||
|
|
[ testProperty "Path round trip" $ testPathRoundTrip ]
|