Implemented test unit for ps (#2)

Add more test unit

Author: EmptyWork

Diff for: purescript/test/tests/DividedBy.purs

@@ -0,0 +1,28 @@
+module DividedBy where
+
+import Prelude
+
+import CodeWars.EightKyu.DividedBy (dividedBy, dividedByLogic, dividedByLogic2, dividedByWithoutAbs)
+import Test.Spec (Spec, describe, it)
+import Test.Spec.Assertions (shouldEqual, shouldNotEqual)
+
+testDividedBy ∷ Spec Unit
+testDividedBy = do
+  describe "dividedBy: a function to check if an integer `number` is divisible by both integers `a` and `b`." do
+    
+    it "one of it is negative numbers" do
+      dividedBy (-12) 2 6 `shouldEqual` true
+      dividedBy (-12) 2 5 `shouldEqual` false
+      dividedByWithoutAbs (-12) 2 (-6) `shouldEqual` true
+      dividedByWithoutAbs (-12) 2 (-5) `shouldEqual` false
+    
+    it "both negative numbers" do
+      dividedBy (-24) (-12) 48 `shouldEqual` true
+      dividedBy (-24) (-12) 48 `shouldNotEqual` false
+      dividedByLogic (-24) (-2) 12 false `shouldEqual` true
+      dividedByLogic2 (-24) (-2) 12 false `shouldEqual` true
+    
+    it "returns negative number" do
+      dividedByWithoutAbs (-100) 5 (-20) `shouldEqual` true
+      dividedByLogic (-100) 5 (-20) false `shouldEqual` true
+      dividedByLogic2 (-100) 5 (-20) false `shouldEqual` true

Diff for: purescript/test/tests/EightKyu.purs

@@ -2,9 +2,11 @@ module Test.EightKyu where
 
 import Prelude
 
+import DividedBy (testDividedBy)
 import Realfloor (testRealFloor)
 import Test.Spec (Spec)
 
 eightKyu :: Spec Unit
 eightKyu = do
-  testRealFloor
+  testRealFloor
+  testDividedBy

Diff for: purescript/test/tests/Realfloor.purs

@@ -8,6 +8,17 @@ import Test.Spec.Assertions (shouldEqual)
 
 testRealFloor ∷ Spec Unit
 testRealFloor = do
-  describe "" do
-    it "" do
-      realFloor 0 `shouldEqual` 0
+  describe "realFloor: a function that given a floor in the american system returns the floor in the european system" do
+    it "on the zeroth floor" do
+      realFloor 0 `shouldEqual` 0
+    it "the floor is lower than 13" do
+      realFloor 3 `shouldEqual` 2
+      realFloor 2 `shouldEqual` 1
+      realFloor 1 `shouldEqual` 0
+      realFloor 12 `shouldEqual` 11
+    it "the floor is higher than 13" do
+      realFloor 14 `shouldEqual` 12
+      realFloor 20 `shouldEqual` 18
+    it "underground floor" do
+      realFloor (-1) `shouldEqual` (-1)
+      realFloor (-12) `shouldEqual` (-12)