mirror of
https://github.com/ryantm/nixpkgs-update.git
synced 2025-01-07 12:00:07 +03:00
28 lines
1.2 KiB
Haskell
28 lines
1.2 KiB
Haskell
|
module CheckSpec where
|
||
|
|
|
||
|
|
import qualified Data.Text as T
|
||
|
|
import Test.Hspec
|
||
|
|
import qualified Check
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = hspec spec
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = do
|
||
|
|
describe "version check" do
|
||
|
|
let seaweedVersion234 = T.pack "version 30GB 2.34 linux amd64"
|
||
|
|
it "finds the version when present" do
|
||
|
|
Check.hasVersion (T.pack "The version is 2.34") (T.pack "2.34") `shouldBe` True
|
||
|
|
Check.hasVersion (T.pack "The version is 2.34.") (T.pack "2.34") `shouldBe` True
|
||
|
|
Check.hasVersion (T.pack "2.34 is the version") (T.pack "2.34") `shouldBe` True
|
||
|
|
Check.hasVersion seaweedVersion234 (T.pack "2.34") `shouldBe` True
|
||
|
|
|
||
|
|
it "doesn't produce false positives" do
|
||
|
|
Check.hasVersion (T.pack "The version is 12.34") (T.pack "2.34") `shouldBe` False
|
||
|
|
Check.hasVersion (T.pack "The version is 2.345") (T.pack "2.34") `shouldBe` False
|
||
|
|
Check.hasVersion (T.pack "The version is 2.35") (T.pack "2.34") `shouldBe` False
|
||
|
|
Check.hasVersion (T.pack "2.35 is the version") (T.pack "2.34") `shouldBe` False
|
||
|
|
Check.hasVersion (T.pack "2.345 is the version") (T.pack "2.34") `shouldBe` False
|
||
|
|
Check.hasVersion (T.pack "12.34 is the version") (T.pack "2.34") `shouldBe` False
|
||
|
|
Check.hasVersion seaweedVersion234 (T.pack "2.35") `shouldBe` False
|