added unit tests

aligusnet · Sep 19, 2016 · 700d8d0 · 700d8d0
1 parent f836d53
commit 700d8d0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -1,5 +1,8 @@
 ## Amateur astronomical computations
 
+[![Build Status](https://travis-ci.org/Alexander-Ignatyev/astro.svg?branch=master)](https://travis-ci.org/Alexander-Ignatyev/astro)
+[![Coverage Status](https://coveralls.io/repos/github/Alexander-Ignatyev/astro/badge.svg)](https://coveralls.io/github/Alexander-Ignatyev/astro)
+
 #### Documentation
 
 Please read the documentation here: [astro docs](https://alexander-ignatyev.github.io/astro-docs/doc/index.html).

diff --git a/test/Data/Astro/TypesTest.hs b/test/Data/Astro/TypesTest.hs
@@ -63,6 +63,10 @@ tests = [testGroup "DecimalDegrees <-> DecimalHours" [
               , testCase "compare: LT" $ LT @=? (DD 15.3) `compare` (DD 15.5)
               , testCase "compare: EQ" $ EQ @=? (DD 15.5) `compare` (DD 15.5)
               , testCase "compare: GT" $ GT @=? (DD 15.7) `compare` (DD 15.5)
+              , testCase "abs" $ (DD 15.7) @=? abs (DD (-15.7))
+              , testCase "signum > 0" $ (DD 1.0) @=? signum (DD 15.5)
+              , testCase "signum = 0" $ (DD 0.0) @=? signum (DD 0.0)
+              , testCase "signum < 0" $ (DD $ -1.0) @=? signum (DD $ -15.5)
               ]
         ]