test: renderDebsecanDb

Co-authored-by: pancho horrillo <[email protected]>

src/Text/DebianSecurityAnalyzer/Database.hs

@@ -22,3 +22,6 @@ renderPackage r o p CVE { affected = aps
     flags = [ 'S', getFlagUrgency pri, getFlagIsRemote rmt, getFlagIsFixAvailable r p aps ]
     unstable_version = fromMaybe "" $ getUnstableVersion p aps
     other_versions = unwords $ getOtherVersions p aps
+
+renderDebsecanDb :: [CVE] -> String
+renderDebsecanDb _ = undefined

test/Text/DebianSecurityAnalyzer/DatabaseSpec.hs

@@ -197,3 +197,7 @@ spec = do
           in renderPackage r 0 "package" cve
              `shouldSatisfy`
              \res -> maybe False (isPrefixOf "package,0,S  F") res
+  describe "DATABASE FORMAT" $ do
+    describe "renderDebsecanDb: renders according to Debsecan's db format" $ do
+      it "should respect format (when empty)" $ do
+        renderDebsecanDb [] `shouldBe` "VERSION1\n\n\n"