Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

always get package dependencies when querying for a specified package

Browse Source
This commit is contained in:
Lucy Cifferello
2021-11-21 22:05:41 -07:00
committed by Keagan McClelland
parent c0279fcae8
commit 94a1c66f6c
4 changed files with 74 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
test/Handler/AppSpec.hs
View File

@@ -38,7 +38,7 @@ spec = do
let pkg = fromJust $ head res
let (manifest :: ServiceManifest) = fromRight' $ eitherDecode $ encode $ serviceResManifest pkg
assertEq "manifest id should be bitcoind" (serviceManifestId manifest) "bitcoind"
xdescribe "GET /package/index?ids"
describe "GET /package/index?ids"
$ withApp
$ it "returns list of packages and dependencies at specified version"
$ do
@@ -50,7 +50,6 @@ spec = do
(res :: [ServiceRes]) <- requireJSONResponse
assertEq "response should have one package" (length res) 1
let pkg = fromJust $ head res
printBody
assertEq "package dependency metadata should not be empty" (null $ serviceResDependencyInfo pkg) False
describe "GET /package/index?ids" $ withApp $ it "returns list of packages at exactly specified version" $ do
_ <- seedBitcoinLndStack

4
test/Handler/MarketplaceSpec.hs
View File

@@ -39,7 +39,7 @@ spec = do
packages <- runDBtest $ runConduit $ searchServices Nothing "lightning" .| sinkList
assertEq "should exist" (length packages) 1
let pkg = fromJust $ head packages
print pkg
assertEq "package should be lnd" (entityKey pkg) (PkgRecordKey "lnd")
describe "searchServices with fuzzy query"
$ withApp
$ it "runs search service with fuzzy text in long description and bitcoin category"
@@ -48,7 +48,7 @@ spec = do
packages <- runDBtest $ runConduit $ searchServices (Just BITCOIN) "proxy" .| sinkList
assertEq "should exist" (length packages) 1
let pkg = fromJust $ head packages
print pkg
assertEq "package should be lnc" (entityKey pkg) (PkgRecordKey "btc-rpc-proxy")
describe "searchServices with any category" $ withApp $ it "runs search service for any category" $ do
_ <- seedBitcoinLndStack
packages <- runDBtest $ runConduit $ searchServices Nothing "" .| sinkList